Hi,
ich hab einen Player, in dem auch ein DVD Player integriert ist und dafür hab ich das mal zusammen getragen, weiß aber nicht ob es 100 % vollständig ist.
Delphi-Quellcode:
function TMRDVD.getLanguagefromLcId(LcId : Cardinal):String;
begin
Result := 'Unknown';
if LcId = strtocard('0x0436') then Result := 'Afrikaans';
if LcId = strtocard('0x041c') then Result := 'Albanian';
if LcId = strtocard('0x1401') then Result := 'Arabic (Algeria)';
if LcId = strtocard('0x3c01') then Result := 'Arabic (Bahrain)';
if LcId = strtocard('0x0c01') then Result := 'Arabic (Egypt)';
if LcId = strtocard('0x0801') then Result := 'Arabic (Iraq)';
if LcId = strtocard('0x2c01') then Result := 'Arabic (Jordan)';
if LcId = strtocard('0x3401') then Result := 'Arabic (Kuwait)';
if LcId = strtocard('0x3001') then Result := 'Arabic (Lebanon)';
if LcId = strtocard('0x1001') then Result := 'Arabic (Libya)';
if LcId = strtocard('0x1801') then Result := 'Arabic (Morocco)';
if LcId = strtocard('0x2001') then Result := 'Arabic (Oman)';
if LcId = strtocard('0x4001') then Result := 'Arabic (Qatar)';
if LcId = strtocard('0x0401') then Result := 'Arabic (Saudi Arabia)';
if LcId = strtocard('0x2801') then Result := 'Arabic (Syria)';
if LcId = strtocard('0x1c01') then Result := 'Arabic (Tunisia)';
if LcId = strtocard('0x3801') then Result := 'Arabic (U.A.E.)';
if LcId = strtocard('0x2401') then Result := 'Arabic (Yemen)';
if LcId = strtocard('0x042d') then Result := 'Basque';
if LcId = strtocard('0x0423') then Result := 'Belarusian';
if LcId = strtocard('0x0402') then Result := 'Bulgarian';
if LcId = strtocard('0x0403') then Result := 'Catalan';
if LcId = strtocard('0x0c04') then Result := 'Chinese (Hong Kong SAR)';
if LcId = strtocard('0x0804') then Result := 'Chinese (PRC)';
if LcId = strtocard('0x1004') then Result := 'Chinese (Singapore)';
if LcId = strtocard('0x0404') then Result := 'Chinese (Taiwan)';
if LcId = strtocard('0x041a') then Result := 'Croatian';
if LcId = strtocard('0x0405') then Result := 'Czech';
if LcId = strtocard('0x0406') then Result := 'Danish';
if LcId = strtocard('0x0813') then Result := 'Dutch (Belgian)';
if LcId = strtocard('0x0413') then Result := 'Dutch (Standard)';
if LcId = strtocard('0x0c09') then Result := 'English (Australian)';
if LcId = strtocard('0x2809') then Result := 'English (Belize)';
if LcId = strtocard('0x1009') then Result := 'English (Canadian)';
if LcId = strtocard('0x2409') then Result := 'English (Caribbean)';
if LcId = strtocard('0x1809') then Result := 'English (Ireland)';
if LcId = strtocard('0x2009') then Result := 'English (Jamaica)';
if LcId = strtocard('0x1409') then Result := 'English (New Zealand)';
if LcId = strtocard('0x1c09') then Result := 'English (South Africa)';
if LcId = strtocard('0x2c09') then Result := 'English (Trinidad)';
if LcId = strtocard('0x0809') then Result := 'English (United Kingdom)';
if LcId = strtocard('0x0409') then Result := 'English (United States)';
if LcId = strtocard('0x0425') then Result := 'Estonian';
if LcId = strtocard('0x0438') then Result := 'Faeroese';
if LcId = strtocard('0x0429') then Result := 'Farsi';
if LcId = strtocard('0x040b') then Result := 'Finnish';
if LcId = strtocard('0x080c') then Result := 'French (Belgian)';
if LcId = strtocard('0x0c0c') then Result := 'French (Canadian)';
if LcId = strtocard('0x140c') then Result := 'French (Luxembourg)';
if LcId = strtocard('0x040c') then Result := 'French (Standard)';
if LcId = strtocard('0x100c') then Result := 'French (Swiss)';
if LcId = strtocard('0x0c07') then Result := 'German (Austrian)';
if LcId = strtocard('0x1407') then Result := 'German (Liechtenstein)';
if LcId = strtocard('0x1007') then Result := 'German (Luxembourg)';
if LcId = strtocard('0x0407') then Result := 'German';
if LcId = strtocard('0x0807') then Result := 'German (Swiss)';
if LcId = strtocard('0x0408') then Result := 'Greek';
if LcId = strtocard('0x040d') then Result := 'Hebrew';
if LcId = strtocard('0x040e') then Result := 'Hungarian';
if LcId = strtocard('0x040f') then Result := 'Icelandic';
if LcId = strtocard('0x0421') then Result := 'Indonesian';
if LcId = strtocard('0x0410') then Result := 'Italian (Standard)';
if LcId = strtocard('0x0810') then Result := 'Italian (Swiss)';
if LcId = strtocard('0x0411') then Result := 'Japanese';
if LcId = strtocard('0x0412') then Result := 'Korean';
if LcId = strtocard('0x0812') then Result := 'Korean (Johab)';
if LcId = strtocard('0x0426') then Result := 'Latvian';
if LcId = strtocard('0x0427') then Result := 'Lithuanian';
if LcId = strtocard('0x043e') then Result := 'Malay (Malaysian)';
if LcId = strtocard('0x083e') then Result := 'Malay (Brunei)';
if LcId = strtocard('0x0414') then Result := 'Norwegian (Bokmal)';
if LcId = strtocard('0x0814') then Result := 'Norwegian (Nynorsk)';
if LcId = strtocard('0x0415') then Result := 'Polish';
if LcId = strtocard('0x0416') then Result := 'Portuguese (Brazil)';
if LcId = strtocard('0x0816') then Result := 'Portuguese (Portugal)';
if LcId = strtocard('0x0418') then Result := 'Romanian';
if LcId = strtocard('0x0419') then Result := 'Russian';
if LcId = strtocard('0x0c1a') then Result := 'Serbian (Cyrillic)';
if LcId = strtocard('0x081a') then Result := 'Serbian (Latin)';
if LcId = strtocard('0x041b') then Result := 'Slovak';
if LcId = strtocard('0x0424') then Result := 'Slovenian';
if LcId = strtocard('0x2c0a') then Result := 'Spanish (Argentina)';
if LcId = strtocard('0x400a') then Result := 'Spanish (Bolivia)';
if LcId = strtocard('0x340a') then Result := 'Spanish (Chile)';
if LcId = strtocard('0x240a') then Result := 'Spanish (Colombia)';
if LcId = strtocard('0x140a') then Result := 'Spanish (Costa Rica)';
if LcId = strtocard('0x1c0a') then Result := 'Spanish (Dominican Republic)';
if LcId = strtocard('0x300a') then Result := 'Spanish (Ecuador)';
if LcId = strtocard('0x440a') then Result := 'Spanish (El Salvador)';
if LcId = strtocard('0x100a') then Result := 'Spanish (Guatemala)';
if LcId = strtocard('0x480a') then Result := 'Spanish (Honduras)';
if LcId = strtocard('0x080a') then Result := 'Spanish (Mexican)';
if LcId = strtocard('0x0c0a') then Result := 'Spanish (Modern Sort)';
if LcId = strtocard('0x4c0a') then Result := 'Spanish (Nicaragua)';
if LcId = strtocard('0x180a') then Result := 'Spanish (Panama)';
if LcId = strtocard('0x3c0a') then Result := 'Spanish (Paraguay)';
if LcId = strtocard('0x280a') then Result := 'Spanish (Peru)';
if LcId = strtocard('0x500a') then Result := 'Spanish (Puerto Rico)';
if LcId = strtocard('0x040a') then Result := 'Spanish (Traditional Sort)';
if LcId = strtocard('0x380a') then Result := 'Spanish (Uruguay)';
if LcId = strtocard('0x200a') then Result := 'Spanish (Venezuela)';
if LcId = strtocard('0x0441') then Result := 'Swahili';
if LcId = strtocard('0x041d') then Result := 'Swedish';
if LcId = strtocard('0x081d') then Result := 'Swedish (Finland)';
if LcId = strtocard('0x041e') then Result := 'Thai';
if LcId = strtocard('0x041f') then Result := 'Turkish';
if LcId = strtocard('0x0422') then Result := 'Ukrainian';
end;
Mfg
Cylence