Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.27;
Скачать: CL | DM;

Вниз

работа с датами   Найти похожие ветки 

 
CAHbKA   (2003-02-18 07:32) [0]

Как узнать разницу (в секундах) между изменением файла и текущим временем.


 
MBo ©   (2003-02-18 07:36) [1]

F1 на TDateTime


 
dimonxp ©   (2003-02-18 10:26) [2]

В RXlib куч фунций по работе с датами


 
han_malign ©   (2003-02-18 10:42) [3]

примерно так:

uses Windows;
...............
function CmpFT(aFileName: string): int64;
var st: TSystemTime;
ft: TFileTime;
h: THandle;
fd: TWin32FindData;
begin
Result:=0;
h:=FindFirstFile(PChar(FileName),fd);
if((h<>0)and(h<>INVALID_HANDLE_VALUE))then begin
CloseHandle(h);
GetLocalTime(st);
if(SystemTimeToFileTime(st,ft))
then Result:=(int64(ft)-int64(fd.ftLastWriteTime))div 10000;
end;
end;


 
CAHbKA   (2003-02-18 11:14) [4]

Спасибо han_malign. Теперь осталось только на C++builder переложить.
Может еще у кого на чистом API есть варианты.


 
han_malign ©   (2003-02-18 12:49) [5]

Извиняюсь ... div 10000000 (FileTime в 100-наносекундах)
З.Ы. А это что грязное WinAPI???
function FindFirstFile; external kernel32 name "FindFirstFileA";
function CloseHandle; external kernel32 name "CloseHandle";
procedure GetLocalTime; external kernel32 name "GetLocalTime";
function SystemTimeToFileTime; external kernel32 name "SystemTimeToFileTime";
.............


 
Izyum ©   (2003-02-18 14:50) [6]

Точно не помню синтаксис, чего-то вроде DateTimeToDateStump. Поищи в хелпе - там все просто до безобразия


 
CAHbKA   (2003-02-19 05:23) [7]

я имел ввиду TFileTime...



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

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

Наверх




Память: 0.47 MB
Время: 0.019 c
1-87434
Извращенец2
2003-02-18 15:58
2003.02.27
Блокировка окна программы


3-87275
kerkonst
2003-02-08 20:59
2003.02.27
Очень простой вопрос по QuickReport


14-87634
Карелин Артем
2003-02-10 16:08
2003.02.27
Заработаем?


9-87233
NudeRaven
2002-09-18 20:39
2003.02.27
Как В Dx грузить файлы jpg,gif итд


14-87671
negtym
2003-02-10 06:20
2003.02.27
DelphiX