выключение компьютера

[Svop]

а как ее в реестре в авторан кинуть?

[zetrix]

Svop!
Прочитайте внимательно:

1) Новый вопрос - новая тема! - это самое главное

2)

а как ее в реестре в авторан кинуть?

Такая тема уже обсуждалась в разделе безопасность.
http://www.programmersforum.ru/showthread.php?p=8#post8

[komex]

А какую надо библеотеку подключить, чтобы все это работало?

[komex]

Сообщение от zetrix

В нужное событие (нажати на кнопку например) напиши: ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 );

А у меня эта функция почему-то не срабатывает. Хотя при компиляции никаких ошибок не возникает. В чем может быть проблема?

[SuperVisor]

Поспотри Windows SDK справку Delphi. ExitWindows в поиске и тема Shutting Down: там пример для XP.

[komex]

Сообщение от SuperVisor

Поспотри Windows SDK справку Delphi. ExitWindows в поиске и тема Shutting Down: там пример для XP.

Shutting Down - это помоему вообще не на делфи написано. Даже не знаю как это проверить. А ExitWindows не полностью выключает комп, а просто выходит из системы. Хотя для начала и это пойдет, но все таки интересно как выключить полностью?

[SuperVisor]

Полчаса для полного разбора написанного в инфе текста... Самообучение - великая вещь!!! Запомни это...

procedure ShutdownComputer;
var
  hToken: THandle;
  tkp, prevst: TTokenPrivileges;
  rl: DWORD;
begin
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
    TOKEN_QUERY, hToken);
  LookupPrivilegeValue(nil, ′SeShutdownPrivilege′, tkp.Privileges[0].Luid);
  tkp.PrivilegeCount := 1;
  tkp.Privileges[0].Attributes := 2;
  AdjustTokenPrivileges(hToken, FALSE, tkp, SizeOf(prevst), prevst, rl);
  ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;

Должно работать. Сам не стал проверять - коннект с сервером Traffic Compressor терять жалко....

[Сильванович Михаил]

Мне кажется, что я уже писал процедуру, работающую как в Win9x, так и в
WinNT, но только тема была по перезагрузке.
Посмотри http://www.programmersforum.ru/showp...72&postcount=4

Токмо код завершения работы надо другой использовать.

[komex]

SuperVisor, спасибо большое! Программа работает как надо!

[komex]

Сообщение от Сильванович Михаил

Мне кажется, что я уже писал процедуру, работающую как в Win9x, так и в
WinNT, но только тема была по перезагрузке.
Посмотри http://www.programmersforum.ru/showp...72&postcount=4

Токмо код завершения работы надо другой использовать.

Че-то я не совсем понял, на каком языке это написано? Там вроде получается функция в функции? И что это означает:

function IsWin9x: Bool; {True = Win9x, False = NT}
asm
xor eax, eax
mov ecx, cs
xor cl, cl
jecxz @@quit
inc eax
@@quit:
end;

Нет begin'а, а внутри вообще непонятно что. Может просто я плохо знаю Delphi?!

P.S. И вот в чем прикол, при компиляции не выдает никакой ошибки! Но программа все равно не работает. Т.е. запускается, но ничего не происходит!