Français
Forum

Registry Problem

 

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
 
WinXP-Home ,XProfan10

Alfreds ... Freeware :  [...] 
03.10.2006  
 



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

 
03.10.2006  
 




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
 
WinXP-Home ,XProfan10

Alfreds ... Freeware :  [...] 
04.10.2006  
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

1.140 Views

Untitledvor 0 min.
Andre Rohland31.01.2018

Themeninformationen

cet Thema hat 2 participant:

Alfred Wagner (2x)
unbekannt (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie