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

Вниз

Дата Соэдания каталога   Найти похожие ветки 

 
Демонов Е.В. ©   (2003-04-18 09:15) [0]

Вот как узнать дат создания файла я нашёл.

А как найти дату создания каталога что то ни одной ф-ии не найду.

P.S: хотелось бы не исаользовать ф-ии FindFirst FindNext


 
Крот ©   (2003-04-18 10:10) [1]

Попробуй через FindNextFile


 
Крот ©   (2003-04-18 10:11) [2]

Тьфу, ты - P.S. пропустил, прошу пардону. А чем FindFirst не устраивает?


 
Игорь Шевченко ©   (2003-04-18 10:54) [3]

unit main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TfMain = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
FCreateTime : FILETIME;
FAccessTime : FILETIME;
FLastWriteTime : FILETIME;
end;

var
fMain: TfMain;

implementation
uses
NtUtils;

{$R *.DFM}

procedure TfMain.Button1Click(Sender: TObject);
var
HDir : THandle;
UTC : LARGE_INTEGER;
begin
HDir := CreateFile("C:\TEMP", GENERIC_READ,
FILE_SHARE_READ or FILE_SHARE_WRITE, nil,
OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
if HDir = INVALID_HANDLE_VALUE then
RaiseLastWin32Error();
try
if not GetFileTime(HDir, @FCreateTime, @FAccessTime, @FLastWriteTime) then
RaiseLastWin32Error();
.....
finally
CloseHandle(HDir);
end;
end;

end.


Для WinNT - работает.


 
[lamer]Barmaglot ©   (2003-04-18 11:26) [4]

У меня проще для понимания...


procedure TForm1.Button1Click(Sender: TObject);
var
HFile: THandle;
f, f1, f2: FileTime;
s, s1, s2: SystemTime;
begin
HFile:=CreateFile("d:\image2.gif", GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
GeTFileTime(HFile, @f, @f1, @f2);
FiletimetoSystemTime(f, s);
Edit1.Text:=inttostr(s.wDay)+"."+inttostr(s.wMonth)+"."+inttostr(s.wYear);
CloseHandle(HFile);
end;


 
[lamer]Barmaglot ©   (2003-04-18 11:31) [5]

Только вот для каталога, я так понимаю - дает неверное значение...


 
Игорь Шевченко ©   (2003-04-18 15:28) [6]

[lamer]Barmaglot © (18.04.03 11:31)

А ты GetLastError-то погляди... ;-)



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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
1-84206
Юнгман
2003-06-12 17:53
2003.06.26
Свернуть Проект


14-84554
Leon_M@ni@k
2003-06-07 17:57
2003.06.26
СРОЧНО СРОЧНО - считанные Часы остались - помогите с отбором инфы


4-84820
kravchuk
2003-04-23 11:12
2003.06.26
Список процессов на удаленном компьютере


1-84401
Графика
2003-06-09 10:02
2003.06.26
Как при скролинге методом ScrollBy убрать мерцание?


3-83861
Ditrix
2003-06-02 11:28
2003.06.26
установка фильтра в IBQuery