[ecfisa]

Empezado por eroblesh

oki gracias a mi se me habia ocurrido algo asi pero no lo he podido probar crees que funcione este codigo??

Código Delphi [-]
procedure TForm1.btn1Click(Sender: TObject);
  servidor:string;
begin
  servidor:='TIME \\SERVIDOR /SET /Y';
   ShellExecute(Handle, 'open', 'NET', PChar(servidor), nil, SW_HIDE);
end;

grax

No puedo probarlo en este momento, pero entiendo que tendría que funcionar correctamente.

Un saludo.