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