Mengetahui Bahasa Windows

Program-program dewasa ini tidak hanya dipakai oleh bangsa berhuruf Latin, tetapi juga berhuruf "Gambar". Oleh karena itu adalah perlu mengetahui bahasa yang dipakai di Windows tujuan. Sebagai misal, jika program Anda dipakai oleh orang Tiongkok atau Rusia, sementara bahasa software Anda berbahasa "ANSI", maka akan timbul masalah.

Salah satu langkah dalam membuat program kita berganti bahasa adalah mengetahui bahasa Windows saat itu. Program dibawah ini saya buat sebelum saya memutuskan mengganti layout keyboard ke chinese

function GetWindowsLanguage: string;
var
     WinLanguage: array [0..50] of char;
begin
    VerLanguageName(GetSystemDefaultLangID, WinLanguage, 50);
    Result := StrPas(WinLanguage);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
       ShowMessage(GetWindowsLanguage);
end;

Mengetahui Bahasa Windows 2020-06-30T09:14:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer