В этой статье описывается реализация метода чтения системного времени и даты в Delphi. Сначала настроим различные элементы управления отображением времени, временем чтения и установкой времени. Затем добавьте следующий код:
модуль Unit1;интерфейсы, SysUtils, классы, графика, элементы управления, формы, диалоги, StdCtrls;тип TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButton; процедура Button1Click(Sender: TObject); FormCreate (Отправитель: TObject); Процедура Button2Click (Отправитель: TObject); Private {Частные объявления} public {Общественные объявления} end;var Form1: TForm1;реализация{$R *.DFM}использует ShellAPI;функция SetSystemDateTime(Год, Месяц, День, Час, Минута, Секунда: слово): целое число); ; экспорт; процедура SetDate(Год, Месяц, День: Ассемблер; asm MOV CX,Year MOV DH,BYTE PTR Month MOV); DL,BYTE PTR День MOV AH,2BH INT 21H конец процедуры SetTime(Час, Минута, Секунда, Сек100: Ассемблер; asm MOV CH,BYTE PTR Час MOV CL,BYTE PTR Минута MOV DH,BYTE PTR Вторая MOV DL); ,BYTE PTR Sec100 MOV AH,2DH INT 21H конец;начало SetDate(Год, Month, Day); SetTime(Hour, Minute + 1, Second, 0); result := 1;end;procedure TForm1.Button1Click(Sender: TObject);var st : TSYSTEMTIME;begin //Получаем системное время GetSystemTime(st); ) ); //Отображение системного времени Memo1.Lines.Add('Системное время = ' + IntToStr(st.wmonth) + '/' + IntToStr(st.wDay) + '/' + IntToStr(st.wYear) + ' ' + IntToStr(st.wHour) + ':' + IntToStr(st.wMinute) + ':' + IntToStr(st.wSecond));end;procedure TForm1.FormCreate (Отправитель: TObject);begin Memo1.Lines.Clear;end;procedure TForm1.Button2Click(Sender: TObject);var st: TSYSTEMTIME;begin DateTimeToSystemTime(StrToDatetime('2002-06-23 15:39:46'),st); SetSystemTime(st);end;end.