根据进程processid得到该进程的可执行文件名_Delphi

  • 内容
  • 评论
  • 相关

M 作 者: z_h_q_2000(★龙飞虎★) 2001-06-01 20:06:01 :0 :0    
[回复] [打包] [转贴]  
uses tlhelp32;
procedure TForm1.Button1Click(Sender: TObject);
var
  pe:PROCESSENTRY32;
  me:MODULEENTRY32;
  hp,hm:Thandle;
  b,b1:boolean;

http://www.gaodaima.com/65574.html根据进程processid得到该进程的可执行文件名_Delphi

begin
  hp:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS,0);
  pe.dwSize:=SizeOf(pe);
  b:=Process32First(hp,pe);
  while  b do
  begin
    hm:=CreateToolHelp32SnapShot(TH32CS_SNAPModule,pe.th32ProcessID);
    me.dwSize:=sizeof(ModuleEntry32);
    if Module32First(hm,me) then
    begin
    b1:=Module32First(hm,me);
    while  b1 do
    begin
      if me.th32ModuleID=pe.th32ModuleID then
        listbox1.Items.Add(me.szExePath);
      b1:=Module32Next(hm,me);
    end;
  end;
    b:=Process32Next(hp,pe);
  end;

end;

而在NT系统中由于不支持toolhelp api,故
#include "psapi.hpp"

假使process id是 pid 的话:

HANDLE hProcess = OpenProcess(PROCESS_QUERY_INFORMATION | PROCESS_VM_READ,FALSE,pid);
if( NULL != hProcess )
  {
  HMODULE hMod;
  DWORD cbNeeded;
  if( EnumProcessModules( hProcess, &hMod, sizeof( hMod ), &cbNeeded ) )
    {
    char buf[MAX_PATH+1]="";
    if(GetModuleBaseName( hProcess, hMod,buf,sizeof buf)>0)
      //  
      // buf放的就是名字
      //
    }
  CloseHandle(hProcess);
  }
(注意该程序运行需要psapi.dll,所以要copy到别的机器上运行时需连同该文件一起拷贝。当然如果装了delphi或者c++ builder就不需要了)

欢迎大家阅读《根据进程processid得到该进程的可执行文件名_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 根据进程processid得到该进程的可执行文件名_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注