here is my dll frame code :
library dlltest1;
uses
SysUtils,
Classes;
var
x,y,z:integer;
{$R *.res}
procedure dddd(str:string);/////////////here , is my process
begin
x:=random(100); y:=random(30);
end;
procedure ontimer();////here ,i need help ,to set a timer process ,
////interval:=1,let dll run constantly
begin
dddd("aaaa");//here , call my process
function Add():integer;stdcall;////here define a export function
begin
z:=x+y;
result:= z;
end;
end;
exports
Add;
begin
end.