You've already forked lazarus-ccr
RxVerInfo - fix compile on non Linux or Windows OS
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2891 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@@ -109,13 +109,14 @@ type
|
||||
|
||||
|
||||
implementation
|
||||
uses FileUtil, resource, resreader, InterfaceBase, rxconst,
|
||||
uses FileUtil, resource, resreader, InterfaceBase, rxconst
|
||||
{$IFDEF WINDOWS}
|
||||
winpeimagereader
|
||||
, winpeimagereader
|
||||
{$ENDIF}
|
||||
{$IFDEF LINUX}
|
||||
elfreader
|
||||
, elfreader
|
||||
{$ENDIF}
|
||||
|
||||
;
|
||||
|
||||
{ TRxVersionInfo }
|
||||
@@ -263,12 +264,17 @@ var
|
||||
begin
|
||||
FValues.Clear;
|
||||
FValid:=false;
|
||||
Reader:=nil;
|
||||
{$IFDEF WINDOWS}
|
||||
Reader:=TWinPEImageResourceReader.Create;
|
||||
{$ENDIF}
|
||||
{$IFDEF LINUX}
|
||||
Reader:=TElfResourceReader.Create;
|
||||
{$ENDIF}
|
||||
|
||||
if Reader = nil then
|
||||
exit;
|
||||
|
||||
Res:=TResources.Create;
|
||||
V:=nil;
|
||||
try
|
||||
|
Reference in New Issue
Block a user