Aber funzt irgendwie nicht:
Code: Alles auswählen
#LANG_ENGLISH = $09
#SUBLANG_NEUTRAL = $00
Procedure MakeLong(low.w, high.w)
ProcedureReturn low + (high<<16)
EndProcedure
Procedure MessageBox(Titel$, Message$, Flag, LanguageID)
OwnMessage.MSGBOXPARAMS
OwnMessage\cbSize=SizeOf(MSGBOXPARAMS)
OwnMessage\hwndOwner=0
OwnMessage\hInstance=GetModuleHandle_(0)
OwnMessage\lpszText=@Message$
OwnMessage\lpszCaption=@Titel$
OwnMessage\dwStyle=Flag
;OwnMessage\lpszIcon
;Ownmessage\dwContextHelpId =
OwnMessage\dwLanguageId = LanguageID
ProcedureReturn MessageBoxIndirect_(OwnMessage)
EndProcedure
LanguageID = MakeLong(#LANG_ENGLISH, #SUBLANG_NEUTRAL)
MessageBox("Test", "Hallo die Enten",#PB_MessageRequester_YesNoCancel, LanguageID)
