چطور می شه از اجرای دوباره برنامه جلوگیری کرد؟

[javad_m]

مي توني از اين كد هم استفاده كني:

Dim a As Integer

Private Sub Form_Load()
On Error Resume Next
a = GetSetting(App.EXEName, "a", "a", 1)
If a = 1 Then
MsgBox "this program is opened", vbCritical, "error"
End
Else
a = 1
SaveSetting App.EXEName, "a", "a", a
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
a = 0
SaveSetting App.EXEName, "a", "a", a
End Sub

[Payman_62]

سلام.
کدت اشکال داره. در ضمن چه کاریه. وقتی یه خط کد جواب میده.
اگه میخوای کاملش کنی بهتره با توابعی مثل findwindow چک کنی که آیا برنامه با این کپشن خاص باز هست یا نه.