Meinst du so? Mach ich ja, aber das hilft nix. Auf dem Testsystem hab ich leider kein Delphi installiert
Delphi-Quellcode:
var LVersion : TWindowsVersionInfo;
begin
LVersion := TWindowsVersionInfo.Create(self);
try
if LVersion.MajorVersion >= 6 then
begin
if ShutdownBlockReasonCreate(self.Handle,'Testprogramm für ShutdownBlockReason')then SNLogger.log('Shutdown wird geblockt')
else SNLogger.log('Blocken nicht möglich'+SysErrorMessage(GetLastError));
end;
finally
LVersion.Free;
end;