Форум: "Система";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
ВнизВыключение компа Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.046 c