Главная страница
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.018 c
3-84013
xxxCrazyManxxx
2003-05-29 10:34
2003.06.26
Помогите с командой CONVERT


3-83897
vajo
2003-05-28 12:35
2003.06.26
EDBEngineError


14-84635
NewN
2003-06-10 08:31
2003.06.26
Деятельность Луны в длинной фазе.


6-84506
Smok_er
2003-04-04 18:25
2003.06.26
Как узнать, установлен (активен) ли файервол на компе или нет?


1-84394
-=GaLaN=-
2003-06-09 13:37
2003.06.26
Странные ярлыки не запускаются через shellexecute