遍历进程并获取进程路径 - 回复 "编程少年" 的问题
2021/5/1 7:25:46
本文主要是介绍遍历进程并获取进程路径 - 回复 "编程少年" 的问题,对大家解决编程问题具有一定的参考价值,需要的程序猿们随着小编来一起学习吧!
遍历进程并获取进程路径 - 回复 "编程少年" 的问题
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses PsAPI; procedure TForm1.Button1Click(Sender: TObject); const n = 512; var IDArr: array[0..n-1] of DWORD; size,i: DWORD; buf: array[0..MAX_PATH] of Char; pHandle: THandle; begin // FillChar(buf, n, #0); {这样可避免乱码} EnumProcesses(@IDArr, n, size); for i := 0 to size div SizeOf(DWORD) - 1 do begin pHandle := OpenProcess(PROCESS_ALL_ACCESS, False, IDArr[i]); GetModuleFileNameEx(pHandle, 0, buf, Length(buf)*SizeOf(buf[0])); CloseHandle(pHandle); Memo1.Lines.Add(buf); end; end; procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Clear; Memo1.Align := alTop; Memo1.ScrollBars := ssBoth; end; end.窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 206 ClientWidth = 447 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 342 Top = 173 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 0 OnClick = Button1Click end object Memo1: TMemo Left = 24 Top = 8 Width = 185 Height = 161 Lines.Strings = ( 'Memo1') TabOrder = 1 end endposted on 2008-12-22 22:48 万一 阅读(5708) 评论(21) 编辑 收藏
这篇关于遍历进程并获取进程路径 - 回复 "编程少年" 的问题的文章就介绍到这儿,希望我们推荐的文章对大家有所帮助,也希望大家多多支持为之网!
- 2024-05-31全网首发第二弹!软考2024年5月《软件设计师》真题+解析+答案!(11-20题)
- 2024-05-31全网首发!软考2024年5月《软件设计师》真题+解析+答案!(21-30题)
- 2024-05-30【Java】百万数据excel导出功能如何实现
- 2024-05-30我们小公司,哪像华为一样,用得上IPD(集成产品开发)?
- 2024-05-30java excel上传--poi
- 2024-05-30安装笔记本应用商店的pycharm,再安排pandas等模块,说是没有打包工具?
- 2024-05-29java11新特性
- 2024-05-29哪些无用敏捷指标正在破坏敏捷转型?
- 2024-05-29鸿蒙原生应用再新丁!新华社 入局鸿蒙
- 2024-05-29设计模式 之 迭代器模式(Iterator)