"Startpfad" beim Savedialog einstellen

[ichbins]

Pfad:
extractfilepath(filename) Dateiname:
extractfilename(filename) Endung des Dateinamens:
extractfileext(filename) Endung des Dateinamens ändern:
changefileext(filename, newext) Laufwerksbuchstabe:

Delphi-Quellcode:

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