Delphi DLL 窗体

最新推荐文章于 2024-08-06 15:33:04 发布

weixin_34408624

最新推荐文章于 2024-08-06 15:33:04 发布

阅读量194

点赞数

文章标签： python

原文链接：https://my.oschina.net/u/582827/blog/902055

版权

2019独角兽企业重金招聘Python工程师标准>>>

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;

转载于:https://my.oschina.net/u/582827/blog/902055