XProfan

Español

Martin
Heller

Hiho,
Yo tener en el Registry una Ordner gefunden, en el algunos Pfade drinne posición. Yo sería gerne wissen, si el Pfade auch en otro Windowsversionen gefunden voluntad.
Könntet ihr veces Por favor, el código ausführen y el Zwischenablageninhalt hier puesto?
Wäre bien si ihr euere Windowsversion auch todavía con puesto könntet. Puedo con el Valor de $WinVer no wirklich algo anfangen. Weiß alguien, welche Nummer, welches Sistema es?

Martin
Kompilieren Marca Separación

Declare paths$[9], win$
paths$[1] = "AppData"
paths$[2] = "Desktop"
paths$[3] = "Favorites"
paths$[4] = "Fonts"
paths$[5] = "Personal"
paths$[6] = "Programs"
paths$[7] = "SendTo"
paths$[8] = "Start Menu"
paths$[9] = "Startup"
Def Path(1) ReadIni$("HKEY_1", "SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders", paths$[%(1)])
Set("Errorlevel", 0)
Cls
ClearClip
print "Windowsversion. " + $WinVer
print
PutClip "Windowsversion. " + $WinVer + Chr$(13) + Chr$(13)

Whileloop 9

    print Paths$[&loop] + "...";
    PutClip Paths$[&loop] + "..."

    If Path(&loop) <> ""

        Color 2, 15
        print "ok"
        PutClip "ok" + Chr$(13)

    Else

        Color 4, 15
        print "fehlerhaft!"
        PutClip "fehlerhaft!" + Chr$(13)

    EndIf

    Color 0, 15

Wend

print
print "Das Ergebnis wurde in die Zwischenablage kopiert."
waitinput

10.08.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hmm, Yo kanns zwar no testen en 98ern, glaube aber esta Pfad auch de 98ern a kennen.

Hier mein Ergebnis:[quote:67f16c498d]Windowsversion. 5.1

AppData...ok
Desktop...ok
Favorites...ok
Fonts...ok
Personal...ok
Programs...ok
SendTo...ok
Start Menu...ok
Startup...ok[/quote:67f16c498d]Bis denne, IF

10.08.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Kein Problema:
Windows 98

[quote:6f2dcb28a6]
Windowsversion. 4.10

AppData...ok
Desktop...ok
Favorites...ok
Fonts...ok
Personal...ok
Programs...ok
SendTo...ok
Start Menu...ok
Startup...ok
[/quote:6f2dcb28a6]

10.08.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Windows95:

[quote:a249517973]
Windowsversion. 4.0

AppData...ok
Desktop...ok
Favorites...ok
Fonts...ok
Personal...ok
Programs...ok
SendTo...ok
Start Menu...ok
Startup...ok
[/quote:a249517973]
Ach sí.. va el así überhaupt? Yo habe el zwar con @READINI$() todavía no getestet, pero si uno en el Registry una String ausliest, el no ausgelesen voluntad kann, bedeutet el no necesariamente, daß el zurückgegebene Bereichsvariable leer es. Como Profano auch en API funktioniert, podría el tal vez falsche Ergebnisse bringen. Besser wäre el tal vez así (PUTCLIP$ funktioniert en me así de paso auch no):
Kompilieren Marca Separación

Declare paths$[9],win$,EDIT&
paths$[1] = "AppData"
paths$[2] = "Desktop"
paths$[3] = "Favorites"
paths$[4] = "Fonts"
paths$[5] = "Personal"
paths$[6] = "Programs"
paths$[7] = "SendTo"
paths$[8] = "Start Menu"
paths$[9] = "Startup"
Def Path(1) ReadIni$("HKEY_1", "SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders", paths$[%(1)])
WINDOWSTYLE 31
Windowtitle "Folders testen"
Window 0,0-640,440
LET EDIT&=@createMultiEdit(%HWND,"",100,20,400,350)
Set("Errorlevel", 0)
Cls
ClearLIST
ADDSTRING "Windowsversion. " + $WinVer
ADDSTRING ""

Whileloop 9

    If Path(&loop) <> ""

        Color 2, 15
        ADDSTRING Paths$[&loop] + "..."+"ok" + Chr$(13)

    Else

        Color 4, 15
        ADDSTRING Paths$[&loop] + "..."+"fehlerhaft!" + Chr$(13)

    EndIf

    Color 0, 15
    ADDSTRING Path(&loop)

Wend

@MOVELISTTOEDIT(EDIT&)

While 0=0

WEND

10.08.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

ASKTEC

Hier el Ergebnis para WIN XP Prof...

Windowsversion. 5.1

AppData...ok
Desktop...ok
Favorites...ok
Fonts...ok
Personal...ok
Programs...ok
SendTo...ok
Start Menu...ok
Startup...ok

Saludo

Andreas

Profan 7.6 / XProfan 8 / XProfan 9 ~ W2k Prof. / Win XP Prof. ~ AMD XP2000+ / P4 3.80 GHz

10.08.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Martin
Heller

Erstmal danke fürs testen.

@AH: Yo lo vorher con un no vorhandenen Reg-Eintrag getestet. Lo se una Leerstring zurückgegeben.
@IF: Hast Si es usted el Thema movido? Dachte Yo hätte lo beim Stammtisch Nuevo.

Kann me jemann el Rückgabewert de $WinVer erklären? Welche Zahl qué bedeutet? Oder sabe alguien una bessere Alternative a $WinVer?

Martin

11.08.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jepp, Yo tener se movió. Im Stammtisch es más weniger en Programación. Yo fand lo en Programación / Allgemein mejor aufgehoben.

Nichts desto Trotz kommt hier sí nix weg, y wiedergefunden Será mejor que te va eh porque adecuado se wo qué Neues Nuevo se.

Bis denne, IF

11.08.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

¡Hola Martin...

Yo me irgendwie pensamiento, daß esta Cuestión todavía kommt, y deshalb mi Windowsversion con dazu geschrieben. Schau veces hier después de:
[...]

El Problema con el no leeren Bereichsvarialen Tuve bajo Windows2000 PRO, como Yo intenta hatte, en el Adminprofile una Key y HKEY_LOCAL_MACHINE auszulesen, el por Privilegien geschützt war. Yo voluntad en el me nochmals con READINI$ y una Userprofile con eingeschränkten Rechten testen.
Als Yo intenta habe, una Registryhive uno otro Users en el Adminprofile con Writeini a bearbeiten, son me ebenfalls veces bastante drastische Problemas y Fehlermeldungen en Bezug en RegOpenKeyEx gemeldet worden (WindowsXP). Wenn du vorhast, dein fertiges Programa no sólo bajo una Adminprofile laufen que se, sería Yo deshalb ya genau überlegen, si uno no mejor bastante el Finger de Readini$ y Writeini dejar debería y simplemente mejor direkt a API greift - aber el es sólo mi persönliche Meinung.

12.08.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Hi Martin,

a Winver habe tal vez una Loesung.
Schau veces hier : [...]

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

12.08.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Martin
Heller

@Andreas: Gracias, así es muy viel mejor.
@AH: Hatte ehe ya überlegt, en el API-befehle umzusteigen.

17.08.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita