regidb.pas

Delphi三层原代码掩饰及补丁

unit RegIdb;

interface

uses Classes, Windows, DesignIntf;

procedure Register;

implementation

uses hmADC,hmADN, hmADQ, hmClientDataSet, hmOleDataset,
 hmProvider,hmWinPos,hmRegistry,hmTrayIcon;

procedure Register;
const
  RegPage = 'HM IDB6.0';
begin
  RegisterComponents(RegPage, [THMADQ]);
  RegisterComponents(RegPage, [THMADN]);
  RegisterComponents(RegPage, [THMADC]);
  RegisterComponents(RegPage, [THMClientDataSet]);
  RegisterComponents(RegPage, [THMClientCommand]);
  RegisterComponents(RegPage, [THMQueryProvider]);
  RegisterComponents(RegPage, [THMWinPos]);
  RegisterComponents(RegPage, [THMRegistry]);
  RegisterComponents(RegPage, [THMTrayIcon]);

end;

end.