ProgsX
asked on
How to write the command for several reource
How to write the command for several reource
ex:
{$R “project.res” “project.rc”}
{$R “extract.res” “extract.rc”}
ex:
{$R “project.res” “project.rc”}
{$R “extract.res” “extract.rc”}
ASKER
I use two files
Sfx.rc in the file (extract RCDATA Sfx.exe)
and
Build.rc in the next file (extract RCDATA Build.exe)
{$R 'Sfx.res' 'Sfx.rc'}
{$R 'build.res' 'build.rc'}
I use this function to extract the information which I have need
procedure ExtraireEXE_sfx(CheminSfx: String);//sfx
var
Res: TResourceStream;
EXE: TFileStream;
begin
Try
Res := TResourceStream.Create(hIn stance, 'extract', RT_RCDATA);
EXE := TFileStream.Create(CheminS fx, fmCreate);
EXE.CopyFrom(Res, 0);
Finally
EXE.Free;
Res.Free;
end;
end;
procedure ExtraireEXE_build(CheminBu ild: String);//build
var
Res: TResourceStream;
EXE: TFileStream;
begin
Try
Res := TResourceStream.Create(hIn stance, 'extract', RT_RCDATA);//
EXE := TFileStream.Create(CheminB uild, fmCreate);
EXE.CopyFrom(Res, 0);
Finally
EXE.Free;
Res.Free;
end;
end;
I have his errors
[Error] WARNING. Duplicate resource(s):
[Error] Type 10 (RCDATA), ID EXTRACT:
[Error] File C:\Documents and Settings\Administractor\Me s documents\Projects\Project s\build.re s resource kept; file C:\Documents and Settings\Administractor\Me s documents\Projects\Project s\Sfx.res resource discarded.
Sfx.rc in the file (extract RCDATA Sfx.exe)
and
Build.rc in the next file (extract RCDATA Build.exe)
{$R 'Sfx.res' 'Sfx.rc'}
{$R 'build.res' 'build.rc'}
I use this function to extract the information which I have need
procedure ExtraireEXE_sfx(CheminSfx:
var
Res: TResourceStream;
EXE: TFileStream;
begin
Try
Res := TResourceStream.Create(hIn
EXE := TFileStream.Create(CheminS
EXE.CopyFrom(Res, 0);
Finally
EXE.Free;
Res.Free;
end;
end;
procedure ExtraireEXE_build(CheminBu
var
Res: TResourceStream;
EXE: TFileStream;
begin
Try
Res := TResourceStream.Create(hIn
EXE := TFileStream.Create(CheminB
EXE.CopyFrom(Res, 0);
Finally
EXE.Free;
Res.Free;
end;
end;
I have his errors
[Error] WARNING. Duplicate resource(s):
[Error] Type 10 (RCDATA), ID EXTRACT:
[Error] File C:\Documents and Settings\Administractor\Me
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
{$R projects.res}
{$R extract.res}