Форум: "Система";
Текущий архив: 2003.02.13;
Скачать: [xml.tar.bz2];
Вниз
Перезагрузка компа, перез. системы и выключение компа как ? Найти похожие ветки
← →
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 вся ветка
Форум: "Система";
Текущий архив: 2003.02.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c