delphide sistemin dilini (windows) alabilirmiyiz?

[true_false]

merhabalar
başlıktanda anlaşıldığı gibi sistemin türkçe veya ingilizce v.s v.s olduğunu nasıl anlarız
bunun için bir api veya daha önce yazılmış bir fonksiyon varmı yoksa nerden başlamalıyım..
not şimdiden vermiş olduğunuz güzel cevaplar için teşekkür ederim

[P206]

Selamlar

Kod: Tümünü seç

Caption:= Languages.NameFromLocaleID[GetSystemDefaultLCID];

Bir bak işine yarayabilir. Elimde farklı bir dil işletim sistemi olmadığı için deneyemedim.

[oguzozturk74]

TLanguages objesinin Name ve LocaleID özellikleri var , buradan AnsiCompareStr ile ilgili dili de karşılaştırabilirsin .
Mesela ingilizce için

Kod: Tümünü seç

Name[IndexOf($0409)] = 'English' 

sonucunu döndürüyor.

aşağıda ki kod ise size dilleri listeler.

Kod: Tümünü seç

var
  i: Integer;
  Languages: TLanguages;
begin
  Memo1.Clear;
  Memo1.Lines.Add('Şu an ki dil: ' + IntToHex(SysLocale.DefaultLCID,
4));
  Languages := TLanguages.Create;
  Memo1.Lines.Add('Dil sayısı: ' + IntToStr(Languages.Count));
  for i := 0 to Languages.Count - 1 do
    Memo1.Lines.Add(IntToHex(Languages.LocaleID[i], 4) + ' '#9 +
                    Languages.Ext[i] + ' '#9 + Languages.Name[i]);
  Languages.Free;
end;

[P206]

Sevgili @oguzozturk74 bende şimdi makaler kısmına buna benzer bir kod eklemiştim istersen devamına sende bu kodu eklersen kanımca daha iyi olur. Yaklaşık aynı şey ama..

İyi Çalışmalar

[true_false]

ilginize ve alakanıza teşekkürler.

[oguzozturk74]

Hocam aganın kodunun üzerine kod olmaz ama , sen kendin istedin .

Saygılar...