Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.07;
Скачать: CL | DM;

Вниз

Выкл. комп-ра   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-19647
Opera
2003-03-25 19:16
2003.04.07
Определение


14-19767
NetBreaker666
2003-03-21 20:36
2003.04.07
И еще: зацените мой калькулятор.


3-19503
Behemoth
2003-03-20 10:26
2003.04.07
Ошибка при вызове ADOQuery.ExecSQL...


1-19569
isma
2003-03-25 09:34
2003.04.07
ListView-вопрос?


8-19703
drin
2002-12-23 03:45
2003.04.07
Форматы