XProfan

Def MessageBoxExA(5)!"User32","MessageBoxExA"
Def MessageBoxExW(5)!"User32","MessageBoxExW"
' paramètre: 1: %hWnd       - parents-la fenêtre / Übergeordnetes la fenêtre
'            2: lpText      - Text        - ! MessageBoxExA = ANSI
'            3: lpCaption   - Überschrift - ! MessageBoxExW = WIDE
'            4: Type        - = Art qui MessageBox comment chez xProfan (s. Buttons, Icônes, ...)
'            5: wLanguageId - si = 0 ensuite wird automatisch Systemsprache benutzt
Déclarer wert&,message#,caption#
' beachte, dass chez MessageBoxExW = doppelter Speicherplatz nécessaire weil WIDE !
' im folgendem le cas serait pour ANSI
' Faible message#,16
' Faible caption#,12
' ergeben et chez Wide qui doppelte grenier, alors
' Faible message#,32
' Faible caption#,24
'
' es empfielt sich eventuell im Vorfeld qui Variablen grand genug trop dimensionieren
'
Faible message#,256
Faible caption#,256
Claire wert&,message#,caption#
CLS
'------------------------------# ! MessageBoxExA = ANSI
String message#,0 = "Eine MessageBox"
String caption#,0 = "Überschrift"
wert& = MessageBoxExA(%HWnd,message#,caption#,2,0)
'------------------------------# ! MessageBoxExW = WIDE
'StringW message#,0 = "Eine MessageBox"
'StringW caption#,0 = "Überschrift"
'wert& = MessageBoxExW(%HWnd,message#,caption#,2,0)
Cas wert& = 0:imprimer "-"
Cas wert& = 1:imprimer "OK"
Cas wert& = 2:imprimer "Abbrechen (Calcel)"
Cas wert& = 3:imprimer "Abbrechen (Abort)"
Cas wert& = 4:imprimer "Wiederholen"
Cas wert& = 5:imprimer "Ignorieren"
Cas wert& = 6:imprimer "Ja"
Cas wert& = 7:imprimer "Nein"
WaitInput
DisPose message#
DisPose caption#

 $U lat2cyr.pcu = l2cPCU.
Def MessageBoxExA(5)!"User32","MessageBoxExA"
Def MessageBoxExW(5)!"User32","MessageBoxExW"
' paramètre: 1: %hWnd       - parents-la fenêtre / Übergeordnetes la fenêtre
'            2: lpText      - Text        - ! MessageBoxExA = ANSI
'            3: lpCaption   - Überschrift - ! MessageBoxExW = WIDE
'            4: Type        - = Art qui MessageBox comment chez xProfan (s. Buttons, Icônes, ...)
'            5: wLanguageId - si = 0 ensuite wird automatisch Systemsprache benutzt
Déclarer wert&,message#,caption#
' beachte, dass chez MessageBoxExW = doppelter Speicherplatz nécessaire weil WIDE !
' im folgendem le cas serait pour ANSI
' Faible message#,16
' Faible caption#,12
' ergeben et chez Wide qui doppelte grenier, alors
' Faible message#,32
' Faible caption#,24
'
' es empfielt sich eventuell im Vorfeld qui Variablen grand genug trop dimensionieren
'
Faible message#,256
Faible caption#,256
Claire wert&,message#,caption#
CLS
'------------------------------# ! MessageBoxExA = ANSI
'String message#,0 = "Eine MessageBox"
'String caption#,0 = "Überschrift"
'wert& = MessageBoxExA(%HWnd,message#,caption#,2,0)
'------------------------------# ! MessageBoxExW = WIDE
'StringW message#,0 = "Eine MessageBox"
'StringW caption#,0 = "Überschrift"
'wert& = MessageBoxExW(%HWnd,message#,caption#,2,0)
'------------------------------# ! lat2cyr.pcu
' chez Wide ginge es aussi avec qui CPU >lat2cyr.pcu< kyrillische marque trop erzeugen
' ensuite mais String message#,0 ou bien Char message#,0 benutzen pas StringW !
String message#,0 = l2cPCU.l2l("ein Gemischter Text - ")+l2cPCU.l2c("-Eto nebol-m-soj test <>|\q!§$%&/()=´'?^@")
String caption#,0 = l2cPCU.l2l("Überschrift - ")+l2cPCU.l2c("-Eto test")
wert& = MessageBoxExW(%HWnd,message#,caption#,2,0)
Cas wert& = 0:imprimer "-"
Cas wert& = 1:imprimer "OK"
Cas wert& = 2:imprimer "Abbrechen (Calcel)"
Cas wert& = 3:imprimer "Abbrechen (Abort)"
Cas wert& = 4:imprimer "Wiederholen"
Cas wert& = 5:imprimer "Ignorieren"
Cas wert& = 6:imprimer "Ja"
Cas wert& = 7:imprimer "Nein"
WaitInput
DisPose message#
DisPose caption#