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

Вниз

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

← →
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

---

← →
novill ©   (2006-06-27 15:32) [5]

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

---

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

> 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

---

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

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

Наверх

Память: 0.48 MB
Время: 0.042 c