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

Вниз

Как программно ребутнуть компьютер   Найти похожие ветки 

 
alexus   (2003-05-07 19:03) [0]

Любезнейшие мастера, не подскажете функцию, которая позволяет ребутнуть комп?
Спасибо


 
vuk ©   (2003-05-07 19:42) [1]

InitiateSystemShutdown


 
Morfein ©   (2003-05-07 20:33) [2]

ExitWindowsEx(EWX_REBOOT + EWX_FORCE, 0);


 
Иван   (2003-05-08 11:40) [3]

Procedure RebootWindows;
Var
hToken : THandle;
tkp : _TOKEN_PRIVILEGES;
DUMMY : PTokenPrivileges;
DummyRL : Cardinal;
Begin
DUMMY := nil;
if Not OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then ShowError("OpenProcessToken failed");
if Not LookupPrivilegeValue(nil, "SeShutdownPrivilege" , tkp.Privileges[0].Luid) then ShowError("LookupPrivilegeValue failed");
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := $0002;
AdjustTokenPrivileges(hToken, FALSE, tkp, 0, Dummy, DummyRL);
if GetLastError() <> ERROR_SUCCESS then ShowError("AdjustTokenPrivileges failed");
if Not ExitWindowsEx(EWX_REBOOT, 0) then ShowError("ExitWindowsEx failed");
End; {- RebootWindows -}



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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
1-55601
Doid
2003-07-02 16:37
2003.07.17
Вызов в Delphi функции из DLL, написанной на C++Builder


3-55400
Вит
2003-06-23 14:31
2003.07.17
Как в Runtime какому-нибудь MEMO FastReport-а присвоить значение


14-55803
cyborg
2003-07-01 00:46
2003.07.17
Осторожно, идиотские инструкции!


3-55422
victor_ch
2003-06-24 09:18
2003.07.17
При дисконнекте с SYBASE через BDE выходит реплика


3-55402
DBDev
2003-06-23 16:02
2003.07.17
Коллеги, помогите с запросом ПЛИЗ!!!