代码是直接复制过来的,忘了修改
看下面的
程序代码:
看下面的
程序代码:Clear
Declare integer CreateToolhelp32Snapshot in win32api integer,integer
Declare integer Process32First in win32api integer,string @
Declare integer Process32Next in win32api integer,string @
Declare integer CloseHandle in win32api integer
CLEAR
lnHand = 0
lnHand = CreateToolhelp32Snapshot(3,0)
If lnHand>0
lctitle=SPACE(256)
If Process32First(lnHand,@lctitle) > 0
tln = 0
Do while Process32Next(lnHand,@lctitle)> 0
m.lnval=SUBSTR(lctitle,37,256)
m.lnval=left(m.lnval,AT(CHR(0),m.lnval) - 1)
If Lower(m.lnval) == 'excel.exe'
tln = tln + 1
If tln == 1
Exit
Endif
Endif
Enddo
If tln == 1
Messagebox("Excel进程正在运行",4096,"Message")
CloseHandle(lnHand)
Clear Dlls
Endif
Endif
CloseHandle(lnHand)
Endif
个性太多,无法显示






