Delphi挂DLL中创建多线程

P8551945

哪位朋友有相关源码呢？学习学习。

甜密的穷哥

var td:Cardinal;

procedure Start;stdcall;
begin
  if form1=nil then
  begin
    form1:=tform1.Create(nil);
    //form1.ShowModal;
    form1.Show;
    end;
end;

yemao4587

就是用BeginThread(nil,0,@Start,nil,0,td); 这句启用多线程

多线程调用过程 Start