Dateipfad ohne Verzeichnispfad und Dateierweiterung

[faux]

Hallo!

Ich will aus zB C:\Windows\System32\notepad.exe das bekommen: notepad. Also den Pfad und die Dateiendung weg.

Wie geht das außer so (also mit einer Funktion):

Delphi-Quellcode:

function ExtractFile(const APath: String): String;
var
  i, a: Integer;
  temp: string;
begin
  temp := ExtractFileName(APath);
  a := 0;
  for i := Length(temp) - 1 downto 1 do
    if (temp[i] = '.') and (a = 0) then
      a := i;
  for i := 1 to a - 1 do
    result := result + temp[i];
end;

Denn ich finde das ist schon etwas umständlich....