ロケールIDを取得する

国際化対応時にロケール ID によって処理を分けたい場合があります。ロケール ID の取得には GetUserDefaultLCID API を使います。

■ GetUserDefaultLCIDの使用例 
procedure TPropertyWindow.FormCreate(Sender: TObject);  
begin
  if  (GetUserDefaultLCID() = 1041) then  begin
    //日本語環境の場合
  end else begin
    //それ以外
  end;
end;

ロケール ID の一覧は ここを参照。