回 帖 发 新 帖 刷新版面

主题:第一次

请问高手:
      怎么样才能使一个应用程序只运行一个??(意思是:你双击一个应用程序时,可以运行一个,不关掉前一个的同时再双击又可以打开一个同样的,现在我只想让它运行一个,不能打开多个,那要怎么办??)
请高手指教!!
   谢谢!!
   给代码的给满分!!

回复列表 (共3个回复)

沙发

遍历进程,发现自身就卸载

板凳

在使用Process時,需注意
Dim PreProcess As Process
Dim str_name As String
PreProcess = Process.GetCurrentProcess
str_name = PreProcess.GetCurrentProcess.ProcessName
Label1.Text = str_name
如果是舊系統的話,建議你先重裝系統,不是嚇唬你,因為有可能運行到第4行就無緣無故出錯,試了就知道

3 楼

也可以用连接数据库的方法


在你运行程序时,检索数据库的某个特定表,如果有标记值,就退出程序
               如果没有,就插入标记值

当然,在你点击关闭按钮的时候可要把标记值清除

我来回复

您尚未登录,请登录后再回复。点此登录或注册