arkadaşlar programımız çalışıyorken aynı exe ye tıkladığımızda çalışmamasını nasıl sağlarız.mesela uyarı versin kullanıcıya (program zaten çalışıyor,kapatıp tekrar açın) diye örnek olarak.Yardımlarınızı bekliyorum...
Aşağıdaki kodları kullanabilirsin
kodları olduğu gibi kopyala forma yapıştır.
Form_Load olayına ProgramKontrol() kodunu yazman yeterli
Public Sub ProgramKontrol()
On Error Resume Next
Dim CalisanProg() As Process
Dim ModAdi, ProgAdi As String
ModAdi = Process.GetCurrentProcess.MainModule.ModuleName
ProgAdi = System.IO.Path.GetFileNameWithoutExtension(ModAdi)
CalisanProg = Process.GetProcessesByName(ProgAdi)
If CalisanProg.Length > 1 Then
MessageBox.Show("program zaten çalışıyor,kapatıp tekrar açın...", "BİLDİRİ MESAJI - Www.Kodlariz.Biz", MessageBoxButtons.OK, MessageBoxIcon.Warning)
'Yeni açılan programı kapatıyoruz.
End
End If
End Sub