PureBasic

Pour intégrer dans ma lib, quelqu'un équipé de windows 98
pourrait-il lancer ce code et poster le résultat de la fenêtre de debug

merci d'avance

Code : Tout sélectionner


; 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

LSI a déjà taffé là dessus il me semble...
fais une recherche

Dri

Oui, tu vas sur 2Dev et tu trouveras la liste des dossiers possible sous Win98, 2000 et XP

merci