这样写有副作用吗？

冥界3大法王

[Delphi] 纯文本查看 复制代码

library Test1;

uses
   System.SysUtils,
  System.Classes,
  Unit16 in 'Unit16.pas' {Form16};

procedure ShowForm; stdcall;
begin
  Form16 := TForm16.Create(nil);
  Form16.Show;
end;

  {$R *.res}

exports
  ShowForm;

begin
end.

[Delphi] 纯文本查看 复制代码

unit Unit16;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls;

type
  TForm16 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form16: TForm16;

implementation

{$R *.dfm}

procedure ShowForm stdcall; external 'Test1.dll'

procedure TForm16.Button1Click(Sender: TObject);
begin
  ShowForm;
end;

end.

这样写有副作用吗？

好像 没啥事发生。
和他们

https://segmentfault.com/a/1190000003705140

https://www.cnblogs.com/Mckk/p/5272648.html

https://blog.csdn.net/Yoryky/article/details/40864873

的比，有啥缺点？

潇潇暮雨寒

gossipxe 发表于 2024-11-27 14:10
问题不大，虽然我看不太懂！~~~~~~看下第27行呢~

第27行有什么问题呢

pujiepianzi

副作用不好说，我觉得谨慎一点总是稳一点

冥界3大法王

以上代码在D7上测试有点问题：
===============
下面的测试OK的

[Delphi] 纯文本查看 复制代码

Delphi7中编译成功的：
=====================这是带界面的DLL部分(Project1.dpr)
library Project1;
uses
  SysUtils,
  Classes,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
function ShowDllForm:TForm1;stdcall;
begin
  Result := TForm1.Create(nil);
  Result.Show;
end;

  {$R *.res}
exports
  ShowDllForm;

begin
end.
==============上面是调用DLL的主界面部分：====================
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function ShowDllForm:TForm1;external 'Project1.dll'

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowDllForm;
end;

end.