| dolphin | Дата: Пятница, 12.12.2008, 22:20 | Сообщение # 1 |
Администратор
Сообщений: 906
Статус: 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 |
|
Администратор
Сообщений: 906
Статус: Offline
| Далеко неплохо 
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
| |
| Yangort | Дата: Четверг, 07.05.2009, 10:35 | Сообщение # 4 |
|
Группа: Удаленные
| Красоту наводить лень было...
|
| |
| |
