【NO.0020】禁止重复运行

xusteven

重复运行源码。
修改了一下

qc重复运行.rar (2.2 KB, 下载次数: 11)

2010-6-18 22:43 上传

点击文件名下载附件

这程序挺好玩，那个支持库怎么办？

用了一个“选择”，一个“信息框”。

好好学习，天天向上。

46316447

1. .版本 2
   
2. .支持库 eAPI
   
3. 
   
4. .程序集 窗口程序集1
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. .局部变量 循环, 整数型
   
8. .局部变量 重复运行1, 整数型
   
9. .局部变量 重复运行2, 整数型
   
10. .局部变量 重复运行相减, 整数型
    
11. 
    
12. .判断循环首 (循环 ＝ 0)
    
13. .如果真 (到数值 (寻找文本 (到文本 (取系统进程列表 ()), 取执行文件名 (), 0, 假)) ≠ -1)
    
14. 重复运行1 ＝ 寻找文本 (到文本 (取系统进程列表 ()), 取执行文件名 (), 0, 假)
    
15. .如果真结束
    
16. .如果真 (到数值 (重复运行2 ＝ 寻找文本 (到文本 (取系统进程列表 ()) ＋ 到文本 (重复运行1), 取执行文件名 (), 0, 假)) ≠ -1)
    
17. 重复运行2 ＝ 寻找文本 (到文本 (取系统进程列表 ()) ＋ 到文本 (重复运行1), 取执行文件名 (), 0, 假)
    
18. 重复运行相减 ＝ 重复运行2 － 重复运行1
    
19. .如果真结束
    
20. .如果真 (重复运行相减 ＝ 1)
    
21. 信息框 (“程序已重复运行！”, 0, )
    
22. 终止进程 (取执行文件名 ())
    
23. .如果真结束
    
24. _启动窗口.可视 ＝ 真
    
25. .判断循环尾 ()
    

复制代码

===============================
没试过……大概是这个样子吧……

xusteven

重复运行源码。
修改了一下



这程序挺好玩，那个支持库怎么办？

用了一个“选择”，一个“信息框 ...
xusteven 发表于 2010-6-18 21:16

   
鲁凯啸 在 半小时前 说:
你试着自己运行了么？
在调试运行的时候就会出错！
本身应该是正常运行的，但是他却说是已经有运行了~


####那是因为你还没生成.exe文件，在用易语言试运行就是这个样子，要生成后就不一样了，而且你改文件名成DLL，在CDM命令 这个是.exe文件，qc重复运行.rar (3.55 KB, 下载次数: 1)

2010-6-19 21:58 上传

点击文件名下载附件 也提示。

无敌英雄

1. .版本 2
   
2. 
   
3. 窗口句柄 ＝ 寻找顶级窗口_ (0, “禁止重复运行”)
   
4. .判断开始 (窗口句柄 ＞ 0)
   
5.     信息框 (“发现重复运行”, 0, )
   
6.     恢复窗口_ (窗口句柄)
   
7.     结束 ()
   
8. .默认
   
9.     _启动窗口.标题 ＝ “禁止重复运行”
   
10. 
    

复制代码

temp0123

1. 写到文件 (取特定目录 (11) ＋ “\temp0123.txt”, 到字节集 (1))
   
2. .如果真 (打开文件 (取特定目录 (11) ＋ “\temp0123.txt”, #改写, #禁止读写) ＝ 0)
   
3.     信息框 (“程序已运行”, 0, )
   
4.     结束 ()

复制代码

[e]写到文件 (取特定目录 (11) ＋ “\temp0123.txt”, 到字节集 (1))
.如果真 (打开文件 (取特定目录 (11) ＋ “\temp0123.txt”, #改写, #禁止读写) ＝ 0)
    信息框 (“程序已运行”, 0, )
    结束 ()[/e]

conntfs

禁止重复.rar (1.13 KB, 下载次数: 7)

2010-6-21 09:32 上传

点击文件名下载附件
.版本 2
.支持库 shell

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 路径, 文本型
.局部变量 h, 整数型

路径 ＝ 取特定目录 (#临时文件目录)
.如果真 (路径 ＋ “\” ≠ “\”)
    路径 ＝ 路径 ＋ “\”
.如果真结束

删除文件 (路径 ＋ “456.temp”)  ' “conntfs.tmp”可根据需要自己更改自己程序的名称。
.如果真 (文件是否存在 (路径 ＋ “456.tmp”) ＝ 真)
    信息框 (“程序已经运行，请不要重复运行！”, 0, )
    结束 ()
.如果真结束

h ＝ 打开文件 (路径 ＋ “456.tmp”, #重写, #禁止读写)
.如果真 (h ＝ 0)
    信息框 (“程序启动错误”, 0, )
    结束 ()

‖⌒、小天‖

我一班都-----通过创建互斥量来判断：   
不知道和您老胃口不？
      大概就这些了
//---------------------------------------------------------------------------     
  
#include     <vcl.h>     
#pragma     hdrstop     
USERES( "Project1.res ");     
USEFORM( "Unit1.cpp ",     Form1);     
//---------------------------------------------------------------------------     
WINAPI     WinMain(HINSTANCE,     HINSTANCE,     LPSTR,     int)     
{     
                              try     
                              {     
                                                                  Application-> Initialize();     
                                                                  HANDLE     hnd     =     CreateMutex(NULL,TRUE, "No     Previous     Instance! ");     
                                                                      if     (NULL     ==     hnd)     
                                                                      {     
                                                                              MessageBox(NULL, "创建Mutex失败! ", "NoPrev ",MB_OK     &brvbar;MB_SYSTEMMODAL);     
                                                                              return     0;     
                                                                      }     
                                                                      if     (GetLastError()==ERROR_ALREADY_EXISTS)     
                                                                      {     
                                                                              ::MessageBox(NULL, "已经运行了一个实例! ",Application-> Title.c_str(),MB_OK     &brvbar;MB_SYSTEMMODAL);     
                                                                              ReleaseMutex(hnd);     
                                                                              return     0;     
                                                                      }     
                                                                  Application-> CreateForm(__classid(TForm1),     &Form1);     
                                                                  Application-> Run();     
                              }     
                              catch     (Exception     &exception)     
                              {     
                                                                  Application-> ShowException(&exception);     
                              }     
                              return     0;     
}     
//---------------------------------------------------------------------------     
  
二、通过查找系统原子表的方法来判断：     
//---------------------------------------------------------------------------     
  
#include     <vcl.h>     
#pragma     hdrstop     
USERES( "Project1.res ");     
USEFORM( "Unit1.cpp ",     Form1);     
//---------------------------------------------------------------------------     
WINAPI     WinMain(HINSTANCE,     HINSTANCE,     LPSTR,     int)     
{     
                                                                  const     char     *Atom     =     "SingleApp ";     
                              try     
                              {     
                                                                  if     (GlobalFindAtom(Atom)     !=     0)//在系统原子表中找原子     
                                                                  {     
                                                                              ::MessageBox(NULL, "已经运行了一个实例! ",Application-> Title.c_str(),MB_OK     &brvbar;MB_SYSTEMMODAL);     
                                                                              return     0;     
                                                                  }     
                                                                  GlobalAddAtom(Atom);//增加原子     
                                                                  Application-> Initialize();     
                                                                  Application-> CreateForm(__classid(TForm1),     &Form1);     
                                                                  Application-> Run();     
                              }     
                              catch     (Exception     &exception)     
                              {     
                                                                  Application-> ShowException(&exception);     
                              }     
                              GlobalDeleteAtom(GlobalFindAtom(Atom));//删除原子     
                              return     0;     
}     
//---------------------------------------------------------------------------     
  
三、通过FindWindow函数来判断：     
//---------------------------------------------------------------------------     
  
#include     <vcl.h>     
#pragma     hdrstop     
USERES( "Project1.res ");     
USEFORM( "Unit1.cpp ",     Form1);     
//---------------------------------------------------------------------------     
WINAPI     WinMain(HINSTANCE,     HINSTANCE,     LPSTR,     int)     
{     
                              try     
                              {     
                                                                  HWND     hdc     =     FindWindow( "TForm1 ", "Form1 ");     
                                                                  if     (NULL     !=     hdc)     
                                                                  {     
                                                                              ::MessageBox(NULL, "已经运行了一个实例! ",Application-> Title.c_str(),MB_OK     &brvbar;MB_SYSTEMMODAL);     
                                                                              return     0;     
                                                                  }     
                                                                  Application-> Initialize();     
                                                                  Application-> CreateForm(__classid(TForm1),     &Form1);     
                                                                  Application-> Run();     
                              }     
                              catch     (Exception     &exception)     
                              {     
                                                                  Application-> ShowException(&exception);     
                              }     
                              return     0;     
}     
//---------------------------------------------------------------------------

lizuolong

不知道符不符合要求
不过效果是达到了
源码和EXE都带了

程序开发推广

直接检测进程就可以的,最简单有效...

mcaeg

我也来热闹一下 test.zip (258.35 KB, 下载次数: 5)

2010-6-25 09:37 上传

点击文件名下载附件