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



											
	    

	