Скачать: CL | DM;

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

← →
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 !!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.036 c