| |
| |
|
Alfred
Wagner | Hello people
Have the following trouble
first the code
$P+
SetErrorLevel 0
DEF GETSYSCOLOR(1) !USER32,GetSysColor
WINDOWSTYLE 31
WINDOWTITLE New Window
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 spending1$
spending1$=Readini$(HKEY_DW_1,SoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced,TaskbarGlomming)
If spending1$ = 0goes
Print A is 0
ElseIf spending1$ = 1
Print A is 1goes too
trouble
Elsefalls the worth No is
Print A isn't vorhandenProblem : here comes A is 0 though the worth No is
Endif
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
If @EQU(%KEY,2)
LET ENDE%= 1
ELSEIF @EQU(%KEY,4)
ENDIF
WEND
end
How do I get the there that the worth the Yes No is korreckt displayed becomes?
mfg
Alfred with family |
|
| |
| |
| |
|
|
| Evtl over %ERROR detect?
CompileMarkSeparation!$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 | short response,must to work
thanks,functions lovely,
but on one TabControl shining not to go,shows always 0 on
white neither wieso,probier the part time a little bit umzustellen,Perhaps klapps then
nevertheless thanks for your trouble
mfg
Alfred with family |
|
| |
| |
| |
|
(506)
Deutsch
English
Français
Español
Italia