Browse Source

* more little winapi fixes (largeuint)

git-svn-id: trunk@7821 -
marco 18 years ago
parent
commit
f885568da9
2 changed files with 7 additions and 0 deletions
  1. 3 0
      packages/base/winunits/activex.pp
  2. 4 0
      rtl/objpas/types.pp

+ 3 - 0
packages/base/winunits/activex.pp

@@ -32,6 +32,9 @@ type
    PBStr = ^TBStr;
    TOleEnum = type LongWord;
    LargeInt = Types.LargeInt;
+   LargeUInt = Types.LargeUInt;
+   PLargeInt = Types.PLargeInt;
+   PLargeUInt = Types.PLargeUInt;
 
 {Glue types, should be linked to the proper windows unit types}
 TYPE

+ 4 - 0
rtl/objpas/types.pp

@@ -39,6 +39,10 @@ type
   PByte = System.PByte;
   Largeint = int64;
   LARGE_INT = LargeInt;
+  PLargeInt = ^LargeInt;
+  LargeUint = qword;
+  LARGE_UINT= LargeUInt;
+  PLargeuInt = ^LargeuInt;
 
   TIntegerDynArray = array of Integer;
   TCardinalDynArray = array of Cardinal;