cs_Frenz
Messages postés41Date d'inscriptionsamedi 6 mars 2004StatutMembreDernière intervention24 mars 2007
-
2 mars 2007 à 17:45
PeterNet
Messages postés11Date d'inscriptionsamedi 17 septembre 2005StatutMembreDernière intervention28 janvier 2008
-
6 nov. 2007 à 12:25
Bonjour, je souhaiterais créer un panneau de configuration personnalisé c'est à dire une form avec tout les raccourcis souris, gestionnaire des périphériques, affichage, internet, connexion réseau etc...
Seulement, je ne connais pas les raccourcis en question !
J'ai cherché dans plusieurs forums sur plusieurs site mais je n'arrive pas à ma fin, donc si quelqun aurais la liste des raccourcis ou un lien peu etre que j'ai mal cherché....
Je pense que mon idée est pas mal car un panneau de configuration personnalisé devrait plaire à pas mal de personnes, et j'espere en tout cas que tout les liens sont accessibles.
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 2 mars 2007 à 17:51
Salut,
pour une de mes sources, j'avais dût les chercher, cependant, je n'ai pas tout, mais ceci sera déjà un bon début :
Public Sub Options_Accessibilite()
Dim Arg As String, TaskID As Double
Arg = "rundll32.exe shell32.dll,Control_RunDLL
acces.cpl"
On Error GoTo MessageN
TaskID = Shell(Arg)
Exit Sub
MessageN:
MsgBox "Le composant ""igfxcpl.cpl""
est manquant"
End Sub
Public Sub Ajout_Suppression_Programmes()
Dim Arg As String, TaskID As Double
Arg = "rundll32.exe shell32.dll,Control_RunDLL
appwiz.cpl"
On Error Resume Next
TaskID = Shell(Arg)
End Sub
Public Sub Proprietes_Affichage()
Dim Arg As String, TaskID As Double
Arg = "rundll32.exe shell32.dll,Control_RunDLL desk.cpl"
On Error Resume Next
TaskID = Shell(Arg)
End Sub
Public Sub Ajout_Materiel()
Dim Arg As String, TaskID As Double
Arg = "rundll32.exe shell32.dll,Control_RunDLL
hdwwiz.cpl"
On Error Resume Next
TaskID = Shell(Arg)
End Sub
Public Sub Proprietes_Graphiques()
Dim Arg As String, TaskID As Double
Arg = "rundll32.exe shell32.dll,Control_RunDLL
igfxcpl.cpl"
On Error GoTo MessageN
TaskID = Shell(Arg)
Exit Sub
MessageN:
MsgBox "Le composant ""igfxcpl.cpl""
est manquant"
End Sub
Public Sub Prorpietes_Internet()
Dim Arg As String, TaskID As Double
Arg = "rundll32.exe shell32.dll,Control_RunDLL
inetcpl.cpl"
On Error Resume Next
TaskID = Shell(Arg)
End Sub
Public Sub Options_Regionales()
Dim Arg As String, TaskID As Double
Arg = "rundll32.exe shell32.dll,Control_RunDLL intl.cpl"
On Error Resume Next
TaskID = Shell(Arg)
End Sub
Public Sub Controlleur_Joystick()
Dim Arg As String, TaskID As Double
Arg = "rundll32.exe shell32.dll,Control_RunDLL joy.cpl"
On Error Resume Next
TaskID = Shell(Arg)
End Sub
Public Sub Controleur_Souris()
Dim Arg As String, TaskID As Double
Arg = "rundll32.exe shell32.dll,Control_RunDLL main.cpl"
On Error Resume Next
TaskID = Shell(Arg)
End Sub
Public Sub Proprietes_Sonores()
Dim Arg As String, TaskID As Double
Arg = "rundll32.exe shell32.dll,Control_RunDLL
mmsys.cpl"
On Error Resume Next
TaskID = Shell(Arg)
End Sub
Public Sub Reseau_Local()
Dim Arg As String, TaskID As Double
Arg = "rundll32.exe
shell32.dll,Control_RunDLL ncpa.cpl"
On Error Resume Next
TaskID = Shell(Arg)
End Sub
Public Sub Compte_Utilisateur()
Dim Arg As String, TaskID As Double
Arg = "rundll32.exe shell32.dll,Control_RunDLL
nusrmgr.cpl"
On Error Resume Next
TaskID = Shell(Arg)
End Sub
Public Sub Options_Alimentation()
Dim Arg As String, TaskID As Double
Arg = "rundll32.exe shell32.dll,Control_RunDLL
powercfg.cpl"
On Error Resume Next
TaskID = Shell(Arg)
End Sub
Public Sub Proprietes_Systeme()
Dim Arg As String, TaskID As Double
Arg = "rundll32.exe shell32.dll,Control_RunDLL
sysdm.cpl"
On Error Resume Next
TaskID = Shell(Arg)
End Sub
Public Sub Heure_Systeme()
Dim Arg As String, TaskID As Double
Arg = "rundll32.exe
shell32.dll,Control_RunDLL timedate.cpl"
On Error Resume Next
TaskID = Shell(Arg)
End Sub
PeterNet
Messages postés11Date d'inscriptionsamedi 17 septembre 2005StatutMembreDernière intervention28 janvier 2008 6 nov. 2007 à 12:25
Bonjour,
Je crée une application sous Vb Net qui utilise un lecteur de carte via un port USB.
L'installation du lecteur de carte nécessite des drivers spécifiques.
J'ai recours à hdwwiz.cpl pour permettre à l'utilisateur d'installer proprement son lecteur lors de la première utilisation.
Cependant l'utilisateur est contraint de spécifier le chemin correspondant à l'emplacement des drivers (qui se trouvent sur le cd d'install de l'appli) dans l'un des écrans de l'assistant.
Y a t-il un moyen de spécifier directement l'emplacement des drivers lors de l'appel à hdwwiz.cpl ??