BorlandTalk.com

Peter Below (TeamB) · Guest

In article <3f7c5b34 (AT) newsgroups (DOT) borland.com>, Maël Hörz wrote:

Valent Levente · Guest

I have an exe for it.
The key for it is the EnumResourceNames Winapi function, and loading these
packages as datafiles.
In the following example, I call the SearchStrings method of my form, for
all the packages. It uses EnumResourceNames which calls my EnumStringsProc
function as a callback.
The last thing is the EnumResourceLanguages, because every resource can have
multiple entries, with different languages.

function EnumLangsFunc(hModule: THandle; lpszType: PChar; lpszName: PChar;
wIDLanguage: word;
lParam: TdxTreeListNode): Boolean; stdcall;
begin
lParam.Values[frm_mpp21.lst_impc_langid.index] := wIDLanguage;
result := False;
end;

function EnumStringsProc(hModule: THandle; lpszType: PChar; lpszName: PChar;
lParam: TdxTreeListNode): Boolean; stdcall;
var
nParent,
nStr: TdxTreeListNode;
hg, hr: THandle;
c: array[0..9999] of char;
p: PChar;
i: integer;
ml_lang: boolean;
begin
hg := ULONG(lpszName);
Result := true;
if hg < $0000FFFF then
begin
{The Resource Name given by EnumResNameProc is the blockID. The string ID in
LoadString() is given by (block ID - 1) * 16 + the index of the string in
that block.}
nParent := lParam.AddChild;
nParent.Strings[frm_mpp21.lst_impNev.Index] := IntToStr(hg);
nParent.Values[frm_mpp21.lst_impc_langid.index] := 0;
nParent.Values[frm_mpp21.lst_impc_tipus.index] := 'ST';
nParent.ImageIndex := 1;

hg := (hg - 1) * 16;
ml_Lang := False;
for i := 0 to 15 do
begin
Fillchar(c, Sizeof(c), #0);
LoadString(hModule, hg + i, c, sizeof(c) - 1);
if c[0] <> #0 then
begin
nStr := nParent.AddChild;
nStr.Strings[frm_mpp21.lst_impNev.Index] := IntToStr(hg + i);
nStr.Strings[frm_mpp21.lst_impc_eredeti.Index] := c;
nStr.Values[frm_mpp21.lst_impc_tipus.index] := 'S';
nStr.ImageIndex := 2;
if not ml_lang then
begin
EnumResourceLanguages(hModule,
lpszType,
lpszName,
@EnumLangsFunc,
integer(nParent));
ml_lang := true;
end;
end;
end;
end;
end;

procedure Tfrm_mpp21.SearchStrings(n: TdxTreelistNode);
var
mc_file: string;
hMod: Cardinal;
begin
mc_file := n.Strings[lst_impTeljesNev.index];
hMod := LoadLibraryEx(PChar(mc_file), 0, LOAD_LIBRARY_AS_DATAFILE);
if hMod <> 0 then
begin
EnumResourceNames(hMod, RT_STRING, @EnumStringsProc, integer(n));
FreeLibrary(hMod);
end;
end;

--
Levente VALENT
[email]vlevi (AT) freemail (DOT) hu[/email]

Peter Below (TeamB) · Guest

In article <3f7dcba1 (AT) newsgroups (DOT) borland.com>, Maël Hörz wrote:

Frits. · Guest

Mal H rz wrote: