쉘 오브젝트로 폴더선택창을 띄웠는데요
Browserinf.hwndOwner에 어떤 값을 넣어야 되나요?
MDI폼이기땜에 불러내는 차일드 윈도우의 핸들값을 넣어야 할거 같은데..
어떤식으로 구해야 하는지 몰겠네요..
integer 형인거 같고요..
소스는 다음과 같습니다..
-------------------------------
procedure TfLC410.button1Click(Sender: TObject);
var
Browserinf : TBrowseInfo;
hsl_Itemlist : PItemIDList;
buff : array[0..255] of char;
ls_fullpath : String;
begin
inherited;
Browserinf.hwndOwner := ?????????????;
Browserinf.lpfn := nil;
Browserinf.pidlRoot := nil;
Browserinf.pszDisplayName := buff;
Browserinf.lpszTitle := pchar('폴더를 선택하세요');
Browserinf.ulFlags := Browserinf.ulFlags or BIF_BROWSEFORCOMPUTER;
hsl_Itemlist :=SHBrowseForFolder(Browserinf);
....
그냥 폼의 핸들을 넣어주세요. 그것은 브라우져 창이 떳을때 브라우저창의 부모윈도우를
설정할때 사용되는 것이니까요...
^^ 항상 즐코하세요.
초보!!! wrote:
> 쉘 오브젝트로 폴더선택창을 띄웠는데요
>
> Browserinf.hwndOwner에 어떤 값을 넣어야 되나요?
>
> MDI폼이기땜에 불러내는 차일드 윈도우의 핸들값을 넣어야 할거 같은데..
>
> 어떤식으로 구해야 하는지 몰겠네요..
>
> integer 형인거 같고요..
>
> 소스는 다음과 같습니다..
>
> -------------------------------
>
> procedure TfLC410.button1Click(Sender: TObject);
> var
> Browserinf : TBrowseInfo;
> hsl_Itemlist : PItemIDList;
> buff : array[0..255] of char;
> ls_fullpath : String;
>
> begin
> inherited;
>
> Browserinf.hwndOwner := ?????????????;
> Browserinf.lpfn := nil;
> Browserinf.pidlRoot := nil;
> Browserinf.pszDisplayName := buff;
> Browserinf.lpszTitle := pchar('폴더를 선택하세요');
> Browserinf.ulFlags := Browserinf.ulFlags or BIF_BROWSEFORCOMPUTER;
>
> hsl_Itemlist :=SHBrowseForFolder(Browserinf);
> ....
>
>