Contenu du snippet
Cette simple fonction émule la fonction interne de Windows %WinDir% qui renvoie le chemin du répertoire de Windows. Elle utilise l'API "GetWindowsDirectory" il faut donc la déclarer dans un module
Voilà et désolé pour le manque de commentaires je ne suis pas très fort pour les explications...
Source / Exemple :
Private Declare Function GeneralWinDirApi Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function WinDir() As String
' Renvoie le répertoire de Windows (Par exemple C:\Windows ou C:\WinNT)
Const FIX_LENGTH% = 4096
Dim Length As Integer
Dim Buffer As String * FIX_LENGTH
Length = GeneralWinDirApi(Buffer, FIX_LENGTH - 1)
WinDir = Left$(Buffer, Length)
End Function au
Conclusion :
Voilà et désolé pour le manque de commentaires je ne suis pas très fort pour les explications...
A voir également
- Emuler %windir%
- Windir ✓ - Forum Visual Basic
- Émuler en arabe - Forum C / C++ / C++.NET
- Emuler une touche - Forum Delphi / Pascal
- Emuler un joystick avec la souris ✓ - Forum Delphi / Pascal
- %Windir%\system32\rundll32.exe user32.dll,lockworkstation - Forum Java
10 avril 2003 à 18:21
Ideal lorsque on ne peut pas utiliser le VBS
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.