程序中发布OCX

    技术2025-12-24  5

    program XXX;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.

     

    最新回复(0)