Overblog Suivre ce blog
Editer l'article Administration Créer mon blog
30 septembre 2007 7 30 /09 /septembre /2007 10:48

Pour s'assurer que votre application n'a été lancé qu'une fois, vous devez parcourir les processus en cours pour vérifier que votre application ne s'y trouve pas déjà .

Tout d'abord vous devez faire un Imports System.Management.

Code :


        Dim Process As New ManagementObjectSearcher("SELECT * FROM Win32_Process") 'Lecture des process
        Dim info As ManagementObject
        Dim stock As String
        Dim vrs As Integer

       ' Récupération des informations sur l'application
        Dim MyNameApp As New FileInfo(Application.ExecutablePath) ' où se trouve le programme
        Dim SingApp As FileVersionInfo = FileVersionInfo.GetVersionInfo(MyNameApp.Name) 'on récupère la version

        For Each info In Process.Get
            stock = info("Caption").ToString()
            If stock = SingApp.OriginalFilename.ToString() Then
                vrs = vrs + 1
                If vrs > 1 Then
                    MsgBox("L'application '" & MyNameApp.Name & "' est déjà lancée !", MsgBoxStyle.Critical)
                    End
                End If
            End If
        Next

Partager cet article

Repost 0
Published by Cyril - dans VB.NET
commenter cet article

commentaires