この発言は
#00139　オータム西野    さんの[フォルダーの選択]ダイアログ
に対するコメントです



オータム西野さん、こんばんは。はじめまして。

  コード、参考にさせていただきました。ありがとうございます。あと、11番会
議室で、デフォルト ディレクトリの設定のことでHidemi Oyaさん、リンクさん、
もろぼし☆らむさんの発言を参考にさせていただきました。ありがとうございま
す。デフォルト ディレクトリのサンプルをアップさせていただきます。

  BrowseCallbackProcのstdcallを忘れていてハマりました・・・(^^;)

function BrowseCallbackProc(
  hW: HWND;
  iM: UINT;
  fP: LPARAM;
  fD: LPARAM
): Integer; stdcall;
begin
  if (iM = BFFM_INITIALIZED) then begin
    SendMessage(hW, BFFM_SETSELECTION, 1, fD);
  end;
  Result := 0;
end;

>    // TBrowseInfoの初期化...
>    bi.hwndOwner := Handle;
>    bi.pidlRoot  := pidlRoot;
>    bi.pszDisplayName := pBuf;
>    bi.lpszTitle := 'お好きなﾌｫﾙﾀﾞを選択して下さい。';
>    bi.ulFlags   := 0;
>    bi.lpfn      := nil;

     bi.lpfn      := @BrowseCallbackProc;

>    bi.lParam    := 0;

     bi.lParam    := Windows.LPARAM(PChar(デフォルト ディレクトリ));

アイクビー

Original document by アイクビー      氏 ID:(KHB01350)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。