English
Forum

System Paths

 

Martin
Heller
Hiho,
I Have in the Registry a Ordner found, in the some Paths drinne stand. i'd gladly know, whether The Paths too in others Windowsversionen found go.
could your time ask the code perform and the Zwischenablageninhalt here post?
would be well if your your Windowsversion too yet with post could. I can with the worth of $WinVer not really something begin. white someone, which number, which System is?

Martin
CompileMarkSeparation
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
 
08/10/04  
 



Hmm, I kanns of course not testing on 98ern, faith but this way too of 98ern To kennen.

here my Result:[quote:67f16c498d]Windowsversion. 5.1

AppData...ok
Desktop...ok
Favorites...ok
Fonts...ok
personnel...ok
Programs...ok
SendTo...ok
Start Menu...ok
Startup...ok[/quote:67f16c498d]To denne, iF
 
08/10/04  
 



no trouble:
windows 98

[quote:6f2dcb28a6]
Windowsversion. 4.10

AppData...ok
Desktop...ok
Favorites...ok
Fonts...ok
personnel...ok
Programs...ok
SendTo...ok
Start Menu...ok
Startup...ok
[/quote:6f2dcb28a6]
 
08/10/04  
 



windows95:

[quote:a249517973]
Windowsversion. 4.0

AppData...ok
Desktop...ok
Favorites...ok
Fonts...ok
personnel...ok
Programs...ok
SendTo...ok
Start Menu...ok
Startup...ok
[/quote:a249517973]
alas Yes.. does it so at all? I have the of course with @READINI$() not yet tested, but if one in the Registry a String ausliest, the not read go can, means not absolutely, that the zurückgegebene Memory-Variable empty. there Profan too over The API functions, could the Perhaps incorrect Results bring. rather would the Perhaps so (PUTCLIP$ functions by me so incidentally neither):
CompileMarkSeparation
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

 
08/10/04  
 




ASKTEC
here the Result for WIN XP Prof...

Windowsversion. 5.1

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

Greeting

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




Martin
Heller
Erstmal thanks for testing.

@AH: I Have it before with a not vorhandenen Reg-entry tested. it'll one Leerstring zurückgegeben.
@IF: have you got the Topic moved? thought I had it at Regulars table posted.

can me jemann whom Return Value of $WinVer explain? which number what means? or knows someone a better alternative To $WinVer?

Martin
 
08/11/04  
 



Jepp, I Have it moved. in the Regulars table goes it sooner less circa Programming. I found it with Programming / generally rather aufgehoben.

nothing so withal comes here Yes nothing lane, and wiedergefunden Better get going eh because displayed becomes where what New posted becomes.

To denne, iF
 
08/11/04  
 



Hello Martin...

I Have me somehow virtual, that these question yet comes, and therefore my Windowsversion with moreover written. look time here to:
[...] 

The Completed: the not clear Bereichsvarialen I had under windows2000 PRO, as i attempts having, in the Adminprofile a Key and HKEY_LOCAL_MACHINE auszulesen, the through Privilegien protected was. i'll the by me over again with READINI$ and one Userprofile with eingeschränkten Rechten testing.
as i attempts have, a Registryhive one others Users in the Adminprofile with Writeini To Edit, are me ditto time quite drastische Problems and Fehlermeldungen in reference on RegOpenKeyEx gemeldet been (WindowsXP). If you vorhast, your fertiges Program not only under one Adminprofile walk To let, would I me therefore already very consider, whether one not rather integrally The fingers of Readini$ and Writeini let ought to and simply rather directly to API clutching - but this is only my personal opinion.
 
08/12/04  
 




Andreas
Miethe


Hi Martin,

To Winver have Perhaps a Loesung.
look time here : [...] 
 
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 :  [...] 
08/12/04  
 




Martin
Heller
@Andreas: thanks, so goes it very much better.
@AH: having wedlock already consider, on The API-command umzusteigen.
 
08/17/04  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

6.952 Views

Untitledvor 0 min.
Sven Bader08/20/21
iF10/16/15
Andreas Koch12/16/11
Julian Schmidt06/30/11

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie