Bu Uygulama Sistemde Çalışıyor mu? - Örnek Algoritma

Bu uygulama sistemde şu anda çalışıyor mu? Nasıl bir kodla denetlenebilir. İnternet aramalarında çıkan ilk sonuçlar pek verimli değil. Çalışabilir tam hazır kod bulunamıyor. Bu yüzden kendi örneğimi yazdım.

    'Design'de Denetle adlı Timer eklenecek. Enabled özelliği True yapılacak.
    Private Function UygulamaÇalışıyor(UygAdı As String) As Boolean
        'Fonksiyon'da UygAdı değişkeni, denetlenecek uygulamadır. 
        'Çalışan her işlemin (uygulamanın) bilgileri tek tek İşlem değişkenine yükleniyor.
        For Each işlem As Process In Process.GetProcesses
            'Sıradaki İşlem Adı UygAdı ile karşılaştırılıyor.
            If işlem.ProcessName = UygAdı Then
                'UygAdı, bu İşlem Adı'yla aynıysa,
                'Uygulama İşlem listesinde bulunmuştur, çalışıyordur.
                'Fonksiyon'dan True döner.
                UygulamaÇalışıyor = True
                Exit Function
            End If
        Next
    End Function

    Private Sub Denetle_Tick(sender As Object, e As EventArgs) Handles Denetle.Tick
        'Örneğin WinRAR'ın sıkıştırmaya devam edip etmediği denetlenebilir.
        If UygulamaÇalışıyor("WinRAR") Then
            'Bu uygulama çalışıyorsa yapılacak komutlar,
        Else
            'çalışmıyorsa yapılacak komutlar.
        End If
    End Sub

Bu Kod Visual Basic.Net 2013'le yazılmıştır.

Bu Fonksiyon örneğin şu amaçlar için kullanılabilir: Projenizden ardarda birkaç program çalıştırmanız gerekebilir. Bir program başlatılır. O'nun görevi bittikten sonra başka bir program başlatılabilir. İşte bu fonksiyonla programın görevinin hâlâ sürdüğü denetlenebilir. Ve görevi bitince diğer program başlatılabilir. Diğer bir amaçsa projenin başına iliştirilebilir. Projenin bir kopyası sistemde zaten çalışıyorsa yeni bir kopyasının çalıştırılması önlenebilir.