瀏覽代碼

* alias a few more types on windows. This makes developing portable software easier, since one doesn't have to conditionally import windows for e.g. tfiletime.

git-svn-id: trunk@20375 -
marco 13 年之前
父節點
當前提交
f8f5c3cd23
共有 1 個文件被更改,包括 7 次插入1 次删除
  1. 7 1
      rtl/objpas/types.pp

+ 7 - 1
rtl/objpas/types.pp

@@ -233,7 +233,13 @@ type
   TFileTime = _FILETIME;
   FILETIME = _FILETIME;
   PFileTime = ^TFileTime;
-
+{$else}
+type
+  PCLSID    = Windows.PCLSID;
+  TCLSID    = Windows.CLSID;
+  TFiletime = Windows.TFileTime;
+  Filetime  = Windows.FileTime;
+  PFiletime = Windows.PFileTime;
 {$endif Windows}
 
 type