Borland C++ Builder 6：如何从WinMain向主窗体传递命令行参数

针对你遇到的Application->CreateForm无法直接传参、不能重载构造函数的问题，有以下几种可行的实现方式：

方法一：手动构造带参数的Form1实例 #

绕过Application->CreateForm的自动创建逻辑，自己调用重载的构造函数创建窗体，再将实例交由Application管理：

1. 修改Form1的头文件，添加带参数的构造函数声明：

class TForm1 : public TForm
{
__published:    // IDE管理的组件
private:        // 自定义私有成员
public:         // 自定义公共成员
    __fastcall TForm1(TComponent* Owner, const AnsiString& CmdParam);
};

2. 实现Form1的重载构造函数，在构造阶段直接处理参数：

__fastcall TForm1::TForm1(TComponent* Owner, const AnsiString& CmdParam)
    : TForm(Owner)
{
    // 在这里直接使用命令行参数，比如显示或保存为成员变量
    ShowMessage("收到的参数：" + CmdParam);
}

3. 修改WinMain函数，手动创建窗体实例：

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    try
    {
        AnsiString s = ParamStr(0);
        Application->Initialize();
        // 手动调用重载构造函数创建Form1
        Form1 = new TForm1(Application, s);
        Application->Run();
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }
    return 0;
}

方法二：创建窗体后通过公共成员/属性传递参数 #

如果不想修改构造函数，可以给Form1添加公共成员变量或属性，在窗体创建完成后再赋值：

1. 在Form1的头文件中添加公共属性：

class TForm1 : public TForm
{
__published:    // IDE管理的组件
private:        // 自定义私有成员
    AnsiString FCmdParam;
public:         // 自定义公共成员
    __property AnsiString CmdParam = {read=FCmdParam, write=FCmdParam};
};

2. 在WinMain中创建窗体后赋值：

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    try
    {
        AnsiString s = ParamStr(0);
        Application->Initialize();
        Application->CreateForm(__classid(TForm1), &Form1);
        // 窗体创建完成后传递参数
        Form1->CmdParam = s;
        Application->Run();
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }
    return 0;
}

3. 在Form1的事件中使用参数，比如OnCreate事件：

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ShowMessage("收到的参数：" + CmdParam);
}

方法三：使用全局变量（不推荐） #

这是最简单但耦合性最高的方式，定义全局变量存储参数，在Form1中直接访问：

1. 定义全局变量，比如在单独的头文件GlobalVars.h中：

extern AnsiString g_CmdParam;

2. 在WinMain所在的cpp文件中初始化全局变量：

AnsiString g_CmdParam;
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    try
    {
        g_CmdParam = ParamStr(0);
        Application->Initialize();
        Application->CreateForm(__classid(TForm1), &Form1);
        Application->Run();
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }
    return 0;
}

3. 在Form1中引用全局变量：

#include "GlobalVars.h"
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ShowMessage("收到的参数：" + g_CmdParam);
}

注意：全局变量会增加代码耦合度，不利于维护，仅在简单场景下临时使用。

内容的提问来源于stack exchange，提问作者r00tb33r