Форум: "Начинающим";
Текущий архив: 2007.09.09;
Скачать: [xml.tar.bz2];
Вниз
GetFileTime для выполняемого exe Найти похожие ветки
← →
DevilDevil © (2007-08-16 14:15) [0]проблемы в открытии файла:
H := FileOpen(pchar(paramstr(0)), fmOpenRead);
H всегда -1
← →
Сергей М. © (2007-08-16 14:21) [1]На Win32Check(FileOpen(..) >= 0) фантазии уже не хватило ?
И причем здесь GetFileTime, если ты получил отлуп еще ДО того как ?
← →
Leonid Troyanovsky © (2007-08-16 14:23) [2]
> DevilDevil © (16.08.07 14:15)
> H := FileOpen(pchar(paramstr(0)), fmOpenRead
fmOpenRead or fmShareDenyNone
--
Regards, LVT.
← →
DevilDevil © (2007-08-16 14:35) [3]> Leonid Troyanovsky © (16.08.07 14:23) [2]
спасибо, помогло
> И причем здесь GetFileTime
:) а я предвидел, что гладко ничего не пойдёт :)
const
MonthsConsts : array[0..11] of string = ("ÿíâàðÿ", "ôåâðàëÿ", "ìàðòà",
"àïðåëÿ", "ìàÿ", "èþíÿ", "èþëÿ", "àâãóñòà", "ñåíòÿáðÿ", "îêòÿáðÿ", "íîÿáðÿ", "äåêàáðÿ");
procedure TForm1.FormCreate(Sender: TObject);
var
T, D : TFileTime;
S : TSystemTime;
Str : string;
H : integer;
begin
H := FileOpen(pchar(paramstr(0)), fmOpenRead or fmShareDenyNone);
GetFileTime(H, @T, nil, nil);
FileClose(H);
//FileTimeToLocalFileTime(T, D);
//FileTimeToSystemTime(D, S);
FileTimeToSystemTime(T, S);
Str := Format("%d %s %d", [S.wDay, MonthsConsts[S.wMonth], S.wYear ]);
Caption := Str;
end;
<-- этот код коворит, что сегодня 16 сентября
← →
DevilDevil © (2007-08-16 14:37) [4]мда...
const
MonthsConsts : array[0..11] of string = ("января", "февраля", "марта",
"апреля", "мая", "июня", "июля", "августа", "сентября", "октября", "ноября", "декабря");
← →
Сергей М. © (2007-08-16 14:41) [5]http://www.swissdelphicenter.ch/torry/showcode.php?id=30
← →
DevilDevil © (2007-08-16 14:46) [6]похоже, месяц измеряется 1..12
← →
DevilDevil © (2007-08-16 15:02) [7]всем спасибо...
единственный вопрос, FileTimeToSystemTime(T, S) достаточно ?
← →
Сергей М. © (2007-08-16 15:20) [8]Мож и достаточно)
Но мне просто интересно - как вся эта файлотаймовая петрушка "вяжется" со стеком, селекторами и прочей лабудой ?)
← →
DevilDevil © (2007-08-16 15:54) [9]> Сергей М. © (16.08.07 15:20) [8]
Гы :) никак!
стек - для себя, "файловая петрушка" - для работы. :)
← →
DVM © (2007-08-16 15:57) [10]
> DevilDevil ©
Вариант без FileOpen:
function GetFileDateTime(FileName: string): TDateTime;
var
FindData: TWin32FindData;
FileHandle: THandle;
LocalFileTime: TFileTime;
DosFileTime: DWORD;
begin
Result := 0;
FileHandle := FindFirstFile(PChar(FileName), FindData);
if FileHandle <> INVALID_HANDLE_VALUE then
begin
if (FindData.dwFileAttributes and FILE_ACTION_ADDED) = 0 then
begin
FileTimeToLocalFileTime(FindData.ftCreationTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime, LongRec(DosFileTime).Hi, LongRec(DosFileTime).Lo);
Result := FileDateToDateTime(DosFileTime);
end;
Windows.FindClose(FileHandle);
end;
end;
← →
Сергей М. © (2007-08-16 16:01) [11]
> DevilDevil © (16.08.07 15:54) [9]
> стек - для себя
Ну мож тогда есть резон устроить для себя обзор преимуществ и недостатков тех или иных существующих менеджеров ?
← →
DevilDevil © (2007-08-16 16:17) [12]> Ну мож тогда есть резон устроить для себя обзор преимуществ
> и недостатков тех или иных существующих менеджеров ?
:)
ну в стек я после всего узнанного не полезу :)
> DVM © (16.08.07 15:57) [10]
оба варианта равнозначны?
в моём варианте не вызывается FileTimeToDosDateTime
← →
Сергей М. © (2007-08-16 16:23) [13]
> в стек я после всего узнанного не полезу
да уж).. пока с "селектором" не разберешься - неча тебе там "ловить")
А чтобы разобраться - эт целая "эпоха" в твоей программерской жизни минует.
Как там у Великого Негритянского Поэта - то ?
"О сколько нам открытий чудных .." (С)
Так вроде бы ?)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.09.09;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.048 c
