Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.20;
Скачать: CL | DM;

Вниз

дата изменения файла   Найти похожие ветки 

 
zokzok   (2004-06-04 20:01) [0]

пробовал процедуру из FAQ, но она выдаёт совсем другую дату (не ту, что показывает windows)


 
GuAV ©   (2004-06-04 20:24) [1]


> пробовал процедуру из FAQ

облегчи ортвчающим жизнь - приведи эту процедуру - не все желают за тебя в FAQ рыться (я не желаю)


 
zokzok   (2004-06-04 20:53) [2]


function GetFileDate(FileName: string): string;
var  FHandle: Integer;
begin  FHandle := FileOpen(FileName, 0);
 try    
Result:=DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
 finally    FileClose(FHandle);
 end;
end;


 
DDA ©   (2004-06-04 21:01) [3]

http://delphibase.endimus.com/?action=viewtopic&topic=fileattr

Ищи примеры Димки маслова


 
Andy BitOff ©   (2004-06-04 21:05) [4]

Так я делаю, когда не хочу менять дату файла после внесений в него изменений:

var
 t1,t2,t3:TFileTime;
 h:hFile;
begin
 h:=_lopen(PChar(s),OF_READWRITE);
 GetFileTime(h,@t1,@t2,@t3);

 ...

 SetFileTime(h,@t1,@t2,@t3);
 CloseHandle(h);


Ети три даты (t1,t2,t3) и есть все даты файла, которые показывает винда.


 
zokzok   (2004-06-04 21:52) [5]

это всё круто, а как быть с датой изменения файла?


 
Anatoly Podgoretsky ©   (2004-06-04 22:12) [6]

Используй FindFirst это проще будет, выдаются все три даты


 
Andy BitOff ©   (2004-06-04 22:22) [7]

lpCreationTime
Points to a FILETIME structure to receive the date and time the file was created. This parameter can be NULL if the application does not require this information.

lpLastAccessTime
Points to a FILETIME structure to receive the date and time the file was last accessed. The last access time includes the last time the file was written to, read from, or, in the case of executable files, run. This parameter can be NULL if the application does not require this information.

lpLastWriteTime
Points to a FILETIME structure to receive the date and time the file was last written to. This parameter can be NULL if the application does not require this information.

первое это t1 - CreationTime
второе это t2 - LastAccessTime
третье это t3 - LastWriteTime


 
panov ©   (2004-06-04 22:35) [8]

ShowMessage(DateTimeToStr(FileDateToDateTime(FileAge("c:\autoexec.bat"))));



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

Текущий архив: 2004.06.20;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.039 c
1-1086366335
Wily
2004-06-04 20:25
2004.06.20
Работа с командной строкой...


14-1086152635
roughneck
2004-06-02 09:03
2004.06.20
Как можно продавать свои программы?


1-1086279510
MAPIIIAJL
2004-06-03 20:18
2004.06.20
Автоматизация в Excel


4-1084597907
Seldon
2004-05-15 09:11
2004.06.20
Кнопка на taskbar и Caption формы


3-1085634334
radix
2004-05-27 09:05
2004.06.20
Поиск по полю BLOB