***请问如何用线程调用这个过程*** ( 积分: 50 )

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)-1do
begin
dllH := loadlibrary(pchar(appPath+DLLInfo.DLLName));
DLLInfo.handle:= dllH;
@CmdLoc:= windows.getProcAddress(dllH,pchar('CreateForm'));

try
CmdLoc(DLLInfo.LocX,DLLInfo.LocY,Application,conAdo);
finally
CmdLoc := nil;
end;
end;
end;

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

参考C:/Program Files/Borland/Delphi7/Demos/Threads

参考例子写了,但启动DLL后,DLL的窗体一闪而过,请问为什么?

接受答案了.