안녕하세요. 최용일입니다.

아래와 같이 해보세요...
<!--CodeS-->
function PathCanonicalize(pszBuf: PAnsiChar; pszPath: PAnsiChar): BOOL; stdcall;
  external 'shlwapi.dll' name 'PathCanonicalizeA';
function GetParentPath(const Path: string): string;
var
  Buffer: array[0..MAX_PATH] of Char;
begin
  Result := '';
  FillChar(Buffer, SizeOf(Buffer), 0);
  if PathCanonicalize(Buffer, PChar(Path + '..')) then
    Result := IncludeTrailingPathDelimiter(Buffer);
end;

// Usage
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetParentPath(ExtractFilePath(Application.ExeName)));
end;

<!--CodeE-->

최용일님 답변해주셔서 감사합니다.

최용일님이 가르쳐주신 소스대로 해봤더니 에러가 나더군요.

제 미천한실력으로 해결하기가 힘들어서 에러메시지를 이미지캡쳐해서 올리겠습니다.
이미지와 소스도 텍스트파일로 같이 올리겠습니다.

바쁘시겠지만 함 봐주십시요.

부탁드리겠습니다. (_ _)

쩝~ 가르켜준대로 하지 않으셨는데요...

PathCanonicalize는 폼의 메소드가 아니라 그냥 함수입니다. 윈도우의 API함수입니다. 이걸 폼의 메소드로 만들어버리셨네요... ㅡㅡ'

GetParentPath함수는 메소드로 만드셔도 별 상관이 없는데.. PathCanonicalize는 메소드로 만드시면 안됩니다.