System anhalten bis Form geschlossen ist.

[Frank2269]

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;