我要写一个能监视并杀掉指定游戏进程的程序,请问该怎么写?

解决方案 »

  1.   

    系统环境是win2000 professional
      

  2.   

    帮你自动关闭记事本(notepad.exe)
    在窗体上放一个定时器uses TLHelp32;
    procedure TForm1.Timer1Timer(Sender: TObject);
    var
      vSnap: THandle;
      vProcessEntery: TProcessEntry32;
      vBuffer: array[0..MAX_PATH] of Char;
      vHandle: THandle;begin
      vSnap := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
      try
        if vSnap < 0 then Exit;
        vProcessEntery.dwSize := SizeOf(vProcessEntery);    if Process32First(vSnap, vProcessEntery) then
          repeat
            if SameText(vProcessEntery.szExeFile, 'notepad.exe') then
            begin
              vHandle := OpenProcess(PROCESS_TERMINATE,
                False, vProcessEntery.th32ProcessID);
              try
                TerminateProcess(vHandle, 0);
              finally
                CloseHandle(vHandle);
              end;
            end;
          until not Process32next(vSnap, vProcessEntery);
      finally
        CloseHandle(vSnap);
      end;
    end;