XProfan

Cls
Declare Deutsch#, Englisch#,Eintrag$, position%, pos2%
Dim Deutsch#,32
Dim Englisch#,24
Clear Deutsch#
Clear Englisch#
Long Deutsch#,0=1702125892,1725332585,1852141158,1701860220,1701340009,1232891506,225404526,10
Long Englisch#,0=1701603654,1701859196,1632861294,1216111990,1869376613,2573
Print String$(Deutsch#,0)
Print String$(Englisch#, 0)
Waitkey
Dispose Deutsch#, Englisch#
End

DEF FindResourceEx(4) !"System-Dll-Name2.dll", "FindResoureceEx"

DEF MakeLangID(2) !"System-Dll-Name2.dll", "MakeLangID"

Def FindResourceEx(4) !"KERNEL32","FindResourceExA"

Def &SUBLANG_ARABIC_ALGERIA  5
Def &SUBLANG_ARABIC_BAHRAIN  15
Def &SUBLANG_ARABIC_EGYPT  3
Def &SUBLANG_ARABIC_IRAQ  2
Def &SUBLANG_ARABIC_JORDAN  11
Def &SUBLANG_ARABIC_KUWAIT  13
Def &SUBLANG_ARABIC_LEBANON  12
Def &SUBLANG_ARABIC_LIBYA  4
Def &SUBLANG_ARABIC_MOROCCO  6
Def &SUBLANG_ARABIC_OMAN  8
Def &SUBLANG_ARABIC_QATAR  16
Def &SUBLANG_ARABIC_SAUDI_ARABIA  1
Def &SUBLANG_ARABIC_SYRIA  10
Def &SUBLANG_ARABIC_TUNISIA  7
Def &SUBLANG_ARABIC_UAE  14
Def &SUBLANG_ARABIC_YEMEN  9
Def &SUBLANG_CHINESE_HONGKONG  3
Def &SUBLANG_CHINESE_SIMPLIFIED  2
Def &SUBLANG_CHINESE_SINGAPORE  4
Def &SUBLANG_CHINESE_TRADITIONAL  1
Def &SUBLANG_DEFAULT  1
Def &SUBLANG_DUTCH  1
Def &SUBLANG_DUTCH_BELGIAN  2
Def &SUBLANG_ENGLISH_AUS  3
Def &SUBLANG_ENGLISH_BELIZE  10
Def &SUBLANG_ENGLISH_CAN  4
Def &SUBLANG_ENGLISH_CARIBBEAN  9
Def &SUBLANG_ENGLISH_EIRE  6
Def &SUBLANG_ENGLISH_JAMAICA  8
Def &SUBLANG_ENGLISH_NZ  5
Def &SUBLANG_ENGLISH_SOUTH_AFRICA  7
Def &SUBLANG_ENGLISH_TRINIDAD  11
Def &SUBLANG_ENGLISH_UK  2
Def &SUBLANG_ENGLISH_US  1
Def &SUBLANG_FRENCH  1
Def &SUBLANG_FRENCH_BELGIAN  2
Def &SUBLANG_FRENCH_CANADIAN  3
Def &SUBLANG_FRENCH_LUXEMBOURG  5
Def &SUBLANG_FRENCH_SWISS  4
Def &SUBLANG_GERMAN  1
Def &SUBLANG_GERMAN_AUSTRIAN  3
Def &SUBLANG_GERMAN_LIECHTENSTEIN  5
Def &SUBLANG_GERMAN_LUXEMBOURG  4
Def &SUBLANG_GERMAN_SWISS  2
Def &SUBLANG_ITALIAN  1
Def &SUBLANG_ITALIAN_SWISS  2
Def &SUBLANG_KOREAN  1
Def &SUBLANG_KOREAN_JOHAB  2
Def &SUBLANG_NEUTRAL  0
Def &SUBLANG_NORWEGIAN_BOKMAL  1
Def &SUBLANG_NORWEGIAN_NYNORSK  2
Def &SUBLANG_PORTUGUESE  2
Def &SUBLANG_PORTUGUESE_BRAZILIAN  1
Def &SUBLANG_SERBIAN_CYRILLIC  3
Def &SUBLANG_SERBIAN_LATIN  2
Def &SUBLANG_SPANISH  1
Def &SUBLANG_SPANISH_ARGENTINA  11
Def &SUBLANG_SPANISH_BOLIVIA  16
Def &SUBLANG_SPANISH_CHILE  13
Def &SUBLANG_SPANISH_COLOMBIA  9
Def &SUBLANG_SPANISH_COSTA_RICA  5
Def &SUBLANG_SPANISH_DOMINICAN_REPUBLIC  7
Def &SUBLANG_SPANISH_ECUADOR  12
Def &SUBLANG_SPANISH_EL_SALVADOR  17
Def &SUBLANG_SPANISH_GUATEMALA  4
Def &SUBLANG_SPANISH_HONDURAS  18
Def &SUBLANG_SPANISH_MEXICAN  2
Def &SUBLANG_SPANISH_MODERN  3
Def &SUBLANG_SPANISH_NICARAGUA  19
Def &SUBLANG_SPANISH_PANAMA  6
Def &SUBLANG_SPANISH_PARAGUAY  15
Def &SUBLANG_SPANISH_PERU  10
Def &SUBLANG_SPANISH_PUERTO_RICO  20
Def &SUBLANG_SPANISH_URUGUAY  14
Def &SUBLANG_SPANISH_VENEZUELA  8
Def &SUBLANG_SWEDISH  1
Def &SUBLANG_SWEDISH_FINLAND  2
Def &SUBLANG_SYS_DEFAULT  2
Def &LANG_AFRIKAANS  54
Def &LANG_ALBANIAN  28
Def &LANG_ARABIC  1
Def &LANG_BASQUE  45
Def &LANG_BELARUSIAN  35
Def &LANG_BULGARIAN  2
Def &LANG_CATALAN  3
Def &LANG_CHINESE  4
Def &LANG_CROATIAN  26
Def &LANG_CZECH  5
Def &LANG_DANISH  6
Def &LANG_DUTCH  19
Def &LANG_ENGLISH  9
Def &LANG_ESTONIAN  37
Def &LANG_FAEROESE  56
Def &LANG_FARSI  41
Def &LANG_FINNISH  11
Def &LANG_FRENCH  12
Def &LANG_GERMAN  7
Def &LANG_GREEK  8
Def &LANG_HEBREW  13
Def &LANG_HUNGARIAN  14
Def &LANG_ICELANDIC  15
Def &LANG_INDONESIAN  33
Def &LANG_ITALIAN  16
Def &LANG_JAPANESE  17
Def &LANG_KOREAN  18
Def &LANG_LATVIAN  38
Def &LANG_LITHUANIAN  39
Def &LANG_NEUTRAL  0
Def &LANG_NORWEGIAN  20
Def &LANG_POLISH  21
Def &LANG_PORTUGUESE  22
Def &LANG_ROMANIAN  24
Def &LANG_RUSSIAN  25
Def &LANG_SERBIAN  26
Def &LANG_SLOVAK  27
Def &LANG_SLOVENIAN  36
Def &LANG_SPANISH  10
Def &LANG_SWEDISH  29
Def &LANG_SYSTEM_DEFAULT  2048
Def &LANG_THAI  30
Def &LANG_TURKISH  31
Def &LANG_UKRAINIAN  34
Def &LANG_USER_DEFAULT  1024
Def &LANG_VIETNAMESE  42
Declare  MAKELANGID#
Dim MAKELANGID#,4
Word MAKELANGID#,0 = &LANG_GERMAN, &SUBLANG_GERMAN
Dispose MAKELANGID#
FindResourceEx(hModule,lpType,lpName,wLanguage(MAKELANGID#))

 $H windows.ph
DEF MakeLangID(2) (@&(2) << 10) | @&(1)
cls
Print MakeLangID(~LANG_GERMAN,~SUBLANG_GERMAN)
waitinput
end

FindResourceEX(DllName&, ~RT_STRING, PointerAufID, MAKELANGID(~Neutral, ~SUBLANG_Neutral))
FindResourceEX(DllName&, ~RT_STRING, PointerAufID, MAKELANGID(~German, ~SUBLANG_German))
FindResourceEX(DllName&, ~RT_STRING, PointerAufID, MAKELANGID(~English, ~SUBLANG_English_US))

var PointerAufID$ = "Name der Resource" + Chr$(0)
FindResourceEX(DllName&, ~RT_STRING,Addr(PointerAufID$), MAKELANGID(~Neutral, ~SUBLANG_Neutral))