Delphi遍历进程并获取进程路径
来源:互联网 发布:软件实施工程师前景 编辑:程序博客网 时间:2024/05/19 20:59
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;
- Delphi遍历进程并获取进程路径
- delphi根据进程ID获取进程路径
- 提权获取进程路径并获取进程列表
- 【VB.NET2010】遍历进程,获取进程映像路径
- X64进程遍历并获取进程主线程
- Delphi获取进程数
- delphi根据进程PID获取程序所在路径的函数
- 获取进程路径
- 获取进程路径
- 获取进程路径
- 获取进程全路径
- 获取进程全路径
- Delphi监视进程并结束进程
- 遍历并监视,重新启动进程
- C#获取进程、查找并结束进程
- 获取进程列表、名称、路径
- 获取进程当前的路径
- C++ 获取父进程 路径
- spring-boot项目启动失败的一种解决办法:自带的tomcat容器切换成jetty容器
- 海量数据文本相似度解决方式SimHash+分词方法+基于内容推荐算法
- Java:基础练习-循环练习
- jquery 给文本框赋值
- Android ADT代码提示问题
- Delphi遍历进程并获取进程路径
- C++和Matlab混合编程——MATLAB调用c++函数(以svmlight为例)
- Magento清空购物车
- 中国哪些城市最具有房产投资前景?
- ext中使用一组单选按钮控制一些组件的显示隐藏
- 回调函数
- 第二章:2.8 通过Django 在web页面上面输出 “Hello word ”
- Form表单的几种提交方式
- Spring Data Redis(Redis Repositories running on Cluster)