Delphi DLL 窗体
博客专区 > vga 的博客 > 博客详情
Delphi DLL 窗体
vga 发表于11个月前
Delphi DLL 窗体
  • 发表于 11个月前
  • 阅读 12
  • 收藏 0
  • 点赞 0
  • 评论 0

【腾讯云】新注册用户域名抢购1元起>>>   

Dll 导出:


{$R *.res}
exports
  ShowDataCheckForm;
begin
end.

DLL 实现:

  public
    { Public declarations }
  end;

  procedure ShowDataCheckForm(app: THandle; CheckStep: Integer); stdcall;


var
  FormMain: TFormMain;

implementation


procedure ShowDataCheckForm(app: THandle; CheckStep: Integer);
begin
  Application.Handle := app;
  FormMain := TFormMain.Create(Application);
  if CheckStep = 1 then
    FormMain.Caption := '参数一'
  else
    FormMain.Caption := '参数二';

  try

    FormMain.ShowModal;
  finally
    FormMain.Free;
  end;
end;

DLL 调用:

procedure ShowDataCheckForm(app: THandle; CheckStep: Integer);
  stdcall;
  external '.\dll\YCDataCHK.dll'; // 动态连接库


procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowDataCheckForm(Application.Handle, 1);
end;
标签: Dll Delphi
  • 打赏
  • 点赞
  • 收藏
  • 分享
共有 人打赏支持
粉丝 18
博文 330
码字总数 22964
×
vga
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: