Aşağıdaki kodlar butonun tıklanma olayına yazılmış ve yanında bir metod var:
Public Function GetProcessStartTime(processName As String) As DateTime
Dim p As Process() = Process.GetProcessesByName(processName)
If p.Length <= 0 Then
Throw New Exception("Program çalışmıyor!")
End If
Return p(0).StartTime
End Function
Private Sub button1_Click(sender As Object, e As EventArgs)
Try
MessageBox.Show(GetProcessStartTime("filezilla").ToString())
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Formun üzerine Button1 isimli bir buton ekledim ve onun tıklanma olayına kodu yazdım. Processlerin çalışmaya başlama zamanlarını geri döndüren bir de fonksiyon var. Process'e parametre olarak uygulamaların adını gönderin geri gelen cevaba göre zamanları karşılaştırın. En yeni zamana sahip olan dışındaki diğer programları kapatın.