浏览代码

* Fix wince/nativent compilation

Michaël Van Canneyt 2 年之前
父节点
当前提交
9b9623b289
共有 1 个文件被更改,包括 6 次插入1 次删除
  1. 6 1
      rtl/objpas/classes/reader.inc

+ 6 - 1
rtl/objpas/classes/reader.inc

@@ -1939,13 +1939,18 @@ begin
      begin
      DeltaName:=RootName+'_'+Delta;
      // No module support yet
-     ResHandle:=FindResource(Nilhandle,PAnsiChar(DeltaName), PAnsiChar(RT_RCDATA));
+     ResHandle:=System.FindResource(Nilhandle,DeltaName, PAnsiChar(RT_RCDATA));
      if ResHandle<>NilHandle then
        Break;
      end;
   if ResHandle=NilHandle then 
     exit;     
+{$ifdef FPC_OS_UNICODE}    
+// Wince
+  S:=TResourceStream.Create(NilHandle,DeltaName, PWideChar(RT_RCDATA));
+{$ELSE}  
   S:=TResourceStream.Create(NilHandle,DeltaName, PAnsiChar(RT_RCDATA));
+{$ENDIF}
   try
     Proc(S);
   finally