fpcsrc/tests/webtbs/tw12987b.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

{ %target=win32,win64,wince,os2 }
{ %needlibrary }

uses
  popuperr;

procedure test;external 'tw12987a' name 'test';

function ThreadTest(p : pointer) : PtrInt;
  begin
    test;
  end;

var
  t1,t2,t3 : TThreadID;

begin
  t1:=BeginThread(@ThreadTest);
  t2:=BeginThread(@ThreadTest);
  t3:=BeginThread(@ThreadTest);
  WaitForThreadTerminate(t1,0);
  WaitForThreadTerminate(t2,0);
  WaitForThreadTerminate(t3,0);
  writeln('Finished');
end.