| |
| |
|
Alfred
Wagner | allô gens
Hab folgendes Problem
d'abord qui code
$P+
SetErrorLevel 0
DEF GETSYSCOLOR(1) !USER32,GetSysColor
WINDOWSTYLE 31
WINDOWTITLE Neues la fenêtre
WINDOW SUB(DIV(%MAXX,2),DIV(454,2)),SUB(DIV(%MAXY,2),DIV(192,2))-454,192
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Déclarer Ausgabe1$
Ausgabe1$=Readini$(HKEY_DW_1,SoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced,TaskbarGlomming)
Si Ausgabe1$ = 0allez
Imprimer A ist 0
ElseIf Ausgabe1$ = 1
Imprimer A ist 1allez aussi
Problem
Elsefalls qui Wert pas vorhanden ist
Imprimer A ist pas vorhandenProblem : ici venez A ist 0 quoique qui Wert pas vorhanden ist
Endif
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
Si @EQU(%KEY,2)
LET ENDE%= 1
ELSEIF @EQU(%KEY,4)
ENDIF
WEND
Ende
comment bekomme je cela hin dass qui Wert qui oui pas vorhanden ist korreckt angezeigt wird?
mfg
Alfred avec la famille |
|
| |
| |
| |
|
|
| Evtl sur %ERROR ermitteln?
KompilierenMarqueSéparation!$P+
SetErrorLevel 0
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 31
WINDOWTITLE "Neues Fenster"
WINDOW SUB(DIV(%MAXX,2),DIV(454,2)),SUB(DIV(%MAXY,2),DIV(192,2))-454,192
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Declare Ausgabe1$
SetErrorLevel 1
Ausgabe1$=Readini$("HKEY_DW_1","SoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced","TaskbarGlomming")
If %ERROR
Print "A ist nicht vorhanden"
ElseIf Ausgabe1$ = 0geht
Print "A ist 0"
ElseIf Ausgabe1$ = 1
Print "A ist 1"geht auch
Endif
SetErrorLevel 0
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
If @EQU(%KEY,2)
LET ENDE%= 1
ELSEIF @EQU(%KEY,4)
ENDIF
WEND
|
|
| |
| |
| |
|
|
Alfred
Wagner | Kurze Antwort,muss zur travail
merci,funktioniert prima,
mais sur einem TabControl scheint cela pas pour aller,zeigt toujours 0 à
sais aussi pas wieso,probier cela partie la fois un peu umzustellen,peut-être klapps ensuite
quand même merci pour deine Mühe
mfg
Alfred avec la famille |
|
| |
| |
| |
|
(929)
Deutsch
English
Français
Español
Italia