| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Pipl ©   (2003-11-16 00:31:00) 

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

---

Delf   (2003-11-18 09:29:00) [1]

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

---

EtOH   (2003-11-17 11:54:00) [2]

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

---

xxxXXxx   (2003-11-17 11:31:00) [3]

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

---

Manulo   (2003-11-17 11:26:00) [4]

для 2000/ХР

var
Form2 : TForm2;

Procedure BlockInput(ABlockInput : boolean); stdcall; external "USER32.DLL";
.......

procedure TForm1.Button1Click(....);
begin
BlockInput (true);

//соответственно
BlockInput (false);
end;


---

C@N   (2003-11-16 17:59:00) [5]

Че за Х-еннь

---

Pat   (2003-11-16 01:52:00) [6]

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

---

Наверх