VB程序怎么判断另一个程序是否正在运行?
来源:互联网 发布:linux 搭建php服务器 编辑:程序博客网 时间:2024/04/30 16:31
用FindWindows函数查找
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Form_Load()
Dim WinWnd As Long, Ret As String, RetVal As Long, lpClassName As String
'Ask for a Window title
Ret = InputBox("Enter the exact window title:" + Chr$(13) + Chr$(10) + "Note: must be an exact match")
'Search the window
WinWnd = FindWindow(vbNullString, Ret)
If WinWnd = 0 Then MsgBox "Couldn't find the window ...": Exit Sub
End Sub
Private Declare Function CreateFile Lib "KERNEL32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As String, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "KERNEL32" (ByVal hObject As Long) As Long
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = 3
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const INVALID_HANDLE_VALUE = -1
Private Function IsFileRun(ByVal pFile As String) As Boolean
Dim ret As Long
ret = CreateFile(pFile, GENERIC_READ Or GENERIC_WRITE, 0&, vbNullString, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0&)
IsFileRun = (ret = INVALID_HANDLE_VALUE)
CloseHandle ret
End Function
用法:
if dir("c:/myfile.exe")<>"" and IsFileRun("c:/myfile.exe") then msgbox "文件c:/myfile.exe已运行!"
说明:由于这个函数在文件不存在的情况下也会返回true,所以要先用dir检查一下文件是否存在。
- VB程序怎么判断另一个程序是否正在运行?
- 判断当前程序是否正在运行
- 怎么判断一个程序是否在运行
- Inno Setup安装、卸载时判断是否程序正在运行
- 判断是否有全屏程序正在运行(C#)
- 判断是否有全屏程序正在运行(C#)
- 判断是否有全屏程序正在运行(C#)
- C#判断是否有全屏程序正在运行
- 判断是否有全屏程序正在运行(C#)
- Inno Setup安装、卸载时判断是否程序正在运行
- 调用API判断程序是否正在运行中
- Inno Setup安装、卸载时判断是否程序正在运行
- Inno Setup安装、卸载时判断是否程序正在运行
- Windows根据程序标题查找正在运行的程序的HWND--判断窗口程序是否运行
- 怎么判断一个程序正在运行,不能让程序重复启动
- Android程序是否正在前台运行
- 判断程序是否已经运行
- c#判断程序是否运行
- FTP标准协议整理笔记(二)
- J2EE BS技术开发框架一
- FTP标准协议整理笔记(三)
- FTP标准协议整理笔记(一)
- 使用RSA加密算法对文件进行非对称加密
- VB程序怎么判断另一个程序是否正在运行?
- 重拾blog
- 网页常用小技巧(javascript)
- FTP标准协议整理笔记(四)
- 以前的blog网站
- (转)API在VB中应用之技巧集锦
- MASM32编程如何确保光标移至edit控件末
- DataSource相关事务处理的一个问题
- Debian Networking for Basic and Advanced Users