2
0
armin 22 жил өмнө
parent
commit
d81dcf5c47

+ 8 - 2
rtl/netware/sysutils.pp

@@ -35,11 +35,14 @@ TYPE
     Magic : WORD;                    { to avoid abends with uninitialized TSearchRec }
     Magic : WORD;                    { to avoid abends with uninitialized TSearchRec }
   END;
   END;
 
 
-
+type
+  THandle = Cardinal;
 
 
 { Include platform independent interface part }
 { Include platform independent interface part }
 {$i sysutilh.inc}
 {$i sysutilh.inc}
 
 
+
+  
 { additional NetWare file flags}
 { additional NetWare file flags}
 CONST
 CONST
   faSHARE              = $00000080;  { Sharable file                   }
   faSHARE              = $00000080;  { Sharable file                   }
@@ -497,7 +500,10 @@ end.
 {
 {
 
 
   $Log$
   $Log$
-  Revision 1.10  2003-03-30 12:35:43  armin
+  Revision 1.11  2003-04-12 13:21:27  armin
+  * added THandle
+
+  Revision 1.10  2003/03/30 12:35:43  armin
   * removed uses netware from winsock, DirectoryExists implemented
   * removed uses netware from winsock, DirectoryExists implemented
 
 
   Revision 1.9  2003/03/29 15:16:26  hajny
   Revision 1.9  2003/03/29 15:16:26  hajny