//假设你的资源文件已经正确编译到dll中 var hLangDll : THandle;hLangDll := LoadLibrary(pchar('dll路径')); if hLangDll <= 0 then exit;//调用资源文件中字符串 //获取多语言版本的字符串 function GetLangStr(IDSID : longint): string; var Buffer : array[0..500] of char; begin if hLangDll <= 0 then exit;
LoadString(hLangDll,IDSID,Buffer,sizeof(Buffer)); result := Buffer; end;
var
hLangDll : THandle;hLangDll := LoadLibrary(pchar('dll路径')); if hLangDll <= 0 then exit;//调用资源文件中字符串
//获取多语言版本的字符串
function GetLangStr(IDSID : longint): string;
var
Buffer : array[0..500] of char;
begin
if hLangDll <= 0 then exit;
LoadString(hLangDll,IDSID,Buffer,sizeof(Buffer)); result := Buffer;
end;