| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как отобразить дату создания файла в формате dd/mm/yyyy [D7, Win95/98, WinXP]

klever ©   (2006-05-15 13:44:00) 

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

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;

---

klever   (2006-05-15 15:06:00) [1]

Спасибо!

---

balepa   (2006-05-15 14:39:00) [2]

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

---

balepa   (2006-05-15 14:33:00) [3]

MSDN + GetFileInformationByHandle

FileTimeToSystemTime

---

Наверх