我的Dll是这样的:
library server;
uses
SysUtils,
Classes,windows,
Unit1 in 'Unit1.pas' {Form1};
procedure Test;
begin
form1:=Tform1.create(nil);
end;{$R *.res}
exports
Test;
begin
end.
这个form1需要在dll卸载时销毁。
希望大家在给出答案前,写个程序测试一下。
library server;
uses
SysUtils,
Classes,windows,
Unit1 in 'Unit1.pas' {Form1};
procedure Test;
begin
form1:=Tform1.create(nil);
end;{$R *.res}
exports
Test;
begin
end.
这个form1需要在dll卸载时销毁。
希望大家在给出答案前,写个程序测试一下。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货