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

Вниз

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

 
Paladin ©   (2004-04-13 18:56) [0]

Как можно программно выключить комп? (перезагрузить)??
--------------------------------------------
И еще: как сделать прогу в стиле Xp (кнопки и т.д.)
 Если что-то нужно скажите где взять!

Спасибо!!


 
Floppy   (2004-04-13 19:36) [1]

Не скажу по поводу D6, но этот код выключает компьютер под WinXP

Function SetPrivilege(aPrivilegeName: String; aEnabled: Boolean ): Boolean;
Var TPPrev, TP: TTokenPrivileges;
   Token: THandle;
   dwRetLen: DWord;
Begin
Result:=False;
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token);
TP.PrivilegeCount:=1;
IF LookupPrivilegeValue(nil,PChar(aPrivilegeName),TP.Privileges[0].LUID ){)} then
 Begin
  IF aEnabled then TP.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED
              else TP.Privileges[0].Attributes:=0;
  dwRetLen:= 0;
  Result:=AdjustTokenPrivileges(Token,False,TP,SizeOf(TPPrev),TPPrev,dwRetLen);
 End;
CloseHandle(Token);
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
SetPrivilege("SeShutdownPrivilege",True);
ExitWindowsEx(EWX_POWEROFF,0);
end;

Аналогично и перезагружает


 
Anatoly Podgoretsky ©   (2004-04-13 19:45) [2]

http://podgoretsky.com/ftp/Language/nps/ru.delphi.html#N162


 
(AD)acid ©   (2004-04-15 11:57) [3]

В XP можно не извращаться
запусти ShutDown.exe с нужными параметрами

Например : shutdown.exe -r -t 5



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

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

Наверх




Память: 0.47 MB
Время: 0.026 c
1-1084258074
Masatek
2004-05-11 10:47
2004.05.23
Работа с текстовыми блоками...


3-1082149737
lockheed_man
2004-04-17 01:08
2004.05.23
поиск записи в таблице


1-1083881446
oss
2004-05-07 02:10
2004.05.23
ворд и ShapeRange


1-1083933584
Nikolai_S
2004-05-07 16:39
2004.05.23
Как в TStringGrid отловить событие на двойной щелчок по заголовку


9-1073572104
ZAROLF
2004-01-08 17:28
2004.05.23
RLE сжатие для TDIB