Приостановка и блокировка компа в win2000-xp

← →
stainer a (2002-05-10 14:32) [0]

Привет знатоки.
У меня два вопроса по win2000-xp
a) как программно приостановить работу компа (Hibernate)
б) как блокировать раб юстанцю (ctrl-alt-del -->> блокировка(Lock workstation))

← →
Jazzy$ (2002-05-10 16:07) [1]

Блокировка:
program lockw2k;

uses Windows;
var osv : TOSVersionInfo;
h : integer;
p : procedure;

begin
osv.dwOSVersionInfoSize := sizeof (osv);
if GetVersionEx(osv) then
if (osv.dwPlatformId = VER_PLATFORM_WIN32_NT) and
(osv.dwMajorVersion = 5) then
begin
h := LoadLibrary("user32.dll");
if h <> 0 then
begin
@p := GetProcAddress(h,"LockWorkStation");
if @p <> nil then
begin
p;
FreeLibrary(h);
end;
end;
end;
end.

← →
GreatMaster (2002-05-10 23:22) [2]

менее эстетично, но короче:
ShellExecute(0, "open", "rundll32", "user32,LockWorkStation", nil, 0);
В ХР ещё кажется WIN+L работает - тогда можно их симулировать.

← →
GreatMaster (2002-05-11 01:41) [3]

а hibernate вроде так делается:
SetSystemPowerState(false, true); {true - force}

Приостановка и блокировка компа в win2000-xp Найти похожие ветки