| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как проще всего узнать время создания исполняемого файла ? [D6]
novill © (2006-06-27 15:13:00)При его выполнении (Из него самого)?
begin...end (2006-06-27 15:41:00) [1]> 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
novill (2006-06-27 15:32:00) [2]Что я не так делаю?
var
crsystime:TSystemTime;
crttime:TDateTime;
exename:string;
exedata:TWIN32FindDataA;
begin
exename:=ParamStr(0);
FindFirstFile(@exename,exedata);
FileTimeToSystemTime(exedata.ftCreationTime,crsystime);
crttime:=SystemTimeToDateTime(crsystime);
Джо (2006-06-27 15:20:00) [3]> [2] novill © (27.06.06 15:19)
> это хорошо, но если я не знаю дескриптора файла
Нужно узнать.
begin...end (2006-06-27 15:20:00) [4]FindFirstFile
novill (2006-06-27 15:19:00) [5]это хорошо, но если я не знаю дескриптора файла
Lamer@fools.ua (2006-06-27 15:16:00) [6]GetFileTime()
| |
