Mengetahui Regional Setting di Delphi

Berikut ini adalah 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 :-)