Как заблокировать машину?

← →
Pipl © (2003-11-16 00:31) [0]

← →
Pat © (2003-11-16 01:52) [1]

Хотя бы ОСь указал....
Для НТ - LockWorkStation...кажись, в shell32.dll или user32...точно не помню, щас на 98 сижу. Посмотри по экспорту

← →
C@N © (2003-11-16 17:59) [2]

Че за Х-еннь

← →
Manulo © (2003-11-17 11:26) [3]

для 2000/ХР
var Form2 : TForm2; Procedure BlockInput(ABlockInput : boolean); stdcall; external "USER32.DLL"; ....... procedure TForm1.Button1Click(....); begin BlockInput (true); //соответственно BlockInput (false); end;

← →
xxxXXxx (2003-11-17 11:31) [4]

в Win2k:
Ctrl-Alt-Del (можно одновременно, а можно, в перечисленном порядке названия клавиш) -> в появившемся окне нажимаешь Lock
Желательно, в БИОСе ещё поставить пароль на включение машины.
;)

Для win2k и nt тоже вроде работает

procedure TForm1.Lock1Click(Sender: TObject);
begin
LockWorkStation;
end;

procedure TForm1.Logoff1Click(Sender: TObject);
begin
ExitWindowsEx(EWX_LOGOFF, 0);
end;

procedure TForm1.Reboot1Click(Sender: TObject);
begin
ExitWindowsEx(EWX_REBOOT, 0);
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
ExitWindowsEx(EWX_POWEROFF, 0);
end;

А может еще кто подскажет как узнать заблокирована ли в данный момент машина или нет (W2k)

Как заблокировать машину? Найти похожие ветки