Cita:
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