Desligar estaçao atraves do servidor

seguinte cara, vc vai ter que ter um programa instalado em cada maquina da rede, e o programa se conecta com um programa central no servidor.
isto pode ser feito usando sockets

o aplicativo servidor manda uma mensagem pro cliente dizendo que o mesmo deve se desligar.
assim que o aplicativo na maquina cliente ler esse comando ela se desliga

uma dica, deixe o aplicativo cliente no traypopup.

qq dúvida pergunte

até

navoid, achei muito interessante, essa idéia, gostaria de saber mais sobre como colocar meu aplicativo no tray do windows, vc poderia me mandar alguma coisa explicando... fontes, qualquer coisa, etc

Obrigado. Tenha um bom final de semana.

Desculpa esqueci de colocar meu e-mail ai em cima:

jcgaiotto@hotmail.com

Valew.....

Tem um livro que ensina a trabalhar com Sockets e até dá mostra como exemplo essa sua necessidade.

O livro é da VisualBooks ([url]http://www.visualbooks.com.br[/url]) e se chama ´Administração Remota em Delphi´, cujo autor é Leandro Cristovão. Custa R$29,00 e vai te dar uma boa noção de administração remota.

unit Shutdown;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TNTShutdown = class(TComponent)
private
{ Private declarations }
FMachineName:String;
FMessage:String;
FTimeOut:DWORD;
FForceApps:Boolean;
FReboot:Boolean;
protected
public
published
property MachineName:String read FMachineName write FMachineName;
property MessageTxt:String read FMessage write FMessage;
property CountdownLength:DWORD read FTimeOut write FTimeOut;
property KillAllApps:Boolean read FForceApps write FForceApps default False;
property RebootNotShutdown:Boolean read FReboot write FReboot default False;
function Execute:Boolean;
end;

procedure Register;

implementation

function TNTShutdown.Execute:Boolean;
begin
If FMachineName=´´ Then
Begin
If InitiateSystemShutdown(nil,PChar(FMessage),FTimeOut,FForceApps,FReboot)=False Then
Begin
Result:=False;
Exit;
End;
End Else
Begin
If InitiateSystemShutdown(PChar(FMachineName),PChar(FMessage),FTimeOut,FForceApps,FReboot)=False Then
Begin
Result:=False;
Exit;
End;
End;
Result:=True;
end;

procedure Register;
begin
RegisterComponents(´Napoles´, [TShutdown]);
end;

end.

Testa esse componente acima.