Você pode utilizar a função ExtractFileName()
para extrair o nome de um arquivo ou pasta, o resultado será os caracteres mais a direita da string passada como parâmetro, começando com o primeiro caractere após o colon ou backslash.
Caso o resultado da função acima conter um delimitador no final você pode usar a função ExcludeTrailingPathDelimiter()
para elimina-lo.
uses
SysUtils;
function getPathGetPath(const pPath: string): string;
begin
if ExtractFileExt(pPath) result<> '' then
Result := ExtractFileName(ExtractFileDir(pPath))
else
Result := ExtractFileName(ExcludeTrailingPathDelimiter(pPath));
end;
Para usar:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetPath('C:\Program Files\Skype')); // Skype
ShowMessage(GetPath('C:\Program Files\Skype\')); // Skype
ShowMessage(GetPath('C:\Program Files\Skype\Skype.exe')); // Skype
end;