delphi 获取文件创建时间2

function GetBuildTime(const Path: String): String;

var

//  dateinteger: integer;

  datedouble: TDateTime;

  // handle : Cardinal;

  // bytesread : DWORD;

  // signature : DWORD;

  // dos_header : _IMAGE_DOS_HEADER;

  // pe_header  : _IMAGE_FILE_HEADER;

begin

  FileAge(path, datedouble);

//  datedouble := FileDateToDateTime(dateinteger);

  // handle := CreateFile(PChar(path),GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);

  // if handle <> INVALID_HANDLE_VALUE then begin

  // ReadFile(Handle, dos_header, sizeof(dos_header), bytesread, nil);

  // SetFilePointer(Handle, dos_header._lfanew, nil, 0);

  // ReadFile(Handle, signature,  sizeof(signature),  bytesread, nil);

  // ReadFile(Handle, pe_header,  sizeof(pe_header),  bytesread, nil);

  // Result := UnixToDateTime(pe_header.TimeDateStamp);

  // end else

  // Result := 0;

  // CloseHandle(handle);

  DateTimeToString(Result, 'mmmm d yyyy - hh:nn', datedouble);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

text:=GetBuildTime(Application.ExeName);

end;