XProfan

Def MessageBoxExA(5)!"USER32","MessageBoxExA"
Def MessageBoxExW(5)!"USER32","MessageBoxExW"
' Parámetro: 1: %hWnd       - Eltern-Ventana / Übergeordnetes Ventana
'            2: lpText      - Texto        - ! MessageBoxExA = ANSI
'            3: lpCaption   - Überschrift - ! MessageBoxExW = WIDE
'            4: Type        - = Art el MessageBox como en xProfan (s. Buttons, Icons, ...)
'            5: wLanguageId - si = 0 Luego se automáticamente Systemsprache benutzt
Declarar wert&,mensaje#,caption#
' beachte, dass en MessageBoxExW = doppelter Speicherplatz benötigt porque WIDE !
' en el folgendem Fall sería para ANSI
' Dim mensaje#,16
' Dim caption#,12
' ergeben y en Wide el doppelte Speicher, also
' Dim mensaje#,32
' Dim caption#,24
'
' lo empfielt se eventuell en el Vorfeld el Variables groß genug a dimensionieren
'
Dim mensaje#,256
Dim caption#,256
Claro wert&,mensaje#,caption#
CLS
'------------------------------# ! MessageBoxExA = ANSI
String mensaje#,0 = "Eine MessageBox"
String caption#,0 = "Überschrift"
wert& = MessageBoxExA(%HWnd,mensaje#,caption#,2,0)
'------------------------------# ! MessageBoxExW = WIDE
'StringW mensaje#,0 = "Eine MessageBox"
'StringW caption#,0 = "Überschrift"
'wert& = MessageBoxExW(%HWnd,mensaje#,caption#,2,0)
Case wert& = 0:imprimir "-"
Case wert& = 1:imprimir "OK"
Case wert& = 2:imprimir "Abbrechen (Calcel)"
Case wert& = 3:imprimir "Abbrechen (Abort)"
Case wert& = 4:imprimir "Wiederholen"
Case wert& = 5:imprimir "Ignorieren"
Case wert& = 6:imprimir "Ja"
Case wert& = 7:imprimir "Nein"
WaitInput
DisPose mensaje#
DisPose caption#

 $U lat2cyr.pcu = l2cPCU.
Def MessageBoxExA(5)!"USER32","MessageBoxExA"
Def MessageBoxExW(5)!"USER32","MessageBoxExW"
' Parámetro: 1: %hWnd       - Eltern-Ventana / Übergeordnetes Ventana
'            2: lpText      - Texto        - ! MessageBoxExA = ANSI
'            3: lpCaption   - Überschrift - ! MessageBoxExW = WIDE
'            4: Type        - = Art el MessageBox como en xProfan (s. Buttons, Icons, ...)
'            5: wLanguageId - si = 0 Luego se automáticamente Systemsprache benutzt
Declarar wert&,mensaje#,caption#
' beachte, dass en MessageBoxExW = doppelter Speicherplatz benötigt porque WIDE !
' en el folgendem Fall sería para ANSI
' Dim mensaje#,16
' Dim caption#,12
' ergeben y en Wide el doppelte Speicher, also
' Dim mensaje#,32
' Dim caption#,24
'
' lo empfielt se eventuell en el Vorfeld el Variables groß genug a dimensionieren
'
Dim mensaje#,256
Dim caption#,256
Claro wert&,mensaje#,caption#
CLS
'------------------------------# ! MessageBoxExA = ANSI
'String mensaje#,0 = "Eine MessageBox"
'String caption#,0 = "Überschrift"
'wert& = MessageBoxExA(%HWnd,mensaje#,caption#,2,0)
'------------------------------# ! MessageBoxExW = WIDE
'StringW mensaje#,0 = "Eine MessageBox"
'StringW caption#,0 = "Überschrift"
'wert& = MessageBoxExW(%HWnd,mensaje#,caption#,2,0)
'------------------------------# ! lat2cyr.pcu
' en Wide ginge lo auch con el CPU >lat2cyr.pcu< kyrillische Signo a erzeugen
' entonces aber String mensaje#,0 oder Char mensaje#,0 benutzen no StringW !
String mensaje#,0 = l2cPCU.l2l("ein Gemischter Texto - ")+l2cPCU.l2c("-Eto nebol-m-soj test <>|\q!§$%&/()=´'?^@")
String caption#,0 = l2cPCU.l2l("Überschrift - ")+l2cPCU.l2c("-Eto test")
wert& = MessageBoxExW(%HWnd,mensaje#,caption#,2,0)
Case wert& = 0:imprimir "-"
Case wert& = 1:imprimir "OK"
Case wert& = 2:imprimir "Abbrechen (Calcel)"
Case wert& = 3:imprimir "Abbrechen (Abort)"
Case wert& = 4:imprimir "Wiederholen"
Case wert& = 5:imprimir "Ignorieren"
Case wert& = 6:imprimir "Ja"
Case wert& = 7:imprimir "Nein"
WaitInput
DisPose mensaje#
DisPose caption#