Delphi获取系统当前进程名和进程ID

获取系统当前进程名和进程ID，注意在编写本单元时，应注意引用"TLHelp32"单元"use TLHelp32".<div class="codeText"><div class="codeHead">delphi代码</div><ol class="dp-delphi"> <li class="alt">procedure TForm1.Button1Click(Sender: TObject);   </li> <li class="">var  </li> <li class="alt">  ProcessName : string; //进程名   </li> <li class="">  ProcessID  : integer; //进程表示符   </li> <li class="alt">  i : integer;   </li> <li class="">  ContinueLoop:BOOL;   </li> <li class="alt">  FSnapshotHandle:THandle; //进程快照句柄   </li> <li class="">  FProcessEntry32:TProcessEntry32; //进程入口的结构体信息   </li> <li class="alt">begin  </li> <li class="">  FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); //创建一个进程快照   </li> <li class="alt">  FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);   </li> <li class="">  ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32); //得到系统中第一个进程   </li> <li class="alt">  //循环例举   </li> <li class="">  while ContinueLoop  do  </li> <li class="alt">  begin  </li> <li class="">    ProcessName := FProcessEntry32.szExeFile;   </li> <li class="alt">    ProcessID := FProcessEntry32.th32ProcessID;   </li> <li class="">    Listbox.Items.add('应用程序名 ：'+ProcessName +'#进程ID：'+ inttostr(ProcessID));   </li> <li class="alt">    ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);   </li> <li class="">  end;   </li> <li class="alt">end;  </li></ol></div> <a href="https://samool.com/attachment/39891/" title="fek}k2iwo2$38p8atn}wvp4.jpg"><img src="/attachments/date_200710/14fa579bc46bae2447898dce7a154c4d.jpg" alt="fek}k2iwo2$38p8atn}wvp4.jpg" /></a>

获取系统当前进程名和进程ID，注意在编写本单元时，应注意引用&quot;TLHelp32&quot;单元&quot;use TLHelp32&quot;.<div class="codeText"><div class="codeHead">delphi代码</div><ol class="dp-delphi"> <li class="alt">procedure&nbsp;TForm1.Button1Click(Sender:&nbsp;TObject); &nbsp;&nbsp;</li> <li class="">var&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;ProcessName&nbsp;:&nbsp;string;&nbsp;//进程名 &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;ProcessID&nbsp;&nbsp;:&nbsp;integer;&nbsp;//进程表示符 &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;i&nbsp;:&nbsp;integer; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;ContinueLoop:BOOL; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;FSnapshotHandle:THandle;&nbsp;//进程快照句柄 &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;FProcessEntry32:TProcessEntry32;&nbsp;//进程入口的结构体信息 &nbsp;&nbsp;</li> <li class="alt">begin&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);&nbsp;//创建一个进程快照 &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;FProcessEntry32.dwSize:=Sizeof(FProcessEntry32); &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);&nbsp;//得到系统中第一个进程 &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;//循环例举 &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;while&nbsp;ContinueLoop&nbsp;&nbsp;do&nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;begin&nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;ProcessName&nbsp;:=&nbsp;FProcessEntry32.szExeFile; &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;ProcessID&nbsp;:=&nbsp;FProcessEntry32.th32ProcessID; &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;&nbsp;&nbsp;Listbox.Items.add('应用程序名&nbsp;：'+ProcessName&nbsp;+'#进程ID：'+&nbsp;inttostr(ProcessID)); &nbsp;&nbsp;</li> <li class="alt">&nbsp;&nbsp;&nbsp;&nbsp;ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32); &nbsp;&nbsp;</li> <li class="">&nbsp;&nbsp;end; &nbsp;&nbsp;</li> <li class="alt">end;&nbsp;&nbsp;</li></ol></div> <a href="https://samool.com/attachment/39891/" title="fek}k2iwo2$38p8atn}wvp4.jpg"><img src="/attachments/date_200710/14fa579bc46bae2447898dce7a154c4d.jpg" alt="fek}k2iwo2$38p8atn}wvp4.jpg" style=""></a>