delphi API使用例子，日期时间等

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Comserv, HTTPApp;

type
  TForm3 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
  ShowMessage('ok');
  Abort;
  ShowMessage('hehe');
end;

procedure TForm3.Button2Click(Sender: TObject);
var
  ret: Integer;
  date: TDateTime;
  str: string;
  timeStamp: TTimeStamp;
begin
  ret := AnsiCompareStr('hehe', 'hehe');
  ShowMessage(IntToStr(ret));
  ret := DateTimeToFileDate(Now());
  ShowMessage(IntToStr(ret));

  ShowMessage('timeStamp');
  timeStamp := DateTimeToTimeStamp(Now());
  ShowMessage(IntToStr(timeStamp.Time));
  ShowMessage(IntToStr(timeStamp.date));

  date := FileDateToDateTime(ret);
  ShowMessage(DateTimeToStr(date));
  ShowMessage(DateToStr(date));
  // DateTimeToString(str,'%d',date);
  // str:=FormatDateTime('',date);

  ShowMessage('Date:' + DateToStr(date));

end;

procedure TForm3.Button3Click(Sender: TObject);
var
  present: TDateTime;
  year, month, day, hour, min, sec, msec: Word;
begin
  present := Now;
  DecodeDate(present, year, hour, day);
  Memo1.Lines.Clear;
  Memo1.Lines.Add('Today is Day ' + IntToStr(day) + ' of Month ' + IntToStr
      (month) + ' of Year ' + IntToStr(year));

  DecodeTime(present, hour, min, msec, msec);
  Memo1.Lines.Add('The time is Minute ' + IntToStr(min) + ' of Hour ' + IntToStr
      (hour));

  Memo1.Lines.Add(IntToStr(year) + '-' + IntToStr(month) + '-' + IntToStr(day)
      + ' ' + IntToStr(hour) + ':' + IntToStr(min) + ':' + IntToStr(sec)
      + ':' + IntToStr(msec));
  DllregisterServer;
  DllUnregisterServer;
end;

procedure TForm3.Button4Click(Sender: TObject);
var
  path: string;
begin
  path := 'I:\IT\资料\技术帮助文档chm\android\test.txt';
  path := DOsPathToUnixPath(path);
  ShowMessage(path);

end;

procedure TForm3.Button5Click(Sender: TObject);
var
  MyDate, MyTime: TDateTime;
begin
  MyDate := EncodeDate(2013, 12, 31);
  Memo1.Lines.Add(DateToStr(MyDate));
  MyTime := EncodeTime(4, 45, 45, 7);
  Memo1.Lines.Add(TimeToStr(MyTime));
  Memo1.Lines.Add(ExpandFileName('test.exe'));
end;

procedure TForm3.Button6Click(Sender: TObject);
var
  str: string;
  strList: TStrings;
  Time: Integer;
  date: TDateTime;
begin
  Memo1.Lines.Add(ExtractFileDrive(Application.ExeName));
  Memo1.Lines.Add(ExtractFileDrive('text.doc'));
  // strList := TStrings.Create;
  // strList.Add('http://bbs.csdn.net/topics/335676');
  // procedure ExtractHTTPFields(Separators, WhiteSpace: TSysCharSet; Content: PChar;Strings: TStrings; StripQuotes: Boolean = False);
  // ExtractHTTPFields(['.'],['/'],PChar('http://bbs.csdn.net/topics/335676'),strList);
  // ExtractHTTPFields(['.'], ['/'], PChar('http://bbs.csdn.net/topics/335676'), strList, True);
  // Memo1.Lines.Add(strList.Text);
  str := ExtractRelativePath('e:\delphi_workspace\', Application.ExeName);
  // 获取文件日期时间
  Memo1.Lines.Add(str);
  Time := FileAge('d:\test.doc');
  date := FileDateToDateTime(Time);
  Memo1.Lines.Add(DateToStr(date) + ' ' + TimeToStr(date));
  Memo1.Lines.Add(FormatDateTime('时间:dddd yyyy mmmm d号' + ' hh:mm:ss AM/PM',
      StrToDateTime('2013/10/5 10:30:33:55')));
end;

procedure TForm3.Button7Click(Sender: TObject);
var
  InputString, NewString: string;
  ClickedOK, ret: Boolean;
  Yr, Mnth, day: Word;
begin

  DecodeDate(date, Yr, Mnth, day);
  ret := IsLeapYear(Yr);
  if ret then
    ShowMessage('是闰年')
  else
    ShowMessage('不是闰年');

  InputString := InputBox('Input Box', 'Prompt', 'default string');
  ShowMessage(InputString);
  NewString := 'hehe';
  ClickedOK := InputQuery('Input Box', 'Prompt', NewString);
  If ClickedOK then
    ShowMessage(NewString);

end;

procedure TForm3.Button8Click(Sender: TObject);
var
  ret:Integer;
begin
  MessageDlgPos('Are you there?' ,mtConfirmation,mbYesNoCancel,100,200,200);
  MessageDlg('Exiting the Object Pascal application.',mtInformation,[mbOk],0);
  Randomize;
  ret:=Random(10);
  ShowMessage(IntToStr(ret));
end;

end.