Forum: Object-Pascal / Delphi-Language
by DeddyH,
6. Jun 2007
Hab noch mal eine genauere Version erstellt.type TZeit = (zCreation, zLastAccess, zLastWrite); //Erstellt, letzter Zugriff, letzte Änderung
function GetDirDate(const s: string;Zeit: TZeit = zCreation): TDateTime;
var Data: TWin32FindData;
sTime: TSystemTime;
h: THandle;
begin
Result := 0;
ZeroMemory(@Data,SizeOf(Data));
h := FindFirstFile(PChar(s),Data);
Forum: Object-Pascal / Delphi-Language
by DeddyH,
5. Jun 2007
Schau Dir das hier mal an:function GetDirDate(const Dir: string): TDateTime;
var Rec: TSearchRec;
i: integer;
begin
Result := 0;
i := FindFirst(Dir,faDirectory,Rec);
if i = 0 then
Result := FileDateToDateTime(Rec.Time);
SysUtils.FindClose(Rec);
end;
Forum: Object-Pascal / Delphi-Language
by DeddyH,
5. Jun 2007
Du kennst das Flag faDirectory?
Forum: Object-Pascal / Delphi-Language
by DeddyH,
5. Jun 2007
Hallo, mit FindFirst und FindNext kannst Du einen TSearchRec befüllen. Dieser enthält das Feld Time. Mit FileDateToDateTime kannst Du dieses in einen TDateTime wandeln. Ich hoffe, diese Infos genügen Dir.