易语言取系统进程

代码不是很难得，其实你自己思考一下完全可以写出来。

下面我把代码和运行效果发给你，看下是不是你想要的：

————————

版本 2

支持库 eAPI

程序集 窗口程序集1

子程序 _按钮1_被单击

局部变量 进程列表, 进程信息, , "0"

局部变量 n, 整数型

进程列表 ＝ 取系统进程列表 ()

计次循环首 (取数组成员数 (进程列表), n)

列表框1加入项目 (进程列表 [n]进程名称 ＋ “ | ” ＋ 到文本 (进程列表 [n]线程数) ＋ “ | ” ＋ 到文本 (进程列表 [n]进程标识符), n)

计次循环尾 ()

其实这个你预先就要想到，比如这样写：

版本 2

支持库 internet

子程序 __启动窗口_创建完毕

如果真 (取字节集长度 (>

1、如果文件的后缀名是“EXE”或“ICO”或“SCR”，直接用命令提取加入（）；

2、若不是前3种后缀名，要先用命令取文本注册项（）找类型注册项名，再用取文本注册项（）找文件类型名，再用取文本注册项()找文件图标信息，对所取出的信息用逗号“，”分割，前半部分是文件文件路径，后半部分是图标索引，最后再用提取加入（）。

版本 2

子程序 GetProcessPid, 整数型, 公开, 失败返回-1 进程名称取PID

参数 进程名, 文本型

局部变量 hSnapShot, 整数型

局部变量 End, 整数型

局部变量 buffer, PROCESSENTRY32

局部变量 pid, 整数型

pid ＝ -1

hSnapShot ＝ CreateToolhelp32Snapshot (2, 0)

bufferdwSize ＝ 296

End ＝ Process32First2 (hSnapShot, buffer)

判断循环首 (End ≠ 0)

    如果真 (到小写 (到文本 (bufferszExeFile)) ＝ 到小写 (进程名))

        pid ＝ bufferth32ProcessID

        跳出循环 ()

    如果真结束

    End ＝ Process32Next2 (hSnapShot, buffer)

判断循环尾 ()

CloseHandle (hSnapShot)

返回 (pid)

DLL命令 CreateToolhelp32Snapshot, 整数型, "KERNEL32dll", "CreateToolhelp32Snapshot"

    参数 dwFlags, 整数型

    参数 th32ProcessID, 整数型

DLL命令 Process32First2, 整数型, "KERNEL32dll", "Process32First"

    参数 hSnapshot, 整数型

    参数 lppe, PROCESSENTRY32

DLL命令 Process32Next2, 整数型, "KERNEL32dll", "Process32Next"

    参数 hSnapshot, 整数型

    参数 lppe, PROCESSENTRY32

DLL命令 CloseHandle, 整数型, "KERNEL32dll", "CloseHandle"

    参数 hObject, 整数型

数据类型 PROCESSENTRY32

    成员 dwSize, 整数型

    成员 cntUsage, 整数型

    成员 th32ProcessID, 整数型

    成员 th32DefaultHeapID, 整数型

    成员 th32ModuleID, 整数型

    成员 cntThreads, 整数型

    成员 th32ParentProcessID, 整数型

    成员 pcPriClassBase, 整数型

    成员 dwFlags, 整数型

    成员 szExeFile, 字节型, , "256", 如果写成文本型,此处将会被放置一个指针,很显然会出错

当然是新版的啦 我用的是50可以静态编译，你可以去下个511。

你不能编译是因为你的是试用版，必须收费或破解后才能使用。

如果不想花钱买就去找个完美破解补丁吧，百度搜索下就有了！

以上就是关于易语言取系统进程全部的内容，包括:易语言取系统进程、我用易语言做出来一个程序提供给别人用，我出新的版本的时候怎么让旧版本提示有新的版本并且旧版本不能运、易语言取EXE文件图标等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！