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

Вниз

выключить комп под XP   Найти похожие ветки 

 
pag77 ©   (2002-11-07 19:51) [0]

я тут в форуме нашел кое-что, перезагружается он хорошо, а вот выключается не всегда (или зависает, или идет на перезагрузку, причем первое чаще). Помогите кто-чем может!

// перезагруз и выключение
procedure TForm1.Button1Click(Sender: TObject);
begin
ExitWinNT(false);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ExitWinNT(true);
end;

// ********* выключить/перезагрузить
procedure Tform1.ExitWinNT(AShutdown: Boolean);
var
hToken: THandle;
tkp: TTokenPrivileges;
ReturnLength, What: Cardinal;
begin
if AShutdown then
What := EWX_SHUTDOWN or EWX_POWEROFF
else
What := EWX_REBOOT;
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(What, 0)
end
end;



 
pag77 ©   (2002-11-08 20:06) [1]

ну хоть кто-нибудь.........


 
k-sergey   (2002-11-11 07:40) [2]

Дома есть примерчик...напиши на мыло, я тебе в обратку отправлю...


 
Song ©   (2002-11-11 09:07) [3]

http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi;action=display;num=1036752968


 
daan_m ©   (2002-11-11 11:11) [4]

> pag77
я испытал твой вариант. У меня он работал!



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

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

Наверх




Память: 0.47 MB
Время: 0.02 c
14-74956
Сатир
2002-12-02 21:04
2002.12.23
предложение добавить к правилам


7-75018
Youriy
2002-10-03 21:12
2002.12.23
Помогите с векторами прерываний...!


7-75026
Aleksey Pavlov
2002-10-17 12:11
2002.12.23
root CIMV2 -> Win32_*


14-74938
KidMan
2002-12-01 23:42
2002.12.23
Простите но опять об Инстал Шиилдс и BDE


14-74895
Дмитрий К.К.
2002-12-04 14:03
2002.12.23
Текстовый редактор