Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "WinAPI";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вниз

вимкнути комп'ютер під 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 вся гілка

Форум: "WinAPI";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.56 MB
Час: 0.025 c
1-74673
Svin
2002-12-09 14:40
2002.12.23
МАТЕМАТИКА


14-74947
race1
2002-12-01 16:29
2002.12.23
ndd and ntfs


1-74650
harismatik
2002-12-12 18:50
2002.12.23
Позиціонування курсора в ListView


1-74726
Gennadiy
2002-12-13 12:16
2002.12.23
Робота з текстом


1-74629
vilfred
2002-12-10 14:42
2002.12.23
глюки в оголошенні змінних





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська