이 문서에서는 Delphi에서 시스템 시간과 날짜를 읽는 구현 방법을 설명합니다. 먼저 시간 표시, 읽기 시간 및 시간 설정을 위한 다양한 컨트롤을 설정합니다. 그런 다음 다음 코드를 추가합니다.
단위 Unit1;인터페이스는 Windows, 메시지, SysUtils, 클래스, 그래픽, 컨트롤, 양식, 대화 상자, StdCtrls를 사용합니다. TForm1 = class(TForm) Button1: TButton; TMemo; TButton; 프로시저 Button1Click(Sender: TObject); FormCreate(보내는 사람: TObject); 프로시저 Button2Click(보내는 사람: TObject); private { Private 선언 } public { Public 선언 } end;var Form1: TForm1;implementation{$R *.DFM}use ShellAPI;function SetSystemDateTime(연도, 월, 일, 시, 분, 초: 단어): 정수 ; 프로시저 SetDate(연도, 월, 일: 단어) asm MOV DH,BYTE PTR 월 MOV DL,BYTE PTR 일 MOV AH,2BH INT 21H end; 프로시저 SetTime(시, 분, 초, Sec100: 워드) asm MOV CH,BYTE PTR 시 MOV CL,BYTE PTR 분 MOV DH,BYTE PTR 초 MOV DL ,BYTE PTR Sec100 MOV AH,2DH INT 21H end;begin SetDate(연도, 월, 일); SetTime(시, 분 + 1, 초, 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;절차 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.