建1个StringList;
procedure ShowChild(form:TForm);StdCall;
var
ptr:PLongint;
Form1:TForm1;
begin
if StringList.IndexOf(form.name)<>-1 then
begin
exit;
end;
ptr:=@(Application.MainForm);
ptr^:=Longint(form);
Form1:=TForm1.Create(form);
StringList.Add(form.name);
Form1.Show;
end;