我编写了一套工资管理软件，在桌面上有一个快捷键，不知怎样防止在已经运行的时候再一次的双击该快捷键运行该程序，还请各位高手指教。谢谢！

設置一個啓動標誌文件

設置一個啓動標誌文件

DECLARE   integer   FindWindow   in   Win32Api   String,   String
wclass=0
winname= "我的程序 "
apphand   =   FindWindow(wclass   ,winname)
*   如果调用成功,   停止处理.
IF   apphand <> 0
WAIT   WINDOW   "不能运行窗口   '我的程序 '   的另一个实例! "
QUIT
ENDIF
MODIFY   WINDOW   screen   TITLE   "我的程序 "   
WAIT   WINDOW   "窗口   '我的程序 '   的第一个实例正在运行. "

首先谢谢上面的几位楼主的回答
请问二楼的，这样的文件代码怎样写？写在哪个部分里？我的启动文件名是：gzgl.exe
在请问四楼的，你这样的代码写在哪里？

[ 本帖最后由 ptyy803 于 2011-7-7 21:14 编辑 ]

寫在隨便一個數據表（DBF）文件中，表頭中有未使用的空間供填寫數據，在那裏寫一些標記，每次啓動時程序自己檢查一下那個標誌在不在，在就是已經啓動過，結束自己。程序正常結束時，把那個標誌清掉。

对六楼有点看法，如果是不正常的退出，就无法自动去除标志，这样就要程序员去到数据表中修改，对程序不正常的退出是经常出现的事，我们编程不让自己的程序捆绑着，程序编好了就得让人家自己操作，不拖尾巴，这样的程序才受大家欢迎，对问题的出现要想的多点才是我们程序员的技术才能。

保證程序不正常退出才是程序員的基本責任，而不是經常不正常退出是常事，那說明程序寫的不好。程序設計基本要求之一是它的健壯性，不崩潰、不經常不正常退出。程序設計有錯誤是正常的，但經常性地遇到不正常退出，那絕對是程序未達到交付使用的標準。Windows經常出藍屏，你指望它崩潰前替你保存數據？經常藍屏的Windows版本，都沒人採用啦，人家用NT或Windows 2000系統，貪圖它沒Windows Me漂亮麽？

[ 本帖最后由 TonyDeng 于 2011-7-9 16:22 编辑 ]

请问四楼的，我把你的这段代码放在主程序的最前面运行的结果还是不行，我用的V6.0 下面是出现的错误图片

設兩個標誌也可以的，正常結束標誌和啓動標誌，組合起來可以判斷狀態。信號燈原理，自己想吧。