test_tlb.pas

delphi实现的二 维 码 生成 控制代 码

unit Test_TLB;


{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
  
 
const

  TestMajorVersion = 1;
  TestMinorVersion = 0;

  LIBID_Test: TGUID = '{CA52379A-1471-4FEB-B5B5-D0AF023BC9DE}';


implementation

uses ComObj;

end.