进程模块信息

最新推荐文章于 2022-10-09 16:47:16 发布

seagull327

最新推荐文章于 2022-10-09 16:47:16 发布

阅读量687

点赞数

分类专栏：进程模块线程 ListView 文章标签： module integer action string

本文链接：https://blog.csdn.net/haiou327/article/details/6684077

版权

进程模块线程同时被 2 个专栏收录

21 篇文章 1 订阅

订阅专栏

ListView

12 篇文章 0 订阅

订阅专栏

 uses Tlhelp32;
var
  modList: TStrings;

procedure ModuleEnum(processid: Dword;Var ProcList: TstringList);
var
  ModuleList: Thandle;
  pm: TMODULEENTRY32;
  isFind:Boolean;
begin
  ModuleList := CreateToolhelp32Snapshot
    (TH32CS_SNAPMODULE, processID);
  pm.dwSize := sizeof(TMODULEENTRY32);
  isFind:=module32first(ModuleList, pm);
  while isFind do
  begin
    ProcList.Add(pm.szexepath);
    isFind:=module32next(ModuleList, pm)
  end;
  closehandle(ModuleList);
end;

procedure TForm1.cbb1Click(Sender: TObject);
var
  ID, ProcID: DWORD;
  i: Integer;
  lt: TStrings;
  itm: TListItem;
begin
  lv1.Clear;
  try
    Lt := TStringList.Create;
    Lt.Clear;
    ID := cbb1.ItemIndex;
    ProcID := StrToInt(modList.Strings[id]);
    ModuleEnum(ProcID,Lt);
    for i := 0 to Lt.Count - 1 do
    begin
      itm := lv1.Items.Add;
      itm.Caption := lt.Strings[i];
    end;
  finally
    lt.Free;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  modList.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Thand32: THandle;
  procstruct: TProcessEntry32;
  Pname: string;
  pid: DWORD;
  finded: boolean;
begin
  try
    Thand32 := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    procstruct.dwSize := SizeOf(procstruct);
    finded := Process32First(Thand32, procstruct);
    modList := TStringList.Create;
    modList.Clear;
    while finded do
    begin
      pname := procstruct.szExeFile;
      cbb1.Items.Add(pname);
      Pid := procstruct.th32ProcessID;
      modList.Add(IntToStr(Pid));
      finded := Process32Next(Thand32, procstruct);
    end;
    cbb1.ItemIndex := 0;
  finally
    CloseHandle(Thand32);
  end;