Berikut ini yakni fungsi/function untuk mengetahui regional setting yang sedang terterapkan pada sistem operasi anda:
function GetRegionalCountry: string;
var
Buffer: PChar;
Size: integer;
begin
Size := GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SABBREVLANGNAME, nil, 0);
GetMem(Buffer, Size);
try
GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SABBREVLANGNAME, Buffer, Size);
Result := string(Buffer);
finally
FreeMem(Buffer);
end;
end;
Setelah itu silahkan panggil function GetRegionalCountry melalui button1 atau melalui apa saja yang anda kehendaki, berikut ini contohnya:
procedure TForm1.Button1Click(Sender: TObject);
var i : string;
begin
i:=GetRegionalCountry;
showmessage(i);
end;
Hope it's help u, terima kasih sudah mampir :-)
Sumber http://farihinmuhamad.blogspot.com