Rechercher les repertoires speciaux ( entierement expliqué)

Soyez le premier à donner votre avis sur cette source.

Vue 3 427 fois - Téléchargée 265 fois

Description

Il sert à trouver le repertoire windows et system en l'ocurence

Source / Exemple :


Option Explicit
'declare la fonction pour chercher windows
'Va voir dans la bibliotheque du kernel
'Demande au kernel ce qu'il faut chercher
'initialise les variables
Private Declare Function cherchewindows _
Lib "kernel32" _
Alias "GetWindowsDirectoryA" ( _
ByVal lpbuffer As String, _
ByVal nsize As Long _
) As Long

Private Sub Command1_Click()
Dim intn As Integer
'initialise les variables
Dim stra As String
'defini un taille pour la variable stra
stra = Space$(256)
intn = cherchewindows(stra, 256)
'supprime les caracteres inutile
stra = Left$(stra, intn)
'mais stra dans label 1
Label1.Caption = stra
End Sub

Conclusion :


Heu je sais qu'il y'en a qui vont critiquer mais bon , ceux qui critiquent ne comprenne rien à la solidarité !
Mais bon il faut s'attendre à tous !
Pour le repertoire system tout est dans le zip mais pour completer celui de dessus
il faut remplacer "GetWindowsDirectoryA"
Par "GetSystemDirectoryA"

Voila @+

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

Grande Information pour ce qui l'aurais pas vu :

Il y a une guide API en lien sur le site. Il est malheureusement en anglais (mais bon). Il regroupe + de 900 APIs.

Voir la section 'Goodies' (menu en haut), 'Téléchargements Utiles' puis API-Guide.

Ces APIs sont dans la catégorie 'Windows Informations'.

Ce message à été publié d'en l'intention d'eviter de surcharger la prochaine compil' car tout le monde n'a pas ( 8( ) l'ADSL.

Merci à celui qui me lit actuellement, d'ailleurs si tu pouvais dire tout fort 'Je ne suis qu'une sale trainée !', ca me ferait plaisir (même si je ne t'entends pas)
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
118
Oui je sais, mais il aurait pu le rajoutter dans sa source : elle aurait été plus complète !!!

DARK SIDIOUS
Messages postés
70
Date d'inscription
vendredi 22 février 2002
Statut
Membre
Dernière intervention
13 novembre 2003

pour repertoire system, au lieu de getwindowsdirectoryA c'est getsystemdirectoryA tout simplement
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
118
Non, moi je ne te critique pas ;-) C'est bien d'expliquer ceci aux débutant, c'est la base de tout. Cependant, une petite remarque tout de même : tu aurais pû inclure dans tes sources comment détecter le dossier système et le dossier temporaire, c'aurait fait une source un peu plus complète...

DARK SIDIOUS

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.