안녕하세요,



혹시 원하시는게 해당 프로그램이 실행 될때의 디렉토리를 구하시는 것이라면



아주 간단히 구할수 있습니다.



procedure TForm1.FormCreate(Sender: TObject);

var RunPath : string;

begin

RunPath := ExtractFilePath(Application.ExeName);

~~~~~~~~~~~~~~~~~~~~~~~~~~~~

end;



이렇게 하면 RunPath에 예를들면 'C:Program filesmyprogram' 정도가



들어 갈 것입니다.





강민주 wrote:

> 안녕하세요. 강민주라고 합니다.

> 구창민님 앞에 답변 정말 고맙습니다. ^^;

>

> 근데 다시 질문이..

> 아래 소스로 구해볼려고 하는데 않되는데 뭐가 문젠지 좀 지펴

> 주심 다시한번 감사 하겠습니다.

>

> function GetCurrDirectory: String;

> var

> i: Integer;

> CurrDir: String;

> begin

> CurrDir := GetCurrentDir;

>

> i := Length(CurrDir)-1;

> while (CurrDir[i] <> '') do

> Dec(i);

>

> Result := Copy(CurrDir, Length(CurrDir)-i, i);

> end;

>

> 그럼.. 이만

>

안녕하세요.

답변 고마운데.. 질문요지가 그게 아닌데..

질문 설명이 부족했던것 같습니다. ^^



다른게 아니라.. 현재 디렉토리의 전체 경로가 필요한게

아니라 현재 디렉토리명만 구하고 싶거든요.

그러니깐.. 현재 디렉토리 경로가 "c:program filesborland"이거 이면..

현재 디렉토리명인 borland만 구하고 싶거든요.



그래서 아래처럼 만들어 봤습니다.

다시 이소스 보시고 잘못된점 좀 가르쳐주세요.

function GetCurrDirectory: String;

var

i: Integer;

CurrDir: String;

begin

CurrDir := GetCurrentDir;



i := Length(CurrDir)-1;

while (CurrDir[i] <> '') do

Dec(i);



Result := Copy(CurrDir, Length(CurrDir)-i, i);

end;



그럼..이만 ^^;

> function GetCurrDirectory: String;

> var

> i: Integer;

> CurrDir: String;

> begin

> CurrDir := GetCurrentDir;

>

> i := Length(CurrDir)-1;

> while (CurrDir[i] <> '') do

> Dec(i);

>

> Result := Copy(CurrDir, Length(CurrDir)-i, i); //=>

> end;



Copy 쓰실때 약간 혼돈이 되신것 같은데 강민주님이 만드신소스 중

Result := Copy(CurrDir,i+1,Length(CurrDir)-i); 부분만 바꿔도 됩니다.

procedure TForm1.Button1Click(Sender: TObject);

var

CurrDir: String;

begin

CurrDir := GetCurrentDir;

if CurrDir[ Length( CurrDir ) ] = '' then

Delete( CurrDir, Length( CurrDir ), 1 );



ShowMessage( ExtractFileName( CurrDir ) );

end;



이러면 원하는 값이 나올것 같네요



그럼

평안하시길~

^^