Ankündigung

Einklappen
Keine Ankündigung bisher.

Erstellungsdatum einer Datei unter Delphi ermitteln?

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • Erstellungsdatum einer Datei unter Delphi ermitteln?

    Hi @ll

    Ich versuche in Delphi das Erstellungsdatum einer Datei zu ermitteln.
    Beim Änderungsdatum klappt die Sache ja ganz einfach
    </font><blockquote><pre><font face="verdana,arial,helvetica"size="1"class="sf">c ode:</font><hr>DateToStr(FileDateToDateTime((FileAge(She llTreeView1.Path+'\'+sr.name))));<hr></blockquote><font face="verdana, arial, helvetica" size="2"class="nf"><br />

    Habe da zwar eine function gefunden, diese gibt mir leider nur jedes mal das Datum 31.8.1899 oder so zurück.

    Aus der Delphi hilfe weiss ich, dass sich das Datum aus FindData: TWin32FindData; der SearchRec Struktur auslesen lässt, die Delphi-hilfe schweigt sich aber darüber aus, wie das gehen soll.

    Ich hoffe jemand von euch hat eine Idee.

    grz zer00


  • #2
    TWin32FindData

    procedure TForm1.Button1Click(Sender: TObject);
    var
    MyS: TWin32FindData;
    FName: string;
    MyTime: TFileTime;
    MySysTime: TSystemTime;
    begin
    Memo1.Clear;
    FName:=Edit1.Text;
    with Memo1.Lines do
    begin
    Add('Directory - '+ExtractFileDir(FName));
    Add('Drive - '+ExtractFileDrive(FName));
    Add('Extension - '+ExtractFileExt(FName));
    Add('File name - '+ExtractFileName(FName));
    Add('Path - '+ExtractFilePath(FName));
    Add('');

    FindFirstFile(PChar(FName), MyS);
    case MyS.dwFileAttributes of
    FILE_ATTRIBUTE_COMPRESSED: Add('Attribute - File is compressed');
    FILE_ATTRIBUTE_HIDDEN: Add('Attribute - File is hidden');
    FILE_ATTRIBUTE_NORMAL: Add('Attribute - File has no any attributes');
    FILE_ATTRIBUTE_READONLY: Add('Attribute - Read only file');
    FILE_ATTRIBUTE_SYSTEM: Add('Attribute - System file');
    FILE_ATTRIBUTE_TEMPORARY: Add('Attribute - File for temporary storage');
    FILE_ATTRIBUTE_ARCHIVE: Add('Attribute - Archive file');
    end;

    MyTime:=MyS.ftCreationTime;
    FileTimeToSystemTime(MyTime, MySysTime);
    Add(
    'Time Creation - '+
    IntToStr(MySysTime.wDay)+'.'+
    IntToStr(MySysTime.wMonth)+'.'+
    IntToStr(MySysTime.wYear)+' '+
    IntToStr(MySysTime.wHour)+':'+
    IntToStr(MySysTime.wMinute));

    MyTime:=MyS.ftLastAccessTime;
    FileTimeToSystemTime(MyTime, MySysTime);
    Add(
    'Last time access - '+
    IntToStr(MySysTime.wDay)+'.'+
    IntToStr(MySysTime.wMonth)+'.'+
    IntToStr(MySysTime.wYear));

    Add('Size - '+IntToStr(MyS.nFileSizeLow));
    Add('Alternate name - '+StrPas(MyS.cAlternateFileName));
    end;
    end;

    Kommentar

    Lädt...
    X