Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: konstante Systemstrings abfragen

  Alt 19. Mär 2007, 11:18
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
  Mit Zitat antworten Zitat