***请问如何用多线程调用这个过程***
procedure TfrmPlayMain.RunMode;
var
actcmd:string;
dllName:string;
dllH:THandle;
appPath:string;
ActionCmd:TActionCmd;
i:integer;
CmdLoc:TCmd;
begin
appPath:=extractFilePath(application.ExeName);
for i:=0 to Length(DLLInfo)-1 do
begin
dllH := loadlibrary(pchar(appPath+DLLInfo[i].DLLName));
DLLInfo[i].handle:= dllH;
@CmdLoc:= windows.getProcAddress(dllH,pchar( 'CreateForm '));
try
CmdLoc(DLLInfo[i].LocX,DLLInfo[i].LocY,Application,conAdo);
finally
CmdLoc := nil;
end;
end;
end;


想通过多线程调用一组DLL,不知道如何调用?谢谢

[解决办法]
你是指一个线程序调用一个DLL,还是在一个线程里调用所有的DLL

[解决办法]
把这段代码封装到一个类里面，然后在各个线程里面创建对象，来调用

[解决办法]
写一个类继承TThread
在Execute里去调用这个函数
[解决办法]
for i:=0 to Length(DLLInfo)-1 do
begin
dllH := loadlibrary(pchar(appPath+DLLInfo[i].DLLName));
DLLInfo[i].handle:= dllH;
TDllThread.Create(dllh,true);
end;

把Handle当成TThread的子类的参数传入
TDllThread = class(TThread)
private
FHandle: THandle;
public
constructor Create(AHandle: THandle; B: Boolean);
procedure Execute;override;
end;

procedure TDllThread.Execute;
begin
...
end;