我正在开发一个将由我的 EXE 加载的 DLL 文件......所以 EXE 将调用第一个 DLL 程序,当这个程序被加载时,我想保持它打开,即使 EXE 被关闭。例如,我有一个带有计时器的 DLL,显示一条“Hello World”消息。DLL 代码:
uses
SysUtils,
Classes,
Dialogs,
ExtCtrls;
{$R *.res}
type
TMyTimer = Class(TTimer)
public
procedure OnMyTimer(Sender: TObject);
end;
procedure DllMessage; export;
var
MyTimer: TMyTimer;
begin
MyTimer := TMyTimer.Create(nil);
MyTimer.Interval := 10000;
MyTimer.OnTimer := MyTimer.OnMyTimer;
end;
procedure TMyTimer.OnMyTimer(Sender: TObject);
begin
ShowMessage('Hello World');
end;
exports DllMessage;
begin
end.
EXE 是这样加载的:
procedure DllMessage; external 'Message.dll'
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
DllMessage;
end;
当我关闭 EXE 时,我希望 DLL 继续运行并每 10 秒显示一次消息……这可能吗?