die Umwandlung funzt, aber kommt immernoch die Meldung "Falscher Parameter"
Hier mal die Deklaration der Methoden:
Delphi-Quellcode:
type
TShutdownBlockReasonCreate = function (hWnd:HWND;pwszReason:LPCWSTR):BOOL;
TShutdownBlockReasonDestroy = function (hWnd:HWND):BOOL;
{
Das ist die Deklaration der Methoden vom Anfang
function ShutdownBlockReasonCreate(hWnd:HWND;pwszReason:LPCWSTR):BOOL;stdcall;external user32 name 'ShutdownBlockReasonCreate';
function ShutdownBlockReasonDestroy(hWnd:HWND):BOOL;stdcall;external user32 name 'ShutdownBlockReasonDestroy';
function ShutdownBlockReasonQuery(hWnd:HWND;pwszBuff:LPWSTR;pcchBuff:DWORD):BOOL;stdcall;external user32 name 'ShutdownBlockReasonQuery';
}
Die habe ich doch richtig übertragen oder?
Also ich erkenn grad keinen Fehler
(Was aber nix heissen muss
)
@Roter Kasten:
Delphi-Quellcode:
var
LVersion : TWindowsVersionInfo;
LPath:PChar;
LHandle: THandle;
LCreate : TShutdownBlockReasonCreate;
begin
LVersion := TWindowsVersionInfo.Create(self);
try
if LVersion.MajorVersion >= 6 then
begin
LHandle:=GetModuleHandle(PChar('user32.dll'));//TODO: Was wenn nicht eingeloggt?
@LCreate := GetProcAddress(LHandle,PChar('ShutdownBlockReasonCreate'));
if Assigned(LCreate) then
begin
if LCreate(self.Handle,PWideChar(WideString('ShutdownBlockReason Test')))then SNLogger.log('Shutdown wird geblockt')
else SNLogger.log('Blocken nicht möglich'+SysErrorMessage(GetLastError));
end;
end;
finally
LVersion.Free;
end;
Hab mal die Sachen berücksichtigt. die zwei if's hab ich damit ich beim debuggen besser seh wo ich bin.
Hab den aufruf von LCreate(self....) mal zu den überwachten Ausdrücken gemacht und dort bekomm ich ein true angezeigt. hier springt das ganze dann aber ins else
