怎样判断一个异名异目录的文件是否正在执行???

WangTiger 2000-03-11 03:58:00
加精
排除app.PrevInstance方法,因为它指的是同一个文件






先谢谢了!!!
...全文
174 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
iamdan 2001-04-26
  • 打赏
  • 举报
回复
:) 关注
TechnoFantasy 2001-01-18
  • 打赏
  • 举报
回复
代码:
http://www.applevb.com/sourcecode/moudle.zip
这个代码可以获得当前运行的所有程序、模块的名称,你可以根据列表
判断程序是否已经执行
另外一种方法是在某个地方写入信息(文件、注册表),当程序运行写入
再有程序执行时通过注册信息就可以得知已经有程序执行了,另外当现行
程序退出后不要忘记将注册信息改过来(有点象信号灯原理)
www.applevb.com
purpleclouds 2001-01-18
  • 打赏
  • 举报
回复
Public Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
hFile=GetModuleHandle(strFilePath)
if hFile=0 then
msgbox strFilePath & "is not running"
else
msgbox strFilePath & "is running"
end if
WangTiger 2001-01-17
  • 打赏
  • 举报
回复
找api中,友好多函数可以用!
Un1 2000-03-11
  • 打赏
  • 举报
回复
可以通过共享DLL或注册表或文件实现.
Chen_Lin 2000-03-11
  • 打赏
  • 举报
回复
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
nFind = FindWindow(vbNullString, "窗口名")
If nFind <> 0 Then
'Ex. end the program:
SendMessage nFind, WM_CLOSE, 0, 0
...
不知是否有用。
kxy 2000-03-11
  • 打赏
  • 举报
回复
win32下PrevInstance根本没有意义

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧