Главная страница
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.021 c
1-1091184470
ИМХО
2004-07-30 14:47
2004.08.15
Application.Terminate


8-1086150528
крот
2004-06-02 08:28
2004.08.15
Splitter


4-1089021102
Storm
2004-07-05 13:51
2004.08.15
завершение процесса


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


6-1084746834
w666w
2004-05-17 02:33
2004.08.15
ПОМОГИТЕ!!! как прикрутить к IEParser у события WebBrowser а