Italia
Foro

Systempfade

 

Martin
Heller
Hiho,
ich hab in der Registry einen Ordner gefunden, in dem einige Pfade drinne stehen. Ich würde gerne wissen, ob die Pfade auch in anderen Windowsversionen gefunden werden.
Könntet ihr mal bitte den Code ausführen und den Zwischenablageninhalt hier posten?
Wäre gut wenn ihr euere Windowsversion auch noch mit posten könntet. Ich kann mit dem Wert von $WinVer nicht wirklich etwas anfangen. Weiß jemand, welche Nummer, welches System ist?

Martin
KompilierenMarkierenSeparieren
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  
 



Hmm, ich kanns zwar nicht testen auf 98ern, glaube aber diesen Pfad auch von 98ern zu 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  
 



Kein Problem:
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  
 



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 ja.. geht das so überhaupt? Ich habe das zwar mit @READINI$() noch nicht getestet, aber wenn man in der Registry einen String ausliest, der nicht ausgelesen werden kann, bedeutet das nicht unbedingt, daß die zurückgegebene Bereichsvariable leer ist. Da Profan auch circa die API funktioniert, potuto das vielleicht falsche Ergebnisse bringen. Besser wäre das vielleicht so (PUTCLIP$ funktioniert bei mir so übrigens auch nicht):
KompilierenMarkierenSeparieren
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  
 




ASKTEC
Hier das Ergebnis per 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

Saluto

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




Martin
Heller
Erstmal danke fürs testen.

@AH: Ich hab es vorher mit einem nicht vorhandenen Reg-Eintrag getestet. Es wird ein Leerstring zurückgegeben.
@IF: Hast du das Thema verschoben? Dachte ich hätte es beim Stammtisch gepostet.

Kann mir jemann den Rückgabewert von $WinVer erklären? Welche Zahl was bedeutet? Oder kennt jemand eine bessere Alternative zu $WinVer?

Martin
 
11.08.2004  
 



Jepp, ich hab es verschoben. Im Stammtisch geht es eher weniger um Programmazione. Ich fand es bei Programmazione / Allgemein besser aufgehoben.

Nichts desto Trotz kommt hier ja nix weg, und wiedergefunden wirds eh weil angezeigt wird wo was Neues gepostet wird.

Bis denne, iF
 
11.08.2004  
 



Hallo Martin...

Ich hab mir irgendwie gedacht, daß diese Frage noch kommt, und deshalb meine Windowsversion mit dazu geschrieben. Schau mal hier nach:
[...] 

Die Problem mit der nicht leeren Bereichsvarialen hatte ich unter Windows2000 PRO, als ich versucht hatte, im Adminprofile einen Key und HKEY_LOCAL_MACHINE auszulesen, der durch Privilegien geschützt war. Ich werde das bei mir nochmals mit READINI$ und einem Userprofile mit eingeschränkten Rechten testen.
Als ich versucht habe, einen Registryhive eines anderen Users im Adminprofile mit Writeini zu bearbeiten, sind mir ebenfalls mal ziemlich drastische Probleme und Fehlermeldungen in Bezug auf RegOpenKeyEx gemeldet worden (WindowsXP). Wenn du vorhast, dein fertiges Programm nicht nur unter einem Adminprofile laufen zu lassen, würde ich mir deshalb schon genau überlegen, ob man nicht besser ganz die Finger von Readini$ und Writeini lassen sollte und einfach besser direkt zur API greift - aber das ist nur meine persönliche Meinung.
 
12.08.2004  
 




Andreas
Miethe


Hi Martin,

zu Winver habe vielleicht eine Loesung.
Schau mal 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  
 




Martin
Heller
@Andreas: Danke, damit geht es sehr viel besser.
@AH: Hatte ehe schon überlegt, auf die API-befehle umzusteigen.
 
17.08.2004  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

6.744 Views

Untitledvor 0 min.
Sven Bader20.08.2021
iF16.10.2015
Andreas Koch16.12.2011
Julian Schmidt30.06.2011

Themeninformationen



Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie