Este artículo describe el método de implementación para leer la hora y la fecha del sistema en Delphi. Primero, configure varios controles para mostrar la hora, leer la hora y configurar la hora. Luego agregue el siguiente código:
unidad Unidad1; interfaz utiliza Windows, Mensajes, SysUtils, Clases, Gráficos, Controles, Formularios, Diálogos, StdCtrls; escriba TForm1 = clase (TForm) Botón1: TButton: TMemo Botón2: Procedimiento TButton (Remitente: TObject); FormCreate(Remitente: TObject); procedimiento Button2Click(Remitente: TObject); private { Declaraciones privadas } public { Declaraciones públicas } end;var Form1: TForm1;la implementación{$R *.DFM}usa ShellAPI;función SetSystemDateTime(Año, Mes, Día, Hora, Minuto, Segundo: palabra): entero ; exportar; procedimiento SetDate(Año, Mes, Día: Palabra ensamblador; asm MOV CX,Año MOV DH,BYTE PTR Mes MOV); DL,BYTE PTR Día MOV AH,2BH INT 21H fin; procedimiento SetTime(Hora, Minuto, Segundo, Sec100: Palabra; asm MOV CH,BYTE PTR Hora MOV CL,BYTE PTR Minuto MOV DH,BYTE PTR Segundo MOV DL ,BYTE PTR Sec100 MOV AH,2DH INT 21H fin;comienzo de SetDate(Año, Mes, Día); SetTime(Hora, Minuto + 1, Segundo, 0); resultado := 1;end;procedure TForm1.Button1Click(Sender: TObject);var st : TSYSTEMTIME;begin //Obtener la hora del sistema GetSystemTime(st ) ; //Mostrar la hora del sistema Memo1.Lines.Add('Hora del sistema = ' + IntToStr(st.wmonth) + '/' + IntToStr(st.wDay) + '/' + IntToStr(st.wAño) + ' ' + IntToStr(st.wHora) + ':' + IntToStr(st.wMinuto) + ':' + IntToStr(st.wSecond));fin;procedimiento TForm1.FormCreate (Remitente: TObject);comenzar Memo1.Lines.Clear;finalizar;procedimiento TForm1.Button2Click(Remitente: TObject);var st: TSYSTEMTIME;begin DateTimeToSystemTime(StrToDatetime('2002-06-23 15:39:46' ),st);setSystemTime(st);end;end.