Alguém sabe como desligar o WIndows 2000 professional, via código delphi ??

Tenho um exemplo, mas só funciona para Win 98 !

Vejam abaixo o ex. para Win98 :

-----------------------------------------------------------------
uses Shellapi;

{$R *.DFM}

procedure desliga;
begin
   ExitWindowsEx(EWX_SHUTDOWN+EWX_FORCE, 0);
end;
-----------------------------------------------------------------

Alguém sabe ?

[ ]'s


[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 


Responder a