[fpc-pascal] fcl-res: using resource embedded in exe

[Paul Ishenin]

25.05.13, 20:25, Reinier Olislagers пишет:

> In the code above, I'm loading the resource from the executable.
> However, Paramstr(0) is not reliable on all platforms.
> Is there a better way of doing this?

Yes.

Resource := FindResource(HInstance, 'SQLSCRIPT', RT_RCDATA);
if Resource <> 0 then
begin

   Stream := TResourceStream.Create(HInstance, 'SQLSCRIPT', RT_RCDATA);
   ...
end;

TResourceStream is available cross platform in classes.pas unit.

Best regards,
Paul Ishenin