|
01.11.2004, 09:19
#32762552
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
Как вариант:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
* ___________________________
PARAMETERS cNAME_PROCESS
#define TH32CS_SNAPPROCESS 2
#define MAX_PATH 260
DECLARE INTEGER CreateToolhelp32Snapshot IN WIN32API INTEGER,INTEGER
DECLARE SHORT CloseHandle IN WIN32API INTEGER
DECLARE SHORT Process32First IN WIN32API INTEGER, STRING
DECLARE SHORT Process32Next IN WIN32API INTEGER, STRING
local proc,hSnap,str1,nCOUNT_OF_PROCESSES
proc=space( 9 * 4 )+space(MAX_PATH)
nCOUNT_OF_PROCESSES = 0
hSnap=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0 )
if isnull(hSnap) or hSnap= 0
MessageBox("Ошибка при создании снимка системы")
return
endif
if Process32First(hSnap, @proc)> 0
str1=substr(proc, 9 * 4 + 1 , 260 )
str1=left(str1,iif(at(chr( 0 ),str1)> 0 ,at(chr( 0 ),str1)- 1 ,len(str1)))
ProcessID = substr(proc, 2 * 4 + 1 , 4 )
ProcessID = ( ((ASC(SUBST(ProcessID, 4 , 1 ))* 256 ) + ASC(SUBST(ProcessID, 3 , 1 )))* 256 + ASC(SUBST(ProcessID, 2 , 1 )))* 256 + ASC(LEFT(ProcessID, 1 ) )
IF UPPER(ALLTRIM(cNAME_PROCESS))$UPPER(ALLTRIM(STR1))
nCOUNT_OF_PROCESSES = nCOUNT_OF_PROCESSES + 1
ENDIF
do while Process32Next(hSnap, @proc) > 0
str1=substr(proc, 9 * 4 + 1 , 260 )
str1=left(str1,iif(at(chr( 0 ),str1)> 0 ,at(chr( 0 ),str1)- 1 ,len(str1)))
ProcessID = substr(proc, 2 * 4 + 1 , 4 )
ProcessID = ( ((ASC(SUBST(ProcessID, 4 , 1 ))* 256 ) + ASC(SUBST(ProcessID, 3 , 1 )))* 256 + ASC(SUBST(ProcessID, 2 , 1 )))* 256 + ASC(LEFT(ProcessID, 1 ) )
IF UPPER(ALLTRIM(cNAME_PROCESS))$UPPER(ALLTRIM(STR1))
nCOUNT_OF_PROCESSES = nCOUNT_OF_PROCESSES + 1
ENDIF
enddo
endif
CloseHandle(hSnap)
RETURN nCOUNT_OF_PROCESSES
* ___________________________
Пример использования:
1.
2.
3.
IF FIND_PROCESS("REESTR.EXE")> 1
QUIT
ENDIF
С уважением
duШes
....return ThisForm.exGrid1.p_oColumns("COLUMN1").M_AddHeader("header4",4)
|
|
|
