Este artigo descreve o método de implementação de leitura de hora e data do sistema no Delphi. Primeiro, configure vários controles para exibir a hora, ler a hora e definir a hora. Em seguida, adicione o seguinte código:
unit Unit1;interfacea Windows, Mensagens, SysUtils, Classes, Gráficos, Controles, Formulários, Diálogos, StdCtrls;tipo TForm1 = class(TForm) Button1: TButton; Memo1: TMemo procedimento Button1Click(Sender: TObject procedimento); FormCreate(Remetente: TObject); procedimento Button2Click(Remetente: TObject); private { Declarações privadas } public { Declarações públicas } end;var Form1: TForm1;implementação{$R *.DFM}usa ShellAPI;função SetSystemDateTime(Ano, Mês, Dia, Hora, Minuto, Segundo: palavra): inteiro ; exportar procedimento SetDate(Ano, Mês, Dia: Assembly MOV CX,Ano MOV DH,BYTE PTR Mês MOV); DL,BYTE PTR Dia MOV AH,2BH INT 21H fim do procedimento SetTime(Hora, Minuto, Segundo, Sec100: Palavra 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 final;início SetDate(Ano, Mês, Dia); SetTime(Hora, Minuto + 1, Segundo, 0); resultado := 1;end;procedure TForm1.Button1Click(Sender: TObject);var st : TSYSTEMTIME;begin //Obter a hora do sistema GetSystemTime(st ); //Exibe a hora do sistema Memo1.Lines.Add('Hora do sistema = ' + IntToStr(st.wmonth) + '/' + IntToStr(st.wDay) + '/' + IntToStr(st.wYear) + ' ' + IntToStr(st.wHour) + ':' + IntToStr(st.wMinute) + ':' + IntToStr(st.wSecond));end;procedure TForm1.FormCreate (Remetente: TObject);begin Memo1.Lines.Clear;end;procedure TForm1.Button2Click(Sender: TObject);var st: TSYSTEMTIME;begin DateTimeToSystemTime(StrToDatetime('2002-06-23 15:39:46' ),st);