Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Дату и время создания открытого файл?

Автор: Jury 20.9.2003, 07:01

Существует запущенный файл EXE, как у него определить дату и время создания?
Ниже приведена функция на WinXP она сработала, а на Win9x работать не хочет(Result:=0).
function DateFile(FN: string):TDateTime;
var
FileHandle: Integer;
Begin
Result:=0;
try
FileHandle:= FileOpen(FN, fmOpenRead);
Result:= FileDateToDateTime( FileGetDate(FileHandle));
FileClose(FileHandle);
except
end;
End;

Автор: Vit 20.9.2003, 12:43

FindFirst - там есть вся эта инфа.

Автор: p0s0l 20.9.2003, 12:45

Может проблема в доступе к файлу ? Попробуй сделать FileOpen(FN, fmOpenRead+fmShareDenyNone);
Или через CreateFile - так точно можно будет сделать.

Автор: Vit 20.9.2003, 13:12

Код


var ts:TSearchrec;
...
if FindFirst(Paramstr(0), faAnyFile, ts)=0 then  
 CreateDateTime:=FileDateToDateTime(ts.Time);
FindClose(ts);