Скачать: CL | DM;

Таймер в 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;

---

← →
Eagle Owl ©   (2004-01-17 23:02) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c