nSonic

[code lang=”delphi”]function GetModifiedDate(FileName: string): TDateTime; var SearchRec: TSearchRec; ModifiedTime: TFileTime; SystemTime: TSystemTime; begin Result := 0; If FindFirst(FileName, faAnyFile, SearchRec) = 0 then…

[code lang=”delphi”]FName : String; SetLength(FName, MAX_PATH+1); GetShortPathName(PChar(SaveDialog1.Filename), PChar(FName), MAX_PATH); SetLength(FName, StrLen(PChar(FName))); [/code] [tags]Delphi, File[/tags]

[code lang=”delphi”]Function GetShortFileName(Const FileName : String) : String; var aTmp: array[0..255] of char; begin if GetShortPathName(PChar(FileName),aTmp,Sizeof(aTmp)-1)=0 then Result:= FileName else Result:=StrPas(aTmp); end;[/code] [tags]Delphi,…

Dateiattribute setzen (aus der D3 Onlinehilfe) Delphi ermöglicht es Ihnen, die Attribute jeder beliebigen Datei zu jedem beliebigen Zeitpunkt zu setzen. Um die…