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;
procedure TForm1.btn1Click(Sender: TObject); servidor:string; begin servidor:='TIME \\SERVIDOR /SET /Y'; ShellExecute(Handle, 'open', 'NET', PChar(servidor), nil, SW_HIDE); end;