HSPTV!掲示板

この記事は投稿者により削除されました。
2008/7/12(Sat) 13:30:28

↓が自分なりに作ってみたスクリプトです。

	#uselib "kernel32.dll"
	#cfunc OpenProcess	"OpenProcess"	int, int, int
	#func CloseHandle	"CloseHandle"	int

	#uselib "psapi.dll"
	#func EnumProcesses			"EnumProcesses"			int, int, int, int
	#func EnumProcessModules	"EnumProcessModules"	int, int, int, int
	#func GetModuleFileNameEx	"GetModuleFileNameExA"	int, int, int, int

	#define PROCESS_QUERY_INFORMATION	0x00000400
	#define PROCESS_VM_READ				0x00000010
	#define PROCESS_ALL_ACCESS			0x001F0FFF

	dim id, 256
	sdim txt, 3200
	sdim file, 260

	EnumProcesses varptr(id), 256*4, varptr(size), 0 : num = size/4

repeat num
    file = ""

	hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, id(cnt))
    if hProcess {
        EnumProcessModules hProcess, varptr(moduleList), 4, varptr(size)
        if stat {
			GetModuleFileNameEx hProcess, modulelist, varptr(file), 256
        }
        CloseHandle hProcess
    }
    txt += ""+id(cnt)+" - "+getpath(file, 8)+"\n"
loop

mesbox txt, 640, 480

昔作ったスクリプトを投下

#include "psapi.as"
#include "kernel32.as"

	sdim mesboxbuf,1024,1

	dim idProc,1024
	dim bufSize,1
	EnumProcesses varptr(idProc),1024*4,varptr(bufSize)

	dim procNum,1
	procNum = bufSize / 4 

	dim procHandle,1
	dim moduleHandle,1024
	sdim procName,1024,1
	repeat procNum
		OpenProcess 0x00000400 | 0x00000010 ,0 ,idProc(cnt)
		procHandle = stat
		if procHandle {
			EnumProcessModules procHandle, varptr(moduleHandle), 1024*4, varptr(bufSize)
			if stat {
				GetModuleBaseName procHandle, moduleHandle(0), varptr(procName), 1024
				if stat > 0{

					mesboxbuf += "("+cnt+")"+procName+"\n"

				}
			}
			CloseHandle procHandle
		}
	loop

	mesbox mesboxbuf,ginfo(26),ginfo(27)

かーなびさん、ありがとうございます。
うまく動きました。


http://oshiete1.goo.ne.jp/qa3043322.html?ans_count_asc=1

質問なのですが、↑の No.１の回答のように、
システムプロセスを取得することはやはり出来ないのでしょうか？