Как проще всего узнать время создания исполняемого файла ?

← →
novill © (2006-06-27 15:13) [0]

При его выполнении (Из него самого)?

← →
Lamer@fools.ua © (2006-06-27 15:16) [1]

GetFileTime()

← →
novill © (2006-06-27 15:19) [2]

это хорошо, но если я не знаю дескриптора файла

← →
Джо © (2006-06-27 15:20) [3]

> [2] novill © (27.06.06 15:19)
> это хорошо, но если я не знаю дескриптора файла

Нужно узнать.

← →
begin...end © (2006-06-27 15:20) [4]

FindFirstFile

Что я не так делаю?
var
crsystime:TSystemTime;
crttime:TDateTime;
exename:string;
exedata:TWIN32FindDataA;
begin
exename:=ParamStr(0);
FindFirstFile(@exename,exedata);
FileTimeToSystemTime(exedata.ftCreationTime,crsystime);
crttime:=SystemTimeToDateTime(crsystime);

> novill © (27.06.06 15:32) [5]

> exename:=ParamStr(0);
> FindFirstFile(@exename,exedata);

var
H: Cardinal;
begin
H := FindFirstFile(PChar(ParamStr(0)), exedata);
if H <> INVALID_HANDLE_VALUE then
try
...
finally
Windows.FindClose(H)
end
end

Как проще всего узнать время создания исполняемого файла ? Найти похожие ветки