4 replies to this topic

[enecumene]

Pues eso, crearemos un nuevo proyecto y en ella colocaremos 6 TEdits, 6 TUpDown, 2 GroupBoxs y un TButton, debería de quedar más o menos así:

Ahora colocaremos este código en el evento OnClick del TButton:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var dt: TSystemTime;
begin
  dt.wDay := StrToInt(Edit1.Text);
  dt.wMonth := StrToInt(Edit2.Text);
  dt.wYear := StrToInt(Edit3.Text);
  dt.wHour := StrToInt(Edit4.Text);
  dt.wMinute := StrToInt(Edit5.Text);
  dt.wSecond := StrToInt(Edit6.Text);
  dt.wMilliseconds := 0;
 
  if SetSystemTime(dt) then
    ShowMessage('¡Se ha configurado la hora con éxito!')
    else
    ShowMessage('¡Hubo un problema!');
end;

Más información acerca de la API SetSystemTime

Qué lo disfruten

Saludos.

[egostar]

Anda amigo, estas desatado, que bien mas contenido técnico

Salud OS

[enecumene]

Así es, antes de que la borrachera me venza voy colocando codes .

[escafandra]

Te lo tomaste en serio...  

Saludos.

[razadi]

felicidades amigo, vamos por más, buen aporte.

saludos