Liste der DVD-Tonspuren

[Cylence]

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