|
dolphin
|
Дата: Пятница, 12.12.2008, 22:20 | Сообщение # 1
|
Администратор
Сообщений: 902
Статус: Offline
|
procedure ShutdownComputer;
var
ph: THandle;
tp, prevst: TTokenPrivileges;
rl: DWORD;
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, ph);
LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid);
tp.PrivilegeCount := 1;
tp.Privileges[0].Attributes := 2;
AdjustTokenPrivileges(ph, FALSE, tp, SizeOf(prevst), prevst, rl);
ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end; |
| |
|
|
|
Yangort
|
Дата: Четверг, 30.04.2009, 14:22 | Сообщение # 2
|
Группа: Удаленные
|
Моя программа для выключения пк!
|
| |
|
|
|
dolphin
|
Дата: Четверг, 30.04.2009, 22:29 | Сообщение # 3
|
|
Администратор
Сообщений: 902
Статус: Offline
|
Далеко неплохо 
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
Yangort
|
Дата: Четверг, 07.05.2009, 10:35 | Сообщение # 4
|
|
Группа: Удаленные
|
Красоту наводить лень было... |
| |
|
|
