浏览代码

* HResult is alias for System.HResult
* Handle is unique type of Cardinal

peter 22 年之前
父节点
当前提交
47b226c340
共有 1 个文件被更改,包括 7 次插入3 次删除
  1. 7 3
      rtl/win32/wininc/base.inc

+ 7 - 3
rtl/win32/wininc/base.inc

@@ -76,7 +76,8 @@
      DWORDLONG  = qword;  { was unsigned long  }
      PDWORDLONG = ^DWORDLONG;
 
-     HANDLE = longint;    { or should it be cardinal ?? PM }
+     HANDLE = type Cardinal;
+     HRESULT = System.HResult;
 
      HACCEL = HANDLE;
      HBITMAP = HANDLE;
@@ -111,7 +112,6 @@
      HPALETTE = HANDLE;
      HPEN = HANDLE;
      HRASCONN = HANDLE;
-     HRESULT = HANDLE;
      HRGN = HANDLE;
      HRSRC = HANDLE;
      HSTMT = HANDLE;
@@ -937,7 +937,11 @@ type
 
 {
   $Log$
-  Revision 1.15  2002-12-12 17:34:35  peter
+  Revision 1.16  2003-04-01 15:37:17  peter
+    * HResult is alias for System.HResult
+    * Handle is unique type of Cardinal
+
+  Revision 1.15  2002/12/12 17:34:35  peter
     * Renaming INT type to WINT
 
   Revision 1.14  2002/11/27 20:08:21  peter