Français
Forum

Systempfade

 

Martin
Heller
Hiho,
je hab dans qui Registry une Dossier trouvé, dans dem quelques Pfade drinne stehen. je serait volontiers savons, si qui Pfade aussi dans anderen Windowsversionen trouvé volonté.
Könntet son la fois s'il te plaît den Code effectuer et den Zwischenablageninhalt ici posten?
Wäre bien si son euere Version Windows aussi encore avec posten könntet. je peux avec dem Wert de $WinVer pas wirklich quelque chose anfangen. sais quelqu'un, quelle numéro, welches System ist?

Martin
KompilierenMarqueSéparation
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, je kanns zwar pas testen sur 98ern, glaube mais cette Pfad aussi de 98ern trop connaître.

ici mon Ergebnis:[quote-part:67f16c498d]Version Windows. 5.1

AppData...ok
Desktop...ok
Favorites...ok
Fonts...ok
personnel...ok
Programs...ok
SendTo...ok
Start Menu...ok
Startup...ok[/quote-part:67f16c498d]jusqu'à denne, iF
 
10.08.2004  
 



ne...aucune Problem:
Windows 98

[quote-part:6f2dcb28a6]
Version Windows. 4.10

AppData...ok
Desktop...ok
Favorites...ok
Fonts...ok
personnel...ok
Programs...ok
SendTo...ok
Start Menu...ok
Startup...ok
[/quote-part:6f2dcb28a6]
 
10.08.2004  
 



Windows95:

[quote-part:a249517973]
Version Windows. 4.0

AppData...ok
Desktop...ok
Favorites...ok
Fonts...ok
personnel...ok
Programs...ok
SendTo...ok
Start Menu...ok
Startup...ok
[/quote-part:a249517973]
ah oui.. allez cela so überhaupt? j'ai cela zwar avec @READINI$() encore pas getestet, mais si on dans qui Registry une String ausliest, qui pas ausgelesen volonté peux, bedeutet cela pas absolument, qui qui zurückgegebene Bereichsvariable vide ist. là Profan aussi sur qui API funktioniert, pourrait cela peut-être falsche Ergebnisse apporter. Besser wäre cela peut-être so (PUTCLIP$ funktioniert chez mir so incidemment aussi pas):
KompilierenMarqueSéparation
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
ici cela Ergebnis pour WIN XP Prof...

Version Windows. 5.1

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

Salut

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 merci pour testen.

@AH: je hab es auparavant avec einem pas vorhandenen Reg-Eintrag getestet. Es wird un Leerstring retour.
@IF: la hâte du cela Thema déménagé? Dachte je hätte es beim Stammtisch posté.

peux mir jemann den Rückgabewert de $WinVer expliquer? quelle numéro quoi bedeutet? ou bien kennt quelqu'un une bessere Alternative trop $WinVer?

Martin
 
11.08.2004  
 



Jepp, je hab es déménagé. Im Stammtisch ca va plutôt moins um Programmation. je fand es chez Programmation / Allgemein besser aufgehoben.

rien desto Trotz venez ici oui nix weg, et wiedergefunden wirds eh weil angezeigt wird wohin quoi Neues posté wird.

jusqu'à denne, iF
 
11.08.2004  
 



allô Martin...

je hab mir irgendwie gedacht, qui cet Frage encore venez, et c'est pourquoi mon Version Windows avec en supplément geschrieben. exposition la fois ici pour:
[...] 

qui Problem avec qui pas vider Bereichsvarialen J'ai eu sous Windows2000 PRO, comme je versucht hatte, im Adminprofile une Key et HKEY_LOCAL_MACHINE auszulesen, qui par Privilegien geschützt était. je werde cela chez mir nochmals avec READINI$ et einem Userprofile avec eingeschränkten Rechten testen.
comme je versucht habe, une Registryhive eines anderen Users im Adminprofile avec Writeini trop Travailler, sommes mir également la fois assez drastische Probleme et Fehlermeldungen dans Bezug sur RegOpenKeyEx gemeldet worden (WindowsXP). si du vorhast, dein fertiges Programme pas seulement sous einem Adminprofile courir trop laisser, serait je mir c'est pourquoi déjà oui c'est ca überlegen, si on pas besser entier qui Finger de Readini$ et Writeini laisser sollte et simple besser direct zur API greift - mais c'est seulement mon persönliche attitude.
 
12.08.2004  
 




Andreas
Miethe


Hi Martin,

trop Winver habe peut-être une Loesung.
exposition la fois ici : [...] 
 
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: merci, avec cela ca va très viel besser.
@AH: Hatte mariage déjà überlegt, sur qui API-befehle umzusteigen.
 
17.08.2004  
 



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

6.763 Views

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

Themeninformationen



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