procedure CreateLogoForm(App: TApplication; Scr: TScreen);//(xx:Txx;yy;Tyy;自己设定的动态参数,)<br>begin<br> CoInitialize(nil); //由于使用ado,所以必须初始化ole<br> try<br> Application := App;<br> Screen := Scr;<br> FormLogo:=TFormLogo.Create(nil);<br> FormLogo.ShowModal;<br> finally<br> CoUninitialize;<br> end;<br>end;