Delphi如何根据进程名获取进程pid？

zzyhost 2014-11-15 04:18:51

用CreateToolhelp32Snapshot快照的办法太慢了，有无其他办法？

...全文

369 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

pathletboy 2014-11-15

打赏
举报

回复

wmi可以，但是也得靠枚举。

delphi通过pid获取进程路径

根据进程ID号，获取进程的用户名，包括系统用户名，系统登录这用户名，LOCALSERVICE NETWORKSERVICE 都可以获取到

可以根据进程名获取进程内存或者杀掉该进程

PID获取进程用户名本人精心收集的VB源码,绝对实用

获取正在运行进程的完整路径 function EnabledDebugPrivilege(const bEnabled: Boolean): Boolean; var hToken: THandle; tp: TOKEN_PRIVILEGES; a: DWORD; const SE_DEBUG_NAME = 'SeDebugPrivilege'; begin Result := False; if (OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES, hToken)) then begin tp.PrivilegeCount := 1; LookupPrivilegeValue(nil, SE_DEBUG_NAME, tp.Privileges[0].Luid); if bEnabled then tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED else tp.Privileges[0].Attributes := 0; a := 0; AdjustTokenPrivileges(hToken, False, tp, SizeOf(tp), nil, a); Result := GetLastError = ERROR_SUCCESS; CloseHandle(hToken); end; end;

语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章