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