在程序开头做一个防止重复启动的模块吧

给你一转一个老贴


syzy


中级站友
威望：0 发表于 2002-03-10.20:48:39　　 　　　　　　　　　
--------------------------------------------------------------------------------

a:=baWindowList("APWMainClass","你的程序名"
if LineCount(a)>1 then
Quit(0)
end if
baWindowList是budapi中的函数。
还可以用winapi中的函数，用另外一种方法。这个问题以前讨论过。

在程序流程最开始处添加计算脚本：
Result:=FindWindow("APWMainClass","魔岩工作室"
if Result<>0 then Quit(0)
SetWindowText(WindowHandle,"魔岩工作室"

这样就可以了：
SetWindowText(WindowHandle,"aaa"
result:=FindWindow("APWMainClass","bbb"
if result<>0 then
Quit(0)
end if
SetWindowText(WindowHandle,"bbb"