Выключение компа

← →
Svoy Chelovek (2004-07-02 21:47) [0]

Помогите ...
Как в XP вырубить комп.........

← →
begin...end © (2004-07-02 21:53) [1]

ExitWindowsEx

← →
Огромное Кулясищще © (2004-07-02 23:02) [2]

http://www.swissdelphicenter.ch/torry/showcode.php?id=168

← →
Dextor (2004-07-03 12:38) [3]

procedure TForm1.Button1Click(Sender: TObject);
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;
if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then
ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;
end;

А вообще в следующий раз зырь FAQ !!!

Выключение компа Найти похожие ветки