如何才能让程序自动区分繁体系统与简体系统？

Question

如何才能让程序自动区分繁体系统与简体系统？

Answer 1

case GetSystemDefaultLangID of
    $00000404 :; //  中文 (台灣)
    $00000804 :; //  中文 (中國)
    $00000C04 :; // 中文 (香港特別行政區)
    $00001004 :; // 中文 (新加坡)
    $00001404 :; // 中文 (澳門特別行政區)
 end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
   case GetSystemDefaultLangID of
    $00000404 : label1.Caption:='繁體中文操作系統'; 
    $00000804 : label1.Caption:='簡體中文操作系統';
end;
end;