请使用英文Windows的大大帮个忙

[数字蛋糕]

在窗体上放一个Memo和一个Button。然后在Button的事件中写：

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
for i := 0 to Languages.Count - 1 do
begin
Memo1.Lines.Add(Format(' FLanguages[%d].ID := %s;', [i, Languages.ID[i]]));
Memo1.Lines.Add(Format(' FLanguages[%d].Ext := ''%s'';', [i, LowerCase(Languages.Ext[i])]));
Memo1.Lines.Add(Format(' FLanguages[%d].Name := ''%s'';', [i, Languages.Name[i]]));
end;
end;

然后就是把结果贴出来就可以拿分了。

[keyz]

win 2000 en

FLanguages[0].ID := $00000401;
FLanguages[0].Ext := 'ara';
FLanguages[0].Name := 'Arabic (Saudi Arabia)';
FLanguages[1].ID := $00000402;
FLanguages[1].Ext := 'bgr';
FLanguages[1].Name := 'Bulgarian';
FLanguages[2].ID := $00000403;
FLanguages[2].Ext := 'cat';
FLanguages[2].Name := 'Catalan';
FLanguages[3].ID := $00000404;
FLanguages[3].Ext := 'cht';
FLanguages[3].Name := 'Chinese (Taiwan)';
FLanguages[4].ID := $00000405;
FLanguages[4].Ext := 'csy';
FLanguages[4].Name := 'Czech';
FLanguages[5].ID := $00000406;
FLanguages[5].Ext := 'dan';
FLanguages[5].Name := 'Danish';
FLanguages[6].ID := $00000407;
FLanguages[6].Ext := 'deu';
FLanguages[6].Name := 'German (Germany)';
FLanguages[7].ID := $00000408;
FLanguages[7].Ext := 'ell';
FLanguages[7].Name := 'Greek';
FLanguages[8].ID := $00000409;
FLanguages[8].Ext := 'enu';
FLanguages[8].Name := 'English (United States)';
FLanguages[9].ID := $0000040A;
FLanguages[9].Ext := 'esp';
FLanguages[9].Name := 'Spanish (Traditional Sort)';
FLanguages[10].ID := $0000040B;
FLanguages[10].Ext := 'fin';
FLanguages[10].Name := 'Finnish';
FLanguages[11].ID := $0000040C;
FLanguages[11].Ext := 'fra';
FLanguages[11].Name := 'French (France)';
FLanguages[12].ID := $0000040D;
FLanguages[12].Ext := 'heb';
FLanguages[12].Name := 'Hebrew';
FLanguages[13].ID := $0000040E;
FLanguages[13].Ext := 'hun';
FLanguages[13].Name := 'Hungarian';
FLanguages[14].ID := $0000040F;
FLanguages[14].Ext := 'isl';
FLanguages[14].Name := 'Icelandic';
FLanguages[15].ID := $00000410;
FLanguages[15].Ext := 'ita';
FLanguages[15].Name := 'Italian (Italy)';
FLanguages[16].ID := $00000411;
FLanguages[16].Ext := 'jpn';
FLanguages[16].Name := 'Japanese';
FLanguages[17].ID := $00000412;
FLanguages[17].Ext := 'kor';
FLanguages[17].Name := 'Korean';
FLanguages[18].ID := $00000413;
FLanguages[18].Ext := 'nld';
FLanguages[18].Name := 'Dutch (Netherlands)';
FLanguages[19].ID := $00000414;
FLanguages[19].Ext := 'nor';
FLanguages[19].Name := 'Norwegian (Bokmal)';
FLanguages[20].ID := $00000415;
FLanguages[20].Ext := 'plk';
FLanguages[20].Name := 'Polish';
FLanguages[21].ID := $00000416;
FLanguages[21].Ext := 'ptb';
FLanguages[21].Name := 'Portuguese (Brazil)';
FLanguages[22].ID := $00000418;
FLanguages[22].Ext := 'rom';
FLanguages[22].Name := 'Romanian';
FLanguages[23].ID := $00000419;
FLanguages[23].Ext := 'rus';
FLanguages[23].Name := 'Russian';
FLanguages[24].ID := $0000041A;
FLanguages[24].Ext := 'hrv';
FLanguages[24].Name := 'Croatian';
FLanguages[25].ID := $0000041B;
FLanguages[25].Ext := 'sky';
FLanguages[25].Name := 'Slovak';
FLanguages[26].ID := $0000041C;
FLanguages[26].Ext := 'sqi';
FLanguages[26].Name := 'Albanian';
FLanguages[27].ID := $0000041D;
FLanguages[27].Ext := 'sve';
FLanguages[27].Name := 'Swedish';
FLanguages[28].ID := $0000041E;
FLanguages[28].Ext := 'tha';
FLanguages[28].Name := 'Thai';
FLanguages[29].ID := $0000041F;
FLanguages[29].Ext := 'trk';
FLanguages[29].Name := 'Turkish';
FLanguages[30].ID := $00000420;
FLanguages[30].Ext := 'urd';
FLanguages[30].Name := 'Urdu';
FLanguages[31].ID := $00000421;
FLanguages[31].Ext := 'ind';
FLanguages[31].Name := 'Indonesian';
FLanguages[32].ID := $00000422;
FLanguages[32].Ext := 'ukr';
FLanguages[32].Name := 'Ukrainian';

• 打赏
• 举报

回复 赞

[keyz]

FLanguages[33].ID := $00000423;
FLanguages[33].Ext := 'bel';
FLanguages[33].Name := 'Belarusian';
FLanguages[34].ID := $00000424;
FLanguages[34].Ext := 'slv';
FLanguages[34].Name := 'Slovenian';
FLanguages[35].ID := $00000425;
FLanguages[35].Ext := 'eti';
FLanguages[35].Name := 'Estonian';
FLanguages[36].ID := $00000426;
FLanguages[36].Ext := 'lvi';
FLanguages[36].Name := 'Latvian';
FLanguages[37].ID := $00000427;
FLanguages[37].Ext := 'lth';
FLanguages[37].Name := 'Lithuanian';
FLanguages[38].ID := $00000429;
FLanguages[38].Ext := 'far';
FLanguages[38].Name := 'Farsi';
FLanguages[39].ID := $0000042A;
FLanguages[39].Ext := 'vit';
FLanguages[39].Name := 'Vietnamese';
FLanguages[40].ID := $0000042B;
FLanguages[40].Ext := 'hye';
FLanguages[40].Name := 'Armenian';
FLanguages[41].ID := $0000042C;
FLanguages[41].Ext := 'aze';
FLanguages[41].Name := 'Azeri (Latin)';
FLanguages[42].ID := $0000042D;
FLanguages[42].Ext := 'euq';
FLanguages[42].Name := 'Basque';
FLanguages[43].ID := $0000042F;
FLanguages[43].Ext := 'mki';
FLanguages[43].Name := 'Macedonian (FYROM)';
FLanguages[44].ID := $00000436;
FLanguages[44].Ext := 'afk';
FLanguages[44].Name := 'Afrikaans';
FLanguages[45].ID := $00000437;
FLanguages[45].Ext := 'kat';
FLanguages[45].Name := 'Georgian';
FLanguages[46].ID := $00000438;
FLanguages[46].Ext := 'fos';
FLanguages[46].Name := 'Faeroese';
FLanguages[47].ID := $00000439;
FLanguages[47].Ext := 'hin';
FLanguages[47].Name := 'Hindi';
FLanguages[48].ID := $0000043E;
FLanguages[48].Ext := 'msl';
FLanguages[48].Name := 'Malay (Malaysia)';
FLanguages[49].ID := $0000043F;
FLanguages[49].Ext := 'kkz';
FLanguages[49].Name := 'Kazakh';
FLanguages[50].ID := $00000441;
FLanguages[50].Ext := 'swk';
FLanguages[50].Name := 'Swahili';
FLanguages[51].ID := $00000443;
FLanguages[51].Ext := 'uzb';
FLanguages[51].Name := 'Uzbek (Latin)';
FLanguages[52].ID := $00000444;
FLanguages[52].Ext := 'ttt';
FLanguages[52].Name := 'Tatar';
FLanguages[53].ID := $00000449;
FLanguages[53].Ext := 'tam';
FLanguages[53].Name := 'Tamil';
FLanguages[54].ID := $0000044E;
FLanguages[54].Ext := 'mar';
FLanguages[54].Name := 'Marathi';
FLanguages[55].ID := $0000044F;
FLanguages[55].Ext := 'san';
FLanguages[55].Name := 'Sanskrit';
FLanguages[56].ID := $00000457;
FLanguages[56].Ext := 'knk';
FLanguages[56].Name := 'Konkani';
FLanguages[57].ID := $00000801;
FLanguages[57].Ext := 'ari';
FLanguages[57].Name := 'Arabic (Iraq)';
FLanguages[58].ID := $00000804;
FLanguages[58].Ext := 'chs';
FLanguages[58].Name := 'Chinese (PRC)';
FLanguages[59].ID := $00000807;
FLanguages[59].Ext := 'des';
FLanguages[59].Name := 'German (Switzerland)';
FLanguages[60].ID := $00000809;
FLanguages[60].Ext := 'eng';
FLanguages[60].Name := 'English (United Kingdom)';
FLanguages[61].ID := $0000080A;
FLanguages[61].Ext := 'esm';
FLanguages[61].Name := 'Spanish (Mexico)';
FLanguages[62].ID := $0000080C;
FLanguages[62].Ext := 'frb';
FLanguages[62].Name := 'French (Belgium)';
FLanguages[63].ID := $00000810;
FLanguages[63].Ext := 'its';
FLanguages[63].Name := 'Italian (Switzerland)';
FLanguages[64].ID := $00000813;
FLanguages[64].Ext := 'nlb';
FLanguages[64].Name := 'Dutch (Belgium)';
FLanguages[65].ID := $00000814;
FLanguages[65].Ext := 'non';
FLanguages[65].Name := 'Norwegian (Nynorsk)';

• 打赏
• 举报

回复 赞

[keyz]

FLanguages[66].ID := $00000816;
FLanguages[66].Ext := 'ptg';
FLanguages[66].Name := 'Portuguese (Portugal)';
FLanguages[67].ID := $0000081A;
FLanguages[67].Ext := 'srl';
FLanguages[67].Name := 'Serbian (Latin)';
FLanguages[68].ID := $0000081D;
FLanguages[68].Ext := 'svf';
FLanguages[68].Name := 'Swedish (Finland)';
FLanguages[69].ID := $0000082C;
FLanguages[69].Ext := 'aze';
FLanguages[69].Name := 'Azeri (Cyrillic)';
FLanguages[70].ID := $0000083E;
FLanguages[70].Ext := 'msb';
FLanguages[70].Name := 'Malay (Brunei Darussalam)';
FLanguages[71].ID := $00000843;
FLanguages[71].Ext := 'uzb';
FLanguages[71].Name := 'Uzbek (Cyrillic)';
FLanguages[72].ID := $00000C01;
FLanguages[72].Ext := 'are';
FLanguages[72].Name := 'Arabic (Egypt)';
FLanguages[73].ID := $00000C04;
FLanguages[73].Ext := 'zhh';
FLanguages[73].Name := 'Chinese (Hong Kong)';
FLanguages[74].ID := $00000C07;
FLanguages[74].Ext := 'dea';
FLanguages[74].Name := 'German (Austria)';
FLanguages[75].ID := $00000C09;
FLanguages[75].Ext := 'ena';
FLanguages[75].Name := 'English (Australia)';
FLanguages[76].ID := $00000C0A;
FLanguages[76].Ext := 'esn';
FLanguages[76].Name := 'Spanish (International Sort)';
FLanguages[77].ID := $00000C0C;
FLanguages[77].Ext := 'frc';
FLanguages[77].Name := 'French (Canada)';
FLanguages[78].ID := $00000C1A;
FLanguages[78].Ext := 'srb';
FLanguages[78].Name := 'Serbian (Cyrillic)';
FLanguages[79].ID := $00001001;
FLanguages[79].Ext := 'arl';
FLanguages[79].Name := 'Arabic (Libya)';
FLanguages[80].ID := $00001004;
FLanguages[80].Ext := 'zhi';
FLanguages[80].Name := 'Chinese (Singapore)';
FLanguages[81].ID := $00001007;
FLanguages[81].Ext := 'del';
FLanguages[81].Name := 'German (Luxembourg)';
FLanguages[82].ID := $00001009;
FLanguages[82].Ext := 'enc';
FLanguages[82].Name := 'English (Canada)';
FLanguages[83].ID := $0000100A;
FLanguages[83].Ext := 'esg';
FLanguages[83].Name := 'Spanish (Guatemala)';
FLanguages[84].ID := $0000100C;
FLanguages[84].Ext := 'frs';
FLanguages[84].Name := 'French (Switzerland)';
FLanguages[85].ID := $00001401;
FLanguages[85].Ext := 'arg';
FLanguages[85].Name := 'Arabic (Algeria)';
FLanguages[86].ID := $00001404;
FLanguages[86].Ext := 'zhm';
FLanguages[86].Name := 'Chinese (Macau)';
FLanguages[87].ID := $00001407;
FLanguages[87].Ext := 'dec';
FLanguages[87].Name := 'German (Liechtenstein)';
FLanguages[88].ID := $00001409;
FLanguages[88].Ext := 'enz';
FLanguages[88].Name := 'English (New Zealand)';
FLanguages[89].ID := $0000140A;
FLanguages[89].Ext := 'esc';
FLanguages[89].Name := 'Spanish (Costa Rica)';
FLanguages[90].ID := $0000140C;
FLanguages[90].Ext := 'frl';
FLanguages[90].Name := 'French (Luxembourg)';
FLanguages[91].ID := $00001801;
FLanguages[91].Ext := 'arm';
FLanguages[91].Name := 'Arabic (Morocco)';
FLanguages[92].ID := $00001809;
FLanguages[92].Ext := 'eni';
FLanguages[92].Name := 'English (Ireland)';
FLanguages[93].ID := $0000180A;
FLanguages[93].Ext := 'esa';
FLanguages[93].Name := 'Spanish (Panama)';
FLanguages[94].ID := $0000180C;
FLanguages[94].Ext := 'frm';
FLanguages[94].Name := 'French (Monaco)';
FLanguages[95].ID := $00001C01;
FLanguages[95].Ext := 'art';
FLanguages[95].Name := 'Arabic (Tunisia)';
FLanguages[96].ID := $00001C09;
FLanguages[96].Ext := 'ens';
FLanguages[96].Name := 'English (South Africa)';
FLanguages[97].ID := $00001C0A;
FLanguages[97].Ext := 'esd';
FLanguages[97].Name := 'Spanish (Dominican Republic)';
FLanguages[98].ID := $00002001;
FLanguages[98].Ext := 'aro';
FLanguages[98].Name := 'Arabic (Oman)';
FLanguages[99].ID := $00002009;
FLanguages[99].Ext := 'enj';
FLanguages[99].Name := 'English (Jamaica)';
FLanguages[100].ID := $0000200A;
FLanguages[100].Ext := 'esv';
FLanguages[100].Name := 'Spanish (Venezuela)';
FLanguages[101].ID := $00002401;
FLanguages[101].Ext := 'ary';
FLanguages[101].Name := 'Arabic (Yemen)';
FLanguages[102].ID := $00002409;
FLanguages[102].Ext := 'enb';
FLanguages[102].Name := 'English (Caribbean)';
FLanguages[103].ID := $0000240A;
FLanguages[103].Ext := 'eso';
FLanguages[103].Name := 'Spanish (Colombia)';
FLanguages[104].ID := $00002801;
FLanguages[104].Ext := 'ars';
FLanguages[104].Name := 'Arabic (Syria)';
FLanguages[105].ID := $00002809;
FLanguages[105].Ext := 'enl';
FLanguages[105].Name := 'English (Belize)';
FLanguages[106].ID := $0000280A;
FLanguages[106].Ext := 'esr';
FLanguages[106].Name := 'Spanish (Peru)';
FLanguages[107].ID := $00002C01;
FLanguages[107].Ext := 'arj';
FLanguages[107].Name := 'Arabic (Jordan)';
FLanguages[108].ID := $00002C09;
FLanguages[108].Ext := 'ent';
FLanguages[108].Name := 'English (Trinidad)';
FLanguages[109].ID := $00002C0A;
FLanguages[109].Ext := 'ess';
FLanguages[109].Name := 'Spanish (Argentina)';
FLanguages[110].ID := $00003001;
FLanguages[110].Ext := 'arb';
FLanguages[110].Name := 'Arabic (Lebanon)';
FLanguages[111].ID := $00003009;
FLanguages[111].Ext := 'enw';
FLanguages[111].Name := 'English (Zimbabwe)';
FLanguages[112].ID := $0000300A;
FLanguages[112].Ext := 'esf';
FLanguages[112].Name := 'Spanish (Ecuador)';
FLanguages[113].ID := $00003401;
FLanguages[113].Ext := 'ark';
FLanguages[113].Name := 'Arabic (Kuwait)';
FLanguages[114].ID := $00003409;
FLanguages[114].Ext := 'enp';
FLanguages[114].Name := 'English (Philippines)';
FLanguages[115].ID := $0000340A;
FLanguages[115].Ext := 'esl';
FLanguages[115].Name := 'Spanish (Chile)';
FLanguages[116].ID := $00003801;
FLanguages[116].Ext := 'aru';
FLanguages[116].Name := 'Arabic (U.A.E.)';
FLanguages[117].ID := $0000380A;
FLanguages[117].Ext := 'esy';
FLanguages[117].Name := 'Spanish (Uruguay)';
FLanguages[118].ID := $00003C01;
FLanguages[118].Ext := 'arh';
FLanguages[118].Name := 'Arabic (Bahrain)';
FLanguages[119].ID := $00003C0A;
FLanguages[119].Ext := 'esz';
FLanguages[119].Name := 'Spanish (Paraguay)';
FLanguages[120].ID := $00004001;
FLanguages[120].Ext := 'arq';
FLanguages[120].Name := 'Arabic (Qatar)';
FLanguages[121].ID := $0000400A;
FLanguages[121].Ext := 'esb';
FLanguages[121].Name := 'Spanish (Bolivia)';
FLanguages[122].ID := $0000440A;
FLanguages[122].Ext := 'ese';
FLanguages[122].Name := 'Spanish (El Salvador)';
FLanguages[123].ID := $0000480A;
FLanguages[123].Ext := 'esh';
FLanguages[123].Name := 'Spanish (Honduras)';
FLanguages[124].ID := $00004C0A;
FLanguages[124].Ext := 'esi';
FLanguages[124].Name := 'Spanish (Nicaragua)';
FLanguages[125].ID := $0000500A;
FLanguages[125].Ext := 'esu';
FLanguages[125].Name := 'Spanish (Puerto Rico)';

• 打赏
• 举报

回复 赞

[数字蛋糕]

谢谢楼上的。可是比我本地的XP的执行结果少了十个语言。
不知道谁有用Windows XP得出来的结果。

• 打赏
• 举报

回复 赞

[数字蛋糕]

zhuojohn(闲云野鹤)你能不能把结果直接寄给我？谢谢！
我的邮箱：[e-mail]

之所以要英文的，是因为英文的能够确保在任何语言的操作系统下显示正常而以……

• 打赏
• 举报

回复 赞

[zhuojohn]

Windows XP Professional Eng

FLanguages[0].ID := $00000401;
FLanguages[0].Ext := 'ara';

...... .......

FLanguages[132].ID := $0000480A;
FLanguages[132].Ext := 'esh';
FLanguages[132].Name := 'Spanish (Honduras)';
FLanguages[133].ID := $00004C0A;
FLanguages[133].Ext := 'esi';
FLanguages[133].Name := 'Spanish (Nicaragua)';
FLanguages[134].ID := $0000500A;
FLanguages[134].Ext := 'esu';
FLanguages[134].Name := 'Spanish (Puerto Rico)';

• 打赏
• 举报

回复 赞

[飞天揽月]

我用的是中文

• 打赏
• 举报

回复 赞

[brallow]

我用的也是中文的.

• 打赏
• 举报

回复 赞

[welllove88]

啥意思啊？中英文编码转换啊？

• 打赏
• 举报

回复 赞