Форум: "WinAPI";
Текущий архив: 2003.12.04;
Скачать: [xml.tar.bz2];

Вниз

shut down для win2000, winnt, winXP   Найти похожие ветки 

← →
menart   (2003-10-07 08:32) [0]

Народ подскажите как выключить компьютер win2000, winnt, winXP из Делфей? Заренее благодарен

---

← →
AbrosimovA   (2003-10-07 10:18) [1]

Копай в сторону ExitWindowsEx

---

← →
Игорь Шевченко   (2003-10-07 10:43) [2]

FAQ

---

← →
vadfe   (2003-10-07 10:51) [3]

begin
if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
begin
LookupPrivilegeValue(nil, "SeShutdownPrivilege",tkp.Privileges[0].Luid);
tkp.PrivilegeCount:=1; // one privelege to set
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength)then
InitiateSystemShutdown(nil,"Shutdown", 30,True,False)
end;
end;
// 30 Время ожидания до выключения

---

← →
app   (2003-10-07 11:01) [4]

Чаво

---

← →
vadfe   (2003-10-07 11:05) [5]

ops.. sorry pl.
var
hToken: THandle;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;

---

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

Форум: "WinAPI";
Текущий архив: 2003.12.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.003 c