Delphi SprachDLL nutzen

[chris]

hi,

auch kein problem.

dann könntest du es wie folgt machen:

resource (eng.rc):

Code:

STRINGTABLE
{
 1, "&Yes"
}

dll (lang_eng.dll):

Delphi-Quellcode:

library lang_eng;
 {$E dll}
begin
 {$R eng.res}
end.

aufruf:

Delphi-Quellcode:

var
  a: array[0..255] of char;
  h: hwnd;
begin
  h := loadlibrary('lang_eng.dll');
  try
    if h >= 32 then
      if loadstring(h, 1, a, sizeof(a)) > 0 then showmessage(strpas(a))
  finally
    freelibrary(h)
  end;