Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

shut down для win2000, winnt, winXP [D6, NT4, Win2k, WinXP]

menart © (2003-10-07 08:32:00)

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

vadfe (2003-10-07 11:05:00) [1]

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

app (2003-10-07 11:01:00) [2]

Чаво

vadfe (2003-10-07 10:51:00) [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Время ожидания до выключения

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

FAQ

AbrosimovA (2003-10-07 10:18:00) [5]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »