Главная страница
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.053 c
4-1089046492
ИМХО
2004-07-05 20:54
2004.08.15
CLSID


8-1084569585
Chupa
2004-05-15 01:19
2004.08.15
DLL Для указания точной частоты звука.


6-1085680133
Delpher_Gray
2004-05-27 21:48
2004.08.15
Тормоза TIdHTTP


14-1090881349
Sanek_metaller
2004-07-27 02:35
2004.08.15
Люди! Кто нибудь играл в Gothic 2 !!!!?????


9-1083228212
xman
2004-04-29 12:43
2004.08.15
ГРАВИТАЦИЯ В КОСМОСЕ2