获取进程信息

Question

请大家帮忙解决一下在DELPHI中怎样获取本机的进程信息，判断一个进程是否启动如果该进程没有启动请开启。（譬如检测WORD是否启动没有就启动WORD）

Answer 1

uses ShellAPI,TlHelp32;var PE:TProcessEntry32;
    Found:boolean;
    h:THandle;
begin
  h:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
  PE.dwSize:=SizeOf(TProcessEntry32);
  Found:=Process32First(h,PE);
  while Found do
  begin
    if PE.szExeFile='WINWORD.EXE' then Exit; //找到有Word的进程就退出
    Found := Process32Next(h,PE);
  end;
  ShellExecute(Handle,'open','WINWORD.EXE','','',SW_SHOW);//没找到就运行
end;