Q&A

  • Child Window 핸들 얻는법????
쉘 오브젝트로 폴더선택창을 띄웠는데요



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);

....





1  COMMENTS
  • Profile
    최용일 2000.08.17 23:56
    안녕하세요. 최용일입니다.



    그냥 폼의 핸들을 넣어주세요. 그것은 브라우져 창이 떳을때 브라우저창의 부모윈도우를



    설정할때 사용되는 것이니까요...



    ^^ 항상 즐코하세요.



    초보!!! 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);

    > ....

    >

    >