Comment faire pour utiliser ExitWindowsExec() dans Visual Basic pour exécuter le fichier de commandes MS-DOS

Traductions disponibles Traductions disponibles
Numéro d'article: 147806 - Voir les produits auxquels s'applique cet article
Cet article a été archivé. Il est proposé « en l'état » et ne sera plus mis à jour.
Agrandir tout | Réduire tout

Sommaire

Résumé

La fonction ExitWindowsExec() termine Windows s'exécute une application MS-DOS spécifiée et puis redémarre Windows. Les informations contenues dans cet article vous montre comment appeler cette fonction à partir de Microsoft Visual Basic.

Plus d'informations

La fonction ExitWindowsExec() est généralement utilisée par les programmes d'installation pour remplacer des composants de Windows qui sont actives lorsque Windows est en cours d'exécution. Normalement, vous seriez amené à exécuter un fichier de commandes MS-DOS qui effectue la copie pendant que Windows est arrêté temporairement des fichiers. La déclaration pour ExitWindowsExec() est comme suit :
   ' Place the following declaration on one, single line:

  Private Declare Function ExitWindowsExec Lib "User" (ByVal lpszExe As String,
      ByVal lpszParams As Any) As Integer
				

Premier paramètre : lpszExe $

Le premier paramètre pour ExitWindowsExec(), $ lpszExe, doit être une chaîne contenant le chemin d'accès complet au fichier exécutable que vous souhaitez exécuter. Cette chaîne doit contenir plus de 127 caractères. Pour les fichiers de commandes, vous devrez peut-être spécifier Command.com que le fichier--C:\DOS\COMMAND.COM. Pour obtenir le chemin d'accès qualifié complet dans Visual Basic pour le fichier Command.com, vous pouvez utiliser la fonction $ environ :
   lpszExe$ = Environ$("COMSPEC")
				

Pour plus d'informations sur la fonction $ environ, reportez-vous à la référence du langage Microsoft Visual Basic ou dans le menu Aide.

Deuxième paramètre : lpszParams $

Le second paramètre pour ExitWindowsExec(), $ lpszParams, doit être une chaîne contenant tous les paramètres nécessaires pour le fichier exécutable. Si aucun paramètre n'est nécessaire, transmettez un entier long 0 comme 0 &.

Pour exécuter un fichier de commandes, cependant, il s'agit dans laquelle vous spécifiez le chemin d'accès pour le fichier de commandes et les paramètres dont il a besoin. En outre, vous devez faire précéder la chaîne avec le commutateur /c qui indique à MS-DOS pour appeler une copie du fichier Command.com. Voici un exemple :
   lpszParams$ = "/C C:\DIRNAME\GENERIC.BAT  PARAMETER1 PARAMETER2"
				

La valeur de retour de cette fonction est False lorsque la fonction échoue.

Exemple pas à pas

  1. À l'aide du bloc-notes dans Windows ou modifier dans MS-DOS, créez un fichier de commandes dans le répertoire racine de votre disque dur appelé C:\RUNIT.BAT. Lui donner le contenu suivant :
       @echo off
       echo Making Backup of autoexec.bat
       copy c:\autoexec.bat c:\*.bak
       echo Done
    
    						
  2. Démarrez un nouveau projet dans Visual Basic (ALT, F, N). Form1 est créé par défaut.
  3. Ajoutez la déclaration suivante à la section Déclarations générales du formulaire :
       ' Place the following declaration on one, single line:
    
       Private Declare Function ExitWindowsExec Lib "User" (ByVal lpszExe As String, _
          ByVal lpszParams As Any) As Integer
    
    						
  4. Ajoutez au formulaire un bouton de commande (Command1) et placez le code suivant dans l'événement Click().
       Private Sub Command1_Click ()
          sComspec$ = Environ$("COMSPEC")
          ret% = ExitWindowsExec(sComspec$,  "/c c:\runit.bat")
       End Sub
    
    						
  5. Enregistrez le projet (ALT, F, V). Appuyez sur la touche F5 pour exécuter le programme. Cliquez sur le bouton de commande Quitter Windows, exécutez le fichier de commandes, puis redémarrez Windows.

Propriétés

Numéro d'article: 147806 - Dernière mise à jour: lundi 3 février 2014 - Version: 1.1
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Visual Basic 4.0 Édition professionnelle
  • Microsoft Visual Basic 4.0 16-bit Enterprise Edition
Mots-clés : 
kbnosurvey kbarchive kbmt kbwndw KB147806 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 147806
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com