PureBasic Forums - English

Posted: **Thu May 05, 2005 1:34 pm**

For my lib i need the result of this code ( launched with Windows 98 and Windows XP ( English Version ) )

Someone could post the result of the debug windows ?

Thanks

Code: Select all


; Code from Soldat Inconnu tweaked by droopy
; PureBasic 3.93

; Get Name / Folder of Windows Special Folders

ProcedureDLL.s GetSpecialFolderLocation(Valeur.l) 
  If SHGetSpecialFolderLocation_(0, Valeur, @Dossier_ID) = 0 
    SpecialFolderLocation.s = Space(#MAX_PATH) 
    SHGetPathFromIDList_(Dossier_ID, @SpecialFolderLocation) 
    If SpecialFolderLocation 
      If Right(SpecialFolderLocation, 1) <> "\" 
        SpecialFolderLocation + "\" 
      EndIf 
    EndIf 
  EndIf 
  ProcedureReturn SpecialFolderLocation.s 
EndProcedure 

For n=0 To 64
  If GetSpecialFolderLocation(n) ="" : Continue : EndIf
  Debug Str(n) + " "+GetSpecialFolderLocation(n)
Next

Posted: **Thu May 05, 2005 1:51 pm**

Windows XP Home Edition:

Code: Select all

0 C:\Documents and Settings\EricNew\Desktop\
2 C:\Documents and Settings\EricNew\Start Menu\Programs\
5 C:\Documents and Settings\EricNew\My Documents\
6 C:\Documents and Settings\EricNew\Favorites\
7 C:\Documents and Settings\EricNew\Start Menu\Programs\Startup\
8 C:\Documents and Settings\EricNew\Recent\
9 C:\Documents and Settings\EricNew\SendTo\
11 C:\Documents and Settings\EricNew\Start Menu\
13 C:\Documents and Settings\EricNew\My Documents\My Music\
16 C:\Documents and Settings\EricNew\Desktop\
19 C:\Documents and Settings\EricNew\NetHood\
20 C:\WINDOWS\Fonts\
21 C:\Documents and Settings\EricNew\Templates\
22 C:\Documents and Settings\All Users\Start Menu\
23 C:\Documents and Settings\All Users\Start Menu\Programs\
24 C:\Documents and Settings\All Users\Start Menu\Programs\Startup\
25 C:\Documents and Settings\All Users\Desktop\
26 C:\Documents and Settings\EricNew\Application Data\
27 C:\Documents and Settings\EricNew\PrintHood\
28 C:\Documents and Settings\EricNew\Local Settings\Application Data\
31 C:\Documents and Settings\All Users\Favorites\
32 C:\Documents and Settings\EricNew\Local Settings\Temporary Internet Files\
33 C:\Documents and Settings\EricNew\Cookies\
34 C:\Documents and Settings\EricNew\Local Settings\History\
35 C:\Documents and Settings\All Users\Application Data\
36 C:\WINDOWS\
37 C:\WINDOWS\system32\
38 C:\Program Files\
39 C:\Documents and Settings\EricNew\My Documents\My Pictures\
40 C:\Documents and Settings\EricNew\
41 C:\WINDOWS\system32\
43 C:\Program Files\Common Files\
45 C:\Documents and Settings\All Users\Templates\
46 C:\Documents and Settings\All Users\Documents\
47 C:\Documents and Settings\All Users\Start Menu\Programs\Administrative Tools\
53 C:\Documents and Settings\All Users\Documents\My Music\
54 C:\Documents and Settings\All Users\Documents\My Pictures\
56 C:\WINDOWS\Resources\
59 C:\Documents and Settings\EricNew\Local Settings\Application Data\Microsoft\CD Burning\

Regards,
Eric

Posted: **Thu May 05, 2005 1:56 pm**

Thanks.

I just need the same under an English Windows 98