nSonic

Q: > i would like to make a function that return if the file is in that wildcards > > e.g. > wildcards(‘c:\*.txt’,’c:\test.txt’)…

the following code will bring up the standard “Browse for folders” dialog with the full directory tree available: [code lang=”delphi”]uses FileCtrl; procedure TForm1.Button1Click(Sender:…

[code lang=”delphi”]procedure DelTree(StartDir: string); var Search : TSearchRec; begin if Startdir[Length(Startdir)] ‘\’ then startdir := startdir + ‘\’; if FindFirst(startdir + ‘*.*’, faAnyFile,…

[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…