Форум программистов [Powered by Invision Power Board]

Код
/* Hook-функция для диалогового окна */
UINT CALLBACK Dialog_HookProc(HWND Wnd, UINT Msg, WPARAM wParam, LPARAM lParam)
{
  if (Msg == WM_NOTIFY)
  {
    if (((OFNOTIFY*)lParam)->hdr.code == CDN_SELCHANGE)  // Сообщение о выборе файла
    {
      char FileName[MAX_PATH];
      SendMessage(GetParent(Wnd), CDM_GETFILEPATH, sizeof(FileName), Integer(&FileName));
      Dialog_PreviewFile(FileName, Wnd);
      return true;
    }
  }

  return false;
}
//---------------------------------------------------------------------------
/* Инициализация диалогового окна и его отображение */
bool Dialog_Execute()
{
  TOpenFilename ofn;

  char szFile[MAX_PATH - 1];
  int Result;

  memset(&ofn, 0, sizeof(TOpenFilename));
  memset(&szFile, 0, MAX_PATH);

  ofn.lStructSize     = sizeof(TOpenFilename);
  ofn.hwndOwner       = Application->MainForm->Handle;
  ofn.hInstance       = HInstance;
  ofn.lpstrFile       = szFile;
  ofn.nMaxFile        = MAX_PATH;
  ofn.lpstrFilter     = "Все файлы (*.*)\0*.*\0";
  ofn.nFilterIndex    = 0;
  ofn.lpstrTitle      = "Открыть файл";
  ofn.lpstrInitialDir = NULL;
  ofn.lCustData       = LPARAM(&Info); // Передаем нашу структуру
  ofn.lpfnHook        = Dialog_HookProc; // Указатель на хук-процедуру
  ofn.lpTemplateName  = MAKEINTRESOURCE(101);
  ofn.Flags           = OFN_EXPLORER | OFN_FILEMUSTEXIST | OFN_HIDEREADONLY |
                        OFN_ENABLEHOOK | OFN_ENABLETEMPLATE; // <-- это главное

  Result = GetOpenFileName(&ofn);

  if (Result)
  {
    Info.FileName = ofn.lpstrFile; // Записываем имя файла в структуру
  }

  return Result;
}
//---------------------------------------------------------------------------
/* Предпросмотр файла в диалоговом окне выбора*/
void Dialog_PreviewFile(AnsiString FileName, HWND Wnd)
{
  if (!FileExists(FileName)) return;
  fMain->Caption = FileName;
}
//---------------------------------------------------------------------------