VPF::Дату и время создания открытого файл?

Jury

Дата 20.9.2003, 07:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 9.9.2003

Репутация: нет
Всего: нет

Существует запущенный файл 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 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

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

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

p0s0l

Дата 20.9.2003, 12:45 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

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

--------------------

С уважением, г-н Посол.

Vit

Дата 20.9.2003, 13:12 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Код


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

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »