Среда, 17.10.2018, 02:01 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Anton93  
delfcode » Delphi » Процедуры и функции Delphi » Выключение компьютера (Завершение работы компа)
Выключение компьютера
dolphinДата: Пятница, 12.12.2008, 22:20 | Сообщение # 1
Администратор
Сообщений: 903
Статус: 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
Группа: Удаленные



Моя программа для выключения пк!
Прикрепления: 3258731.rar(19.5 Kb)
 
dolphinДата: Четверг, 30.04.2009, 22:29 | Сообщение # 3
Администратор
Сообщений: 903
Статус: Offline
Далеко неплохо respect

Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
YangortДата: Четверг, 07.05.2009, 10:35 | Сообщение # 4
Группа: Удаленные



Красоту наводить лень было...
 
delfcode » Delphi » Процедуры и функции Delphi » Выключение компьютера (Завершение работы компа)
  • Страница 1 из 1
  • 1
Поиск:

delfcode.ru © 2008 - 2018 Хостинг от uCoz