طلب كود لفتح نسخه واحده فقط من البرنامج

يمكنك ان تستعمل الطريقة GetProcessesbyName التابعة للفئة prosess للبحث عن العمليات التى تحمل نفس الاسم كبرانمجك مثلا فان وجدتها تخرج رساله تقول ان البرنامج يعمل وأليك مثال بسيط مقتبس من كتاب tips & techniques

Module Module1

    Sub Main()
        Dim MatchingNames As Process()

        Dim TargetName As String

        TargetName = Process.GetCurrentProcess.ProcessName

        MatchingNames = Process.GetProcessesByName(TargetName)

        If (MatchingNames.Length = 1) Then
            Console.WriteLine("Started...")
            Console.ReadLine() ' Delay for input
        Else
            Console.WriteLine("Process already running")
        End If

    End Sub

End Module

تمت مناقشة الموضوع سابقا في المنتدى في الموضوع كيف تعرف إذا كان برنامجك مفتوحا من قبل

اقتباس

وأليك مثال بسيط مقتبس من كتاب tips & techniques

يا سلام لو حطيت الكتاب :D تبقي كسبت ثواب كبييير , أو ارفعه علي rapidshare,,,

شكرا جزيلا لكم

اقتباس

QUOTE

وأليك مثال بسيط مقتبس من كتاب tips & techniques

يا سلام لو حطيت الكتاب  تبقي كسبت ثواب كبييير , أو ارفعه علي rapidshare,,,

--------------------

هذي الخاصية في فيجوال 2005 بس click واحد بدون اي كود :)

تحياتى للجميع