String aus .EXE und .DLL extrahieren?

[Rakshasa]

Hallo Leute,

unter Windows Vista finden sich in der Registry Dateiangaben, die auf Strings in .DLL oder .EXE-Dateien hinweisen, bspw.
"@comres.dll,-947"

Die Frage ist nun: Wie lese ich diese Strings aus? Bisher habe ich folgende Function vom Board hier benutzt:

Code:

function GetString(const lib: string; id: LongWord): string;
var
  hLib: THandle;
  buf: array [Byte] of Char;
begin
  hLib := LoadLibrary(PChar(lib));
  if LongBool(hLib) then
  try
    SetString(Result, buf, LoadString(hLib, id, @buf[0], SizeOf(buf)));
  finally
    FreeLibrary(hLib);
  end;
end;

Nur funktioniert diese Function nicht (mehr). Hat jemand eine Idee, wie die o.g. String-Resourcen ausgelesen werden können/sollen?