장철진 wrote:

> 안녕하세요...

> 다름이 아니라... 보통 어떤 폴더를 선택하면 그 경로를 저장하려하는데...

> 윈도우에서 폴더만 선택하는 대화상자를 본적이 있습니다....

> 그 대화상자를 불러오려고 하는데 네트워크상에서도 선택할수 있는 대화상자를 어떻게 불러오죠?

> 고수님께 부탁합니다..

> 그럼 좋은 시간 되세요....

>





안녕하세요~~ 구창민입니다.

아래내용을 참고하시고, 즐거운 프로그래밍 하시길~



uses ShlObj;



procedure TMainForm.Button1Click(Sender: TObject);

var

Info: TBrowseInfo;

IDList: pItemIDList;

Buffer: PChar;

begin

Buffer := StrAlloc(MAXWORD);

with Info

do begin

hwndOwner := Handle;

pidlRoot := nil;

pszDisplayName := Buffer;

lpszTitle := 'Please select a folder:';

ulFlags := BIF_RETURNONLYFSDIRS or BIF_BROWSEINCLUDEFILES;

lpfn := nil;

lParam := 0;

IDList := SHBrowseForFolder(Info);

end;

if IDList <> nil

then begin

SHGetPathFromIDList(IDList, Buffer);

ShowMessage(Buffer); //선택한 폴더를 화면에 보여준다.

end;

StrDispose(Buffer);

end;