遍历进程并获取进程路径 - 回复 "编程少年" 的问题
2008-12-22 22:48
459 查看
代码文件:
窗体文件:
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 end
相关文章推荐
- Delphi遍历进程并获取进程路径
- 根据窗口句柄获取所在程序路径 - 回复 "Haiwen" 的问题
- 【VB.NET2010】遍历进程,获取进程映像路径
- 通过Hook ZwCreateProcess获取进程全路径(缓存问题解决方案)
- HDFS 读取、写入、遍历目录获取文件全路径、append文件创建或者写入报错问题分析
- Android SD卡路径问题以及如何获取SDCard 内存
- 通过PID获取进程路径的几种方法
- Android SD卡路径问题以及如何获取SDCard 内存
- SD卡路径问题以及如何获取SDCard 内存
- delphi根据进程ID获取进程路径
- C/C++获取进程信息的问题
- C/C++win32获取所有进程路径
- 进程快照(获取进程名称、路径、ID、提权)
- 获取一个窗口的所有子窗口(包括嵌套) - 回复 "asian" 的问题
- 关于jsp中<input type="file">获取路径问文件名,获取完全路径问题
- 使用js获取input file的路径C:\fakepath\问题
- WCF热门问题编程示例(5):WCF服务如何获取客户端在线用户数量?
- WCF热门问题编程示例(5):WCF服务如何获取客户端在线用户数量?
- WCF热门问题编程示例(5):WCF服务如何获取客户端在线用户数量?
- C# 获取Sqlite数据库路径的问题