간단하게 프로그램 실행경로 가져오기

function getExecutePath: string
begin
  Result := ExtractFilePath(PatamStr(0)); 
  또는
  Result := GetCurrentDir + '\';
end;