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

[zhook]

Как выключить компьютер нажатием на кнопку + до выключения у меня прописано несколько команд, выполняющих свою работу.
Поиск юзал не нашел ничего рабочего

[Valio]

Поиск юзал не нашел ничего рабочего

гонишь... каждую неделю поднимается этот вопрос. Всё работает.

[zhook]

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

гонишь... каждую неделю поднимается этот вопрос. Всё работает.

Дай пожалуйста пример 100% рабочий

[Valio]

С этогоже форума скопировал:

function HandleShut(CMD:UINT):boolean;
const SE_SH_N='SeShutdownPrivilege';
var hT:THandle;
    tkp:TTokenPrivileges;
    tkpo:TTokenPrivileges;
    zero:DWORD;
begin
Result:=False;
if WinID=VER_PLATFORM_WIN32_NT  then
  begin
  zero:=0;
  if not OpenProcessToken(GetCurrentProcess,Acc,hT) then exit;
  if not LookupPrivilegeValue(nil,SE_SH_N,tkp.Privileges[0].Luid)then Exit;
  tkp.PrivilegeCount:=1;
  tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
  AdjustTokenPrivileges(hT,False,tkp,SizeOf(TTokenPrivileges),tkpo,zero);
  if Boolean(GetLastError) then Exit;
  End;
Result:=ExitWindowsEx(CMD,0);
end;

function ExShutDown(Force:boolean=true):boolean;
Begin 
if Force Then Result:=HandleShut(EWX_SHUTDOWN or EWX_FORCE) else Result:=HandleShut(EWX_SHUTDOWN);
End;

[zhook]

Походу меня руки кривые
http://s41.radikal.ru/i092/1101/f2/c44c1576a7aa.png

[Valio]

Нет, это просто полное непонимание того чего ты делаешь...
Разберись сначала в коде.

[zhook]

Помоги пожалуйста, я еще нуб =(

[MyLastHit]

Может начать с чего нибудь попроще, раз нуб?..С "фэйков аськи например"
Это же автономная функция. Куда ты ее в процедуру кнопки пихаешь? Оформи отдельно и вызови в процедуре.
Заяц в яйце, яйцо в утке, утка в духовке?

[Valio]

zhook, напиши своё мыло. У меня в старых файлах остались рабочии исходники.. только что проверил их работоспособность. Даже попроще чем я привел изначально.

[zhook]

bochaivan@yandex.ru давай сюда наверно.