title image


Smiley Re: datei_attribute auslesen
So gehts:function GetModifyDate(FileName:String):TDateTime; var h: THandle; Struct: TOFSTRUCT; lastwrite: integer; t: TDateTime; begin h:=OpenFile(PChar(FileName), Struct, OF_SHARE_DENY_NONE); try if hHFILE_ERROR then begin lastwrite:=FileGetDate(h); Result:= FileDateToDateTime(lastwrite); end; finally _lclose(h); end; end; procedure TForm1.Button1Click(Sender: TObject); begin if Opendialog1.Execute then begin Label1.Caption:=FormatDateTime('dddd, d. mmmm yyyy hh:mm:ss', GetModifyDate(Opendialog1.FileName)); end; end;

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: