test_tlb.pas

来自「delphi实现的二 维 码 生成 控制代 码」· PAS 代码 · 共 26 行

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.