Como desligar o computador

[kabessa 0]

Aeee galera alguem sabe o comando q desliga o computador

[Eduardo Valentim 0]

Olá,

 

Não sei se existe outra função, até porque nunca precisei desligar um micro, mas uso está aqui InitiateSystemShutdown para desligar micros na rede, se você fornecer o nome do próprio micro onde esteja executando o software talvez funcione.

 

Abraços

[Aroldo Zanela 0]

Colega,

 

Encontrei esta dica na Web:

 

function DoExitWindows(RebootParam : Longword) : boolean;var  TTokenHd : THandle;  TTokenPvg : TTokenPrivileges;  cbtpPrevious : DWORD;  rTTokenPvg : TTokenPrivileges;  pcbtpPreviousRequired : DWORD;  tpResult : boolean;const  cSE_SHUTDOWN_NAME = 'SeShutdownPrivilege';begin  if (Win32Platform = VER_PLATFORM_WIN32_NT) then begin    tpResult := OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGESor TOKEN_QUERY, TTokenHd);    if tpResult then begin      tpResult := LookupPrivilegeValue(nil,cSE_SHUTDOWN_NAME, TTokenPvg.Privileges[0].Luid);      TTokenPvg.PrivilegeCount := 1;      TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;      cbtpPrevious := SizeOf(rTTokenPvg);      pcbtpPreviousRequired := 0;      if tpResult then        Windows.AdjustTokenPrivileges(TTokenHd, false, TTokenPvg,cbtpPrevious, rTTokenPvg, pcbtpPreviousRequired);    end;  end;  Result := ExitWindowsEx(RebootParam, 0);end; {ExitWindows}DoExitWindows(EWX_SHUTDOWN or EWX_FORCE);

[kabessa 0]

vlw AROLDO, essa function ela naum desliga o computar e sim fecha todos os programas em execução.Mais kra vlw mesmo, mais uma coisa util q posso usar em outros sistemas....Agradecido