konstante Systemstrings abfragen

[marabu]

Hi Ronny,

wenn du den String "Neuer Ordner" in einer beliebigen Sprache haben möchtest, dann könnte das schwierig werden. Gespeichert ist er auf jeden Fall als String-Resource 30320 in der lokalisierten SHELL32.DLL:

Delphi-Quellcode:

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;

procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  ShowMessage('"' + GetString('C:\WINDOWS\SYSTEM32\SHELL32.DLL', 30320) + '"');
end;

Freundliche Grüße