Форум: "Система";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];
ВнизДата Соэдания каталога Найти похожие ветки
← →
Демонов Е.В. (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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.029 c