Форум: "Система";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
ВнизКак заблокировать машину? Найти похожие ветки
← →
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 вся ветка
Форум: "Система";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.043 c