[Johny777]

\....\....\audio »

Хочешь вернуться на два уровня назад? Юзай FileSystemObject (он умеет многое ) :

читать дальше »

Код:

[code]
function GetParentFolderName(const Path: String): String;
var
    oFS: Variant;
begin
    oFS := CreateOleObject('Scripting.FileSystemObject');
    try
        Result := oFS.GetParentFolderName(path);
    except
        ShowExceptionMessage();
    end;
end;

procedure InitializeWizard();
begin
    MsgBox(GetParentFolderName(GetParentFolderName('C:\Program Files\Adobe\Adobe After Effects CS5')), mbInformation, MB_OK);
end;

несколько примеров его использования есть в шапке темы, остальное в MSDN:
http://msdn.microsoft.com/en-us/libr...=vs.60%29.aspx
http://msdn.microsoft.com/en-us/libr...=vs.60%29.aspx