多国语言包有关问题

多国语言包问题
怎样才能把TLMPack控件试用时的试用信息提示去掉呀！！！除此之外，还有什么工具能做多国语言包呀！！！

------解决方案--------------------
unit rsUnit;

interface
uses Windows;

type
STRINGARRAY = array [0..10000] of string;
const
STRING_COUNT = 9;
cnstrings: array [0..STRING_COUNT] of string =
(
'网卡管理 ',//0
'请选择同步专家服务端要使用的网卡 ',//1
'子网掩码: ',//2
'确定 ',//3
'取消 ',//4
'添加 > > ',//5
'WinSock32 初始化失败! ',//6
'警告 ',//7
'删除 < < ',//8
'请注意: 组播协议不支持多子网同步！ '//9
);
twstrings: array [0..STRING_COUNT] of string =
(
'呼恨瞶 ',//0
'叫匡拒˙盡產狝叭狠璶ㄏノ呼 ',//1
'呼被絏: ',//2
'絋﹚ ',//3
' ',//4
'睰 > > ',//5
'WinSock32 ﹍てア毖! ',//6
'牡 ',//7
'埃 < < ',//8
'叫猔種: 舱冀某ぃや呼˙ '//9
);
enstrings: array [0..STRING_COUNT] of string =
(
'Lan Cards ',//0
'Check ethernet card(s) for Sync Expert ',//1
'Net Mask: ',//2
'&OK ',//3
'&Cancel ',//4
'&Add > > ',//5
'Failed to initialize WinSock32! ',//6
'Warning ',//7
'Delete < < ',//8
'Note: Multicast protocal not support multi-subnet! '
);
var
faces: ^STRINGARRAY;
facefont: string;

procedure InitLanguage();
procedure SetAllInterface();

implementation

uses NSetU;

procedure InitLanguage();
begin
case GetOEMCP() of
936:
begin
faces := @cnstrings;
facefont := '宋体 ';
end;
950:
begin
faces := @twstrings;
facefont := '灿砰 '
end;
else
begin
faces := @enstrings;
facefont := 'MS Sans Serif ';
end;
end;
end;

procedure SetAllInterface();
begin {}
nsForm.SetInterface();
end;

end.

多国语言包有关问题

相关推荐