Dateinamen, Dateipfade, Dateiendungen herausfinden

Erklärung
Mit der Funktion
extractFileDrive wird der Plattenbuchstabe extrahiert
extractFilePath wird der Pfad extrahiert
extractFileExt wird die Dateiendung extrahiert
extractShortPathName wird der Dosname generiert

Quelltext

procedure TForm1.FormCreate(Sender: TObject); begin      Label1.Caption := extractFileDrive(application.Exename);      Label2.Caption := extractFilePath(application.Exename);      Label3.Caption := extractFileExt(application.Exename);      Label4.Caption := extractShortPathName(application.Exename); end;