mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
37 lines
639 B
ObjectPascal
37 lines
639 B
ObjectPascal
{ %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.
|