Dll的写法<br>Exports<br> TechTemplateFormCreate; //&sup1;¤&ETH;ò&Auml;&pound;°&aring;<br><br>Var DllApplication:TApplication;<br> DllScreen:TScreen;<br><br>{$R *.RES}<br><br>procedure LibraryProc(Reason: Integer);<br>begin<br> if Reason = DLL_PROCESS_DETACH then<br> begin<br> Screen:=DllScreen;<br> Application:=DllApplication;<br> end;<br>end;<br><br>begin<br> DllApplication:=Application;<br> DllScreen:=Screen;<br> DLLProc:=@LibraryProc;<br>end.<br>----------------------------------------<br>TechTemplateForm<br> -------------<br>Procedure TechTemplateFormCreate(MDIApplication:TApplication);Export;<br><br>implementation<br><br>{$R *.DFM}<br><br>Procedure TechTemplateFormCreate(MDIApplication:TApplication);Export;<br>begin<br> if (not Assigned(TechTemplateForm)) then<br> begin<br> Application:=MDIApplication;<br> TechTemplateForm:=TTechTemplateForm.Create(Application);<br> end<br> else<br> begin<br> //TechTemplateForm.WindowState:=wsNormal;;<br> TechTemplateForm.BringToFront;<br> end;<br>end;<br>