Hallo Interritor,
Um das System einzuschließen kannst du folgendes versuchen ...
Bei Windows 2000, NT 4 funktioniert das super.
Delphi-Quellcode:
Function LockWS: Boolean;
type
TLockWorkStation = function: Boolean;
var
hUser32: HMODULE;
LockWorkStation: TLockWorkStation;
begin
hUser32 := GetModuleHandle('USER32.DLL');
if hUser32 <> 0 then
begin
@LockWorkStation := GetProcAddress(hUser32, 'LockWorkStation');
if @LockWorkStation <> nil then
begin
LockWorkStation;
Result := True;
end;
end;
end;
Der Aufruf der Function ist ...
Delphi-Quellcode:
procedure TForm1.SytemEinschlieen1Click(Sender: TObject);
begin
if not LockWorkStation then MessageDlg('Vorgang fehlgeschlagen !', mtError,[mbOk], 0);
end;