Tomar la hora de mi servidor en un programa desde una pc

[ecfisa]

Hola eroblesh.

Si querés sincronizar la hora del equipo con la del servidor, para luego usar la sentencia de tu último mensaje, sería:

Código Delphi [-]
procedure TForm1.btnSyncClick(Sender: TObject);
begin
  ShellExecute(Handle, 'open', 'NET', 'TIME \\NOMBRE_DEL_SERVIDOR /SET /Y', nil, SW_HIDE);
end;

Saludos.

[eroblesh]

Ok Gracias lo implemento y espero que funcione lo malo es que sera hasta el lunes por que hoy estoy programando en casa y pues el servidor y la LAN estan en en la oficina pero enserio te agradezco muchisimo !! el lunes estare informando si funciono gracias!!!!

[eroblesh]

Perdon una pregunta mas, que unit tengo que declarar para agregar el ShellExecute? GraCIAS

[eroblesh]

Empezado por eroblesh

Perdon una pregunta mas, que unit tengo que declarar para agregar el ShellExecute? GraCIAS

YA VI EN QUE UNIDAD GRACIAS Y JUSTO LO ENCONTRE AQUI!!!!!!!!!!!!!!!!

[eroblesh]

Muchas gracias !! el codigo funciono genial me va a ayudar mucho para el control de los usuarios GRACIAS de nuevo!

[eroblesh]

Y solo por curiosidad intente hacer que en la sentencia que me diste

ShellExecute(Handle, 'open', 'NET', 'TIME \\SERVIDOR /SET /Y', nil, SW_HIDE);

'SERVIDOR' sea una variable, lo intente de varias formas pero me marca un erros no se si esto se pueda hacer:

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

me podrian comentar en que me esta fallando? gracias

[Casimiro Noteví]

Por favor, no olvides poner etiquetas al código, gracias.
Ejemplo:



.

[ecfisa]

Empezado por eroblesh

Y solo por curiosidad intente hacer que en la sentencia que me diste

ShellExecute(Handle, 'open', 'NET', 'TIME \\SERVIDOR /SET /Y', nil, SW_HIDE);

'SERVIDOR' sea una variable, lo intente de varias formas pero me marca un erros no se si esto se pueda hacer:

me podrian comentar en que me esta fallando? gracias

Hola eroblesh.

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

Saludos.