uses
Forms,Windows,
uMainFM in 'uMainFM.pas' {MainFM};
{$R *.RES}
Var
hLib:THandle;
PRegOcx: procedure ; stdcall;
begin
Application.Initialize;
hLib:=Loadlibrary('C:/TIDESTONE/FORMONE6/ttf16.ocx');
PRegOcx:=GetProcAddress(hLib,PChar('DllRegisterServer'));
if Assigned(PRegOcx) then
PRegOcx;
Application.CreateForm(TMainFM, MainFM);
Application.Run;
end.
程序中发布OCX
最新推荐文章于 2022-02-09 23:24:52 发布