تعین اجرای همزمان نرم افزار

[xrezax]

دوستان یه برنامه ای دارم که می خوام فقط تا 3بار همزمان اجرا بشه نه بیشتر !
آیا راهی هست ؟؟

[مهران رسا]

میتونید از یک شمارنده مخفی به صورت زیر استفاده کنید :


Dim FileAddress As String
Private Sub Form_Initialize()
Dim CuC As Byte
FileAddress = App.Path & "\log.ini"
If App.PrevInstance Then
CuC = CRead()
If CuC > 2 Then
End
Else
CWrite (CuC + 1)
End If
Else
CWrite (1)
End If
End Sub

Private Sub CWrite(Index As Byte)
Open FileAddress For Output As #1
Print #1, CStr(Index)
Close #1
End Sub

Private Function CRead() As Byte
On Error Resume Next
Dim R As String
Open FileAddress For Input As #1
Line Input #1, R
Close #1
CRead = Val(R)
End Function

[xrezax]

مرسی مشکل حل شد :تشویق: :قلب: :بوس:

[mmssoft]

می تونید از SaveSetting و GetSetting هم استفاده کنید.