ich habe einige nützliche sachen für den zugrief auf das Dateisystem, hier ist eine Übersicht:
Code: Alles auswählen
// Startet eine anwendung
// procedure RunApp(f:TFileName;param:string;handle:hwnd);
// Splitet einen Dateipfad in zwei hälften
function ExtractFilePfad1(Pfad:String):String;
// Prüft ob es die erweiterung schon im Dateiname gibt, wenn ja wird nur der dateinamen
// Zurück geben, wenn nicht: Dateiname + Erweiterung
function AddExt(FileName:TFileName; Ext:String):String;
// Erstelle eine leer Datei
procedure CreateFile1(FileName:TFileName);
// Löscht gefüllt verzeichnise
// function Deltree(dir: string): Boolean;
// function ReadDir(Path, Mask:string; ShowPath: boolean; mitExt,mitData:Boolean): TStringlist;
// Liefrt das exe verzeichnis
function GetExeDir(isS:Boolean = False):String;
// Wenn exedir vorkommt wird es durch das exedir verzeichnis ersetzt
function GetDir(dir:string):string;
// gibt Datei infos zurück
// function GetFileInfo(FileName,ch:String):String;
// Schaut in der ExtList nach ob, es sich um eine erlaubte Dateiendung handelt oder nicht
function FileNameInTheList(FileName, extList:String):boolean;
// Liefert alle verzeichnise einschließnd unterverzeichnise eines verzeichnis
procedure GetAllFiles(Path, ExtMask: String; List: TStrings;SubFolder: Boolean);
// Liefert die genaue datei größe als Bytes
function GetFileSize1(const AFileName: String): INT64;
// Prüft ob in bestimmtens zeichem im im Dateinamen vorhanden ist
function IsChar(const AFilename: string; ch: string): String; overload;
// Prüft ob in bestimmtens zeichem im im Dateinamen vorhanden ist
function IsChar(const AFilename: string; ch: char): String; overload;
// Prüft ob in den Dateinamen ein ein \ ist und wenn nicht, fügt er es hinzu
function CheckBackSlash(const AFilename: String): String;
// List ein verzeichnis in eine TStringList und pack einige Daten hinzu(nach wunsch)
// function GetFileSizeDir(Path, Mask:string; ShowPath: boolean; isdata:Boolean): TStringlist;
// Gibt einen folgendes zurück(als beispiel: 18 KB
function FormatFileSize(Size: INT64): string;
// Ließt einen String aus einer ini datei
function ReadIni(FileName,Sektion,ident,fehler:String) :String;
// Schreibt einen String in eine Ini Datei
procedure WriteIni(FileName,Sektion,ident,WriteText:String);
// prüft ob es eine bestimmte ini Sektion schon gibt oder nicht
function isIniSek(FileName:TFileName; Sek:String):boolean;
// Löscht alle dateien im verzeichnis
// procedure DeleteFiles(directory: string);
// Löscht eine Datei
function DelFile(FileName:String):Boolean;
// Wandelt eine BMP zu einer Jpeg um
// procedure BmpToJpeg(const Filename: String);
// Schießt ein Bild vom Aktivien fenster
// function FormularSaveScreenShot(FileName: String; h : hWnd): Boolean;
// Schneidet aus dir da was in dir1 und dir2 steht ab
function ChagenDir(dir,dir1,dir2,char:String):String;
// Ersetzt das angeben zeichen durch die angeben verzeichnise
function ReplaceDir(dir, chr,newDir,newDir1:String):String;
// Past den FileName ob da z.b. eine Klammer auf steht
function PasteFileName(FileName:TFileName):String;
// List aus der aktellen datei die icon eigenschaft aus(offentlich)
// Gibt ein Realtiv verzeichnis zurück
function GetRealtiv(dir1,dir2:String):String;
// Prüft einen Dateinamen auf gültigkeit
// function IsFileName(FileName: String): Boolean;
function RandomID(fileName:TFileName; c:Integer):String;
function RandomID2(count:Integer):string;
// gibt zurück ob sich bestimmter eintrag im verzeichnis befindet
function GetAnderDir(dir,mask:String;attri:Integer):boolean;
// gibt mir die letzte verzeichnise ebene zurück(C:\test1\test1 = test1)
function GetPrvDir(dir:String):String;
// macht aus C:\verzeichnis1\verzeichnis2 c:\verzeichnis1\
function GetPrvDir1(dir:String):String;
// function GetFilesInDirectory(Directory: String; const Mask: String):boolean;
function GetFilesInDirectory(ADirectory: string; AMask: String; ARekursiv: Boolean;notMask:String = ''):Boolean;
// Gibt zurück ob sich einträge aus der angeben liste in einem verzeichnis befindet
// function GetAnderItem(dir:String;extList:String):Boolean;
// function IstErweiterungImOrdner(Pfad, Erweiterung: String): Boolean;
// function FileCount(const dir, masks: String): Integer;
.
Verein
Links
Suche