Program Engelleme Hakında Yardım !

Merhaba arkadaslar bir projem var projenin amacı "chrome-notepad-firefox-winamp vs." programların aynı anda

açılmayı engelleme
Mesela "winamp" açıldımı "chrome-notepad" açılmıycak şekilde bir mantık yürütmem lazım
Programların ismini notdefteri benzeri bir veritabanı yazdım ve
"chrome.exe"
"notepad.exe"
"firefox.exe" vs
olarak yazdıgımda geliştirdiğim program ismini buldugu programı açıldığı gibi kapatıyor benim istediğim birini

çalıştırmaya izin vericek diğerleri çalışırsa kapanıcak inşallah detaylı anlatmısımdır bu konuyla ilgili

yardımlarınız beklıyorum.

Basit bir zaman kontrolü ile bunu yapabilirsiniz.

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.

Demek istediğini pek beceremedim projemi paylaşsam yardımcı olurmusun zamanın olursa

http://yadi.sk/d/0jO_TUdpJjdod

Proje VB6 imiş ancak ben .Net zannetmiştim artık bununla çalışmıyorum. Mantık yukarıdaki gibi olacak buna göre hareket edersiniz.

(02/03/2014, 15:06)alpeki99 yazdı: Proje VB6 imiş ancak ben .Net zannetmiştim artık bununla çalışmıyorum. Mantık yukarıdaki gibi olacak buna göre hareket edersiniz.

burası vb6 yeri zaten

(16/02/2024, 17:06)aliihsan322 yazdı:

(02/03/2014, 15:06)alpeki99 yazdı: Proje VB6 imiş ancak ben .Net zannetmiştim artık bununla çalışmıyorum. Mantık yukarıdaki gibi olacak buna göre hareket edersiniz.

burası vb6 yeri zaten

10 yıl önceki konu için uyarı da bulunduğunuz için teşekkür ederiz.
Polemiğe yol açabilecek ve gereksiz mesajlaşmalar yapmayınız.