| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Завершение работы Windows [D7, WinXP]

Саша ©   (2004-09-21 00:02:00) 

Привет ВСЕМ!!! Подскажите как в Delphi завершить работу Windows

---

atruhin   (2004-09-21 06:15:00) [1]

Может тебе это нужно?

program NTShutdown;
uses windows;
var
   hToken: THandle;
   tkp: TTokenPrivileges;
   ReturnLength: Cardinal;

begin
   if OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, hToken) then begin
  &n
bsp;    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
           ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
   end;
end.

---

GuAV   (2004-09-21 00:32:00) [2]

Завершить работу Windows как обычно.
Delрhi автоматически предложит сохранить все несохранённые файлы

---

Наверх