Re: [delphi-br] Desligar Windows e executar comando

2005-05-15 Por tôpico Wilson Valdevite
obrigado, funcionou perfeitamente... - Original Message - From: ArbSis To: delphi-br@yahoogrupos.com.br Sent: Saturday, May 14, 2005 10:44 AM Subject: Re: [delphi-br] Desligar Windows e executar comando {Desligar o Windows use assim WinExit(EWX_SHUTDOWN or EWX_FORCE

Re: [delphi-br] Desligar Windows e executar comando

2005-05-14 Por tôpico ArbSis
{Desligar o Windows use assim WinExit(EWX_SHUTDOWN or EWX_FORCE); function TFVenda.WinExit(flags: integer): boolean; function SetPrivilege(privilegeName: string; enable: boolean): boolean; var tpPrev, tp : TTokenPrivileges; token : THandle; dwRetLen : DWord; begin resul

Re: [delphi-br] Desligar Windows e executar comando

2005-05-12 Por tôpico Oséias Ferreira
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 program desl; procedure Desliga; var hToken : THandle; tkp : TOKEN_PRIVILEGES; zero : DWord; begin OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES, hToken); LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid); tkp.Pri

[delphi-br] Desligar Windows e executar comando

2005-05-12 Por tôpico Wilson Valdevite
Como eu faço para desligar o windows via delphi e como eu faço para efetuar um comando dos? Já procurei em um monte de lugar e não encontrei e o qu eu encontrei não funciona em W2K... [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESP