안녕하세요.

굳이 디렉토리를 변경할 필요가 없다면 OpenDialog와 비슷한 폼을 만들어서 띄우는 게

더 좋을 것 같은데요. 아님 아래처럼 해도 될 것 같구요.



procedure TForm1.Button1click(Sender:TObject);

var

tempDir,openDir:String;

begin

tempDir:= 'c:Temp';

if OpenDialog1.Execute then begin

openDir:= ExtractFilePath(OpenDialog1.FileName);

end;



if tempDir<>openDir then begin

ShowMessage('디렉토리를 변경하실 수 없습니다!');

Exit;

end;



{처리할 내용...}

end;





호야 wrote:

> 프로그램중에 다룰수 있는 디렉토리가 정해져 있습니다.

> 그래서 디렉토리를 못바꾸게할려고 하는데 않되네요.

> Option중에 ofNoChangeDir을 True로 설정했는데 않돼요.

> 헬프에는 미리 디렉토리지정해야만 디렉토리가 않바뀐다는데

> 저는 실행중에 디렉토리를 설정하거든요.

> RunTime시에 디렉토리를 설정해도 디렉토리가 않바뀌도록 하는법 좀

> 가르쳐 주세요.