Скачать: CL | DM;

Как отобразить дату создания файла в формате 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]

Спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c