http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=39846
使用 TLanguages 來進行取得.
代碼: 選擇全部
var i:integer;
l:TLanguages;
begin
l:=Languages;
for i:=0 to l.Count -1 do
Memo1.lines.add(l.ID[i]+' : '+l.Name[i]);
end;