代码是直接复制过来的,忘了修改
看下面的
看下面的
程序代码:
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
个性太多,无法显示