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

Перезагрузка компа, перез. системы и выключение компа как ?   Найти похожие ветки 

← →
maxim2 ©   (2002-12-12 21:20) [0]

Привет всем!
Программно как?

---

← →
Song ©   (2002-12-12 22:19) [1]

ExitWindowsEx()

---

← →
Udjin ©   (2002-12-13 15:42) [2]

Не выключить его так под NT можно так


function ExitWindows(uFlags: UINT): BOOL;
var
ProcessHandle: THandle;
TokenHandle: THandle;
Luid: Int64;
Tkp: TTokenPrivileges;
BufferNeeded: DWORD;
begin
if Win32Platform=VER_PLATFORM_WIN32_NT then begin
ProcessHandle:=GetCurrentProcess;
OpenProcessToken(ProcessHandle, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TokenHandle);
LookupPrivilegeValue(nil, "SeShutdownPrivilege", Luid);
Tkp.PrivilegeCount:=1;
Tkp.Privileges[0].Luid:=Luid;
Tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(TokenHandle, FALSE, Tkp, 0, nil, BufferNeeded);
end;
Result:=ExitWindowsEx(uFlags, $FFFF);
end;

---

← →
Udjin ©   (2002-12-13 15:43) [3]

Вообще вопросу этому давно пора в FAQ

---

← →
Anatoly Podgoretsky ©   (2002-12-13 15:51) [4]

Одного не достаточно, вот первый быстро найденный http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988621105&n=15

---

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

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



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