unit2.cpp

来自「本书《C++Builder与WindowsAPI经典范例》附含配套光盘包括132」· C++ 代码 · 共 40 行

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//<打开旧文件>对话框的信息函数与结构函数---------------------------------------
UINT APIENTRY OFNHookProc(HWND, UINT, WPARAM, LPARAM);
bool ShowOpenDialog(HWND, char *FileName, char *Title,
                    char *InitialDir, char *Filter);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
//打开<打开>对话框
void __fastcall TForm1::Button1Click(TObject *Sender)
{
char FileName[MAX_PATH];
if (ShowOpenDialog(Handle,
                   FileName,
                   "标准API【打开】对话框",
                   "C:\\Program Files",
                   "Text Files (*.txt)\0*.txt\0"
                   "Zip Files (*.zip)\0*.zip\0"
                   "All Files (*.*)\0*.*\0"))
    {
    ::MessageBox(Handle, FileName, "选择文件是：", MB_OK);
    }
}
//<打开旧文件>对话框的信息函数-------------------------------------------------
UINT APIENTRY OFNHookProc(HWND hdlg, UINT uiMsg, WPARAM wParam, LPARAM lParam)
{
//
HWND HOpenDialogBox = ::GetParent(hdlg);
//当<打开>对话框取得初始化信息时，