Таймер в DLL

← →
nucl © (2004-01-17 14:31) [0]

Как правильно реализовать таймер внутри DLL для использования его внутри самой DLL ?

← →
Nucl © (2004-01-17 14:57) [1]

никто ничего ?

← →
Nucl © (2004-01-17 17:04) [2]

ну же ... ?

← →
Бином Ньютоныч (2004-01-17 20:55) [3]

function ShowDelayedMsg(Timeout: Cardinal): bool; stdcall;

implementation

type
TTimerEventCls = class
class procedure TimerEvent(Sender: Tobject);
end;

var
Timer: TTimer = nil;

function ShowDelayedMsg(Timeout: Cardinal): bool;
begin
Result:=false;
if Timer = nil then Timer:=TTimer.Create(nil)
else if Timer.Enabled then Exit;
Timer.OnTimer:=TTimerEventCls.TimerEvent;
Timer.Interval:=Timeout;
Timer.Enabled:=true;
Result:=true;
end;

{ TTimerEventCls }

class procedure TTimerEventCls.TimerEvent(Sender: Tobject);
begin
Timer.Enabled:=false;
MessageBox(0, "DLL message", "DLL", 0);
end;

А можно добавить DataModul и в него поместить таймер...

Таймер в DLL Найти похожие ветки