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

Вниз

Выключение компа   Найти похожие ветки 

 
Svoy Chelovek   (2004-07-02 21:47) [0]

Помогите ...
Как в XP вырубить комп.........


 
begin...end ©   (2004-07-02 21:53) [1]

ExitWindowsEx


 
Огромное Кулясищще ©   (2004-07-02 23:02) [2]

http://www.swissdelphicenter.ch/torry/showcode.php?id=168


 
Dextor   (2004-07-03 12:38) [3]

procedure TForm1.Button1Click(Sender: TObject);
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;
 if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then
 ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;
end;

А вообще в следующий раз зырь FAQ !!!



Страницы: 1 вся ветка

Текущий архив: 2004.08.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.049 c
14-1091016756
Kreogen
2004-07-28 16:12
2004.08.15
Помогите с конфигурацией


3-1090330538
MORA
2004-07-20 17:35
2004.08.15
NULL


14-1091119273
Art_Z
2004-07-29 20:41
2004.08.15
Беспроводные сети


14-1090768954
квантум
2004-07-25 19:22
2004.08.15
программка


14-1091342436
Vladex
2004-08-01 10:40
2004.08.15
Востановление инфы