[eroblesh]

Empezado por ecfisa

Hola eroblesh.

Código Delphi [-]
    ShellExecute(Handle, 'open', 'NET', PChar('TIME \\'+SERVIDOR+' /SET /Y'), nil, SW_HIDE);

Saludos.

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