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
26
27
28
29
30
31
32
33
34
35
36
|
{ %target=win32,wince,win64 }
{ %opt=-gh }
{$AppType CONSOLE}
uses
popuperr,
Windows;
{$C+}
var
dll1, dll2: HModule;
function T1(Parameter: Pointer): PtrInt;
begin
//Sleep(100);
end;
function T2(Parameter: Pointer): PtrInt;
begin
//Sleep(100);
end;
var
h: array[0..1] of THandle;
id1, id2: TThreadID;
p : pointer;
begin
IsMultiThread:=True;
dll1:=LoadLibrary('tw14992a.dll');
dll2:=LoadLibrary('tw14992b.dll');
h[0]:=BeginThread(nil, 0, @T1, nil, 0, id1);
h[1]:=BeginThread(nil, 0, @T2, nil, 0, id2);
WaitForMultipleObjects(Length(h), @h[0], true, infinite);
FreeLibrary(dll2);
FreeLibrary(dll1);
end.
|
