dllprocedure showdllform(ahandle : Thandle;parent : Thandle);begin if ahandle <> null then application.Handle := ahandle; Form1 := Tform1.Create(application); Form1.ParentWindow := parent; Form1.BorderStyle := bsNone; Form1.Show; form1.Align := alClient;end;主窗口procedure TForm1.Button1Click(Sender: TObject);var p:TShowdllform; l:THandle;begin if l = 0 then l:=LoadLibrary('Project1.dll'); if l<>0 then @p:=GetProcAddress(l,PChar('showdllform')); if Assigned(p) then p(panel1.Handle,panel1.Handle); end;
