Скачать: CL | DM;

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

← →
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
Желательно, в БИОСе ещё поставить пароль на включение машины.
;)

---

← →
EtOH ©   (2003-11-17 11:54) [5]

Для 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;

---

← →
Delf ©   (2003-11-18 09:29) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c