Ir al contenido


Foto

¿Cómo asignar la hora de Windows desde Delphi?


  • Por favor identifícate para responder
4 respuestas en este tema

#1 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 24 septiembre 2009 - 05:25

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

Imagen Enviada


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



delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var dt: TSystemTime;
  3. begin
  4.   dt.wDay := StrToInt(Edit1.Text);
  5.   dt.wMonth := StrToInt(Edit2.Text);
  6.   dt.wYear := StrToInt(Edit3.Text);
  7.   dt.wHour := StrToInt(Edit4.Text);
  8.   dt.wMinute := StrToInt(Edit5.Text);
  9.   dt.wSecond := StrToInt(Edit6.Text);
  10.   dt.wMilliseconds := 0;
  11.  
  12.   if SetSystemTime(dt) then
  13.     ShowMessage('¡Se ha configurado la hora con éxito!')
  14.     else
  15.     ShowMessage('¡Hubo un problema!');
  16. end;



Más información acerca de la API SetSystemTime

Qué lo disfruten ;)

Saludos.
  • 0

#2 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 24 septiembre 2009 - 05:29

Anda amigo, estas desatado, que bien mas contenido técnico (y) :)

Salud OS
  • 0

#3 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 24 septiembre 2009 - 05:36

Así es, antes de que la borrachera me venza voy colocando codes ;).
  • 0

#4 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4.107 mensajes
  • LocationMadrid - España

Escrito 24 septiembre 2009 - 05:55

Te lo tomaste en serio... :D  (y)

Saludos.
  • 0

#5 razadi

razadi

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 681 mensajes
  • LocationMéxico D.F.

Escrito 25 septiembre 2009 - 07:40

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

saludos
  • 0




IP.Board spam blocked by CleanTalk.