Advertisement
5_2007-2008 Complete Applications #172360

Only one Instance

If the programm runs, you can't start it again!

AI

สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

ซอร์สโค้ด
original-source
Sub Main()
Dim OldTitle$
  If App.PrevInstance Then
    OldTitle = App.Title
    App.Title = "Newapp.exe"
    AppActivate OldTitle
    End
  End If
  Form1.Show
End Sub
Upload
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine