[轉貼]如何列舉出windows中所有語言及國家

[tim]

轉貼自:
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;