瀏覽代碼

FIX: WlxPlugin header for 64 bit

Alexander Koblov 15 年之前
父節點
當前提交
22ca13d1ce
共有 1 個文件被更改,包括 9 次插入3 次删除
  1. 9 3
      sdk/wlxplugin.pas

+ 9 - 3
sdk/wlxplugin.pas

@@ -9,7 +9,8 @@ interface
 
 {$IFDEF MSWINDOWS}
 uses
-Windows;{$ENDIF}
+  Windows;
+{$ENDIF}
 
 const
   lc_copy=1;
@@ -37,7 +38,12 @@ const
   LISTPLUGIN_OK=0;
   LISTPLUGIN_ERROR=1;
 
-const MAX_PATH=32000;
+const
+  MAX_PATH=32000;
+
+type
+  { Unsigned integer with pointer size }
+  THandle = {$IFDEF CPU64}QWord{$ELSE}LongWord{$ENDIF};
 
 type
   tListDefaultParamStruct=record
@@ -59,7 +65,7 @@ type ttimeformat=record
      end;
      ptimeformat=^ttimeformat;
 
-type HBITMAP = type LongWord;
+type HBITMAP = type THandle;
 
 
 { Function prototypes: Functions need to be defined exactly like this!}