"Startpfad" beim Savedialog einstellen

[ichbins]

Pfad:

Delphi-Quellcode:

extractfilepath(filename)

Dateiname:

Delphi-Quellcode:

extractfilename(filename)

Endung des Dateinamens:

Delphi-Quellcode:

extractfileext(filename)

Endung des Dateinamens ändern:

Delphi-Quellcode:

changefileext(filename, newext)

Laufwerksbuchstabe:

Delphi-Quellcode:

function driveletter(filename:string);
begin
  if filename[2]=':' then result:=filename[1] else result:=paramstr(0)[1];
end;