Cet article décrit la méthode d'implémentation de lecture de l'heure et de la date du système dans Delphi. Tout d'abord, configurez divers contrôles pour afficher l'heure, lire l'heure et régler l'heure. Ajoutez ensuite le code suivant :
unité Unit1 ; interface utilise Windows, Messages, SysUtils, Classes, Graphiques, Contrôles, Formulaires, Boîtes de dialogue, StdCtrls ; tapez TForm1 = class(TForm) Button1 : TButton ; TMemo Button2 : TButton procédure Button1Click (Expéditeur : procédure TObject); FormCreate(Expéditeur : TObject); procédure Button2Click(Expéditeur : TObject); private { Déclarations privées } public { Déclarations publiques } end;var Form1 : TForm1;implementation{$R *.DFM}utilise ShellAPI;function SetSystemDateTime(Année, Mois, Jour, Heure, Minute, Seconde : mot) : entier ; export ; procédure SetDate (Année, Mois, Jour : Word ); asm MOV CX, Année MOV DH, BYTE PTR Mois MOV DL,BYTE PTR Jour MOV AH,2BH INT 21H fin ; procédure SetTime (Heure, Minute, Seconde, Sec100 : assembleur de mots ; asm MOV CH,BYTE PTR Hour MOV CL,BYTE PTR Minute MOV DH,BYTE PTR Second MOV DL); ,BYTE PTR Sec100 MOV AH,2DH INT 21H fin ; début SetDate (Année, Mois, Jour); SetTime(Hour, Minute + 1, Second, 0); result := 1;end;procedure TForm1.Button1Click(Sender: TObject);var st : TSYSTEMTIME;begin //Obtenir l'heure système GetSystemTime(st ) ; //Afficher l'heure système Memo1.Lines.Add('Heure système = ' + IntToStr(st.wmonth) + '/' + IntToStr(st.wDay) + '/' + IntToStr(st.wYear) + ' ' + IntToStr(st.wHour) + ':' + IntToStr(st.wMinute) + ':' + IntToStr(st.wSecond));fin;procédure TForm1.FormCreate (Expéditeur : TObject);début Memo1.Lines.Clear;fin;procédure TForm1.Button2Click(Sender: TObject);var st: TSYSTEMTIME;begin DateTimeToSystemTime(StrToDatetime('2002-06-23 15:39:46' ),st);