Как отобразить дату создания файла в формате dd/mm/yyyy

← →
klever (2006-05-15 13:44) [0]

Делаю так, но дата отображается неправильно

procedure TForm1.Button1Click(Sender: TObject);
var
hFile: Cardinal;
FileInfo: BY_HANDLE_FILE_INFORMATION;
begin
hFile := CreateFile(PChar(ParamStr(0)),GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,0,0 );
if hFile <> INVALID_HANDLE_VALUE then
begin
if GetFileInformationByHandle(hFile,FileInfo) then
ShowMessage(DateToStr(FileDateToDateTime(FileInfo.ftCreationTime.dwLowDateTime)) );
CloseHandle(hFile);
end;
end;

← →
balepa © (2006-05-15 14:33) [1]

MSDN + GetFileInformationByHandle

FileTimeToSystemTime

← →
balepa © (2006-05-15 14:39) [2]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/retrieving_the_last_write_time.asp

← →
klever (2006-05-15 15:06) [3]

Спасибо!

Как отобразить дату создания файла в формате dd/mm/yyyy Найти похожие ветки