R0b0t1
2007-12-08 23:11:03
I know how to do it, but you have to guess first. :rolleyes:
2007-12-08 23:11:03
2007-12-08 23:35:21
2007-12-09 05:13:39
2007-12-09 05:15:09
2007-12-09 05:26:35
2007-12-09 06:25:40
program New;
var
Form : TForm;
Timer : TTimer;
Arr : TVariantArray;
Const
Interval = 1000;
Procedure Test(Sender : TOBject);
begin;
Writeln('Multi-Threading..');
end;
Procedure SafeCallMe(Inteverval : integer);
begin;
Form := CreateForm;
Timer := TTimer.Create(Form);
Timer.ONTIMER := @Test;
Timer.INTERVAL := Inteverval;
end;
begin
Arr := [Interval];
ThreadSafeCall('SafeCallMe',Arr);
Wait(5000);
FreeForm(Form);
end.
2007-12-09 11:34:01
2007-12-09 11:58:53
2007-12-09 21:21:30
2007-12-09 23:49:02