Как добавить в диалог TOpenDialog свой CheckBox

Code:

OFT DIALOG -1, 1, 304, 62

STYLE DS_3DLOOK | DS_CONTROL | WS_CHILD | WS_VISIBLE | WS_CLIPSIBLINGS

CAPTION ""

FONT 8, "MS Sans Serif"

{

CONTROL "Select Options", 100, "button", BS_GROUPBOX | WS_CHILD | WS_VISIBLE | WS_GROUP, 69, 4, 224, 52

CONTROL "CheckBox1", 101, "button", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 84, 19, 60, 12

CONTROL "CheckBox2", 102, "button", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 84, 38, 60, 12

}

Code:

uses

commdlg;

{$R *.dfm}

{$R MYRES.RES} // файл ресурсов с шаблоном

var

ofn:TOpenFileName;

f:array[0..MAX_PATH-1] of Char;

// hook-процедура

function Fh(Wnd: HWND; Msg:cardinal; wParam,lParam: Integer): UINT stdcall;

begin

result:=0;

case Msg of

WM_INITDIALOG:

            begin

             CheckDlgButton(Wnd,101,BST_CHECKED);  // отметим первый чекбокс

            end;

WM_COMMAND: // реакция на изменение состояния чекбоксов

     case LOWORD(wParam) of

      101:

         begin

          if (IsDlgButtonChecked(Wnd,101)=BST_CHECKED) then MessageBox(Wnd,'CheckBox1 Checked!','FileOpenDialog',0);

         end;

      102:

         begin

          if (IsDlgButtonChecked(Wnd,102)=BST_CHECKED) then MessageBox(Wnd,'CheckBox2 Checked!','FileOpenDialog',0);

         end;

     end;

WM_NOTIFY:

  case

  POFNotify(lParam)^.hdr.code of

   CDN_FILEOK:  // реакция на выбор файла

       begin

        if (IsDlgButtonChecked(Wnd,101)=BST_CHECKED) then

         MessageBox(Wnd,PChar('CheckBox1 Checked and '+ofn.lpstrFile+' selected'),'FileOpenDialog',0);

        if (IsDlgButtonChecked(Wnd,102)=BST_CHECKED) then

         MessageBox(Wnd,PChar('CheckBox2 Checked and '+ofn.lpstrFile+' selected'),'FileOpenDialog',0);

        end;

  end;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

FillChar(f,sizeof(f),0);

FillChar(ofn,sizeof(ofn),0);

ofn.lStructSize := sizeof(TOpenFileName);

ofn.hwndOwner := Handle;

ofn.hInstance := hInstance;

ofn.lpstrFilter       :=  'Text Files (*.TXT)'#0'*.txt'#0+

                           'Executables (*.EXE)'#0'*.exe'#0+

                           'All files (*.*)'#0'*.*'#0#0;

ofn.lpstrTitle        := 'Select File';

ofn.lpstrFile         := f;

ofn.nMaxFile          := MAX_PATH;

ofn.lpTemplateName    :='OFT';   // имя шаблона

ofn.lpfnHook          := Fh;     // hook-процедура

ofn.Flags             := OFN_EXPLORER or OFN_CREATEPROMPT or

                         OFN_FILEMUSTEXIST or OFN_HIDEREADONLY or

                         OFN_PATHMUSTEXIST or OFN_ENABLEHOOK or

                         OFN_ENABLETEMPLATE;

// показываем диалог

if GetOpenFileName(ofn) then ShowMessage(ofn.lpstrFile);

end;