Выкл. комп-ра

← →
V-Isa (2003-02-12 15:44) [0]

Как програмно выключить компьютер?

← →
Олег (2003-02-12 15:59) [1]

procedure TfrmMain.ShutDownSystem;
var
hToken: THandle;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;
begin
if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
begin
LookupPrivilegeValue(nil, "SeShutdownPrivilege",tkp.Privileges[0].Luid);
tkp.PrivilegeCount:=1;
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength);
end;
ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;

← →
Андрей Сенченко (2003-02-12 16:03) [2]

Для W95/98 достаточно
C:\WINDOWS\RUNDLL.EXE user.exe,ExitWindows

← →
Reindeer Moss Eater (2003-02-12 17:11) [3]

Для всех Win32:
rar a dummy *.dummy -ioff
:)

← →
Pakshin A. S. (2003-02-13 10:28) [4]

procedure Form1.Button1Click(sender: TObject);
begin
Win32Check(ExitWindows(0, 0)); // Выход из системы
Win32Check(ExitWindowsEx(EWX_REBOOT, 0)); // Перезагрузка системы
Win32Check(ExitWindowsEx(EWX_SHUTDOWN, 0)); // Выход и выключение питания
Win32Check(ExitWindowsEx(EWX_LOGOFF, 0)); // Выход из системы и вход под другим именем
end;

Выкл. комп-ра Найти похожие ветки