openprocess

 

用於打開指定的進程對象。

OpenProcess(
  dwDesiredAccess: DWORD;  
  bInheritHandle: BOOL;    
  dwProcessId: DWORD       
): THandle;                

PROCESS_TERMINATE         = $; 
PROCESS_CREATE_THREAD     = $; 
PROCESS_VM_OPERATION      = $; 
PROCESS_VM_READ           = $; 
PROCESS_VM_WRITE          = $; 
PROCESS_DUP_HANDLE        = $; 
PROCESS_CREATE_PROCESS    = $; 
PROCESS_SET_QUOTA         = $; 
PROCESS_SET_INFORMATION   = $; 
PROCESS_QUERY_INFORMATION = $; 
SYNCHRONIZE               = $; 
PROCESS_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED  SYNCHRONIZE  $FFF);  

GetExitCodeProcess(
  hProcess: THandle;    
   lpExitCode: DWORD 
): BOOL;                

TerminateProcess(
  hProcess: THandle; 
  uExitCode: UINT    
): BOOL;             



 Unit1;




  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;


  TForm1 = (TForm)
    Button1: TButton;
     Button1Click(Sender: TObject);
  ;


  Form1: TForm1;





 TForm1Button1Click(Sender: TObject);

  id: Cardinal;
  wh: HWND;
  ph: THandle;
  ExitCode: DWORD;

  wh := FindWindow(, );
  GetWindowThreadProcessId(wh, id);
  ph := OpenProcess(PROCESS_TERMINATE, False, id);
  GetExitCodeProcess(ph, ExitCode);
  TerminateProcess(ph, ExitCode);
;

.

提示: #32770 是提前知道的類名, 獲取方法可參見:
http://www.cnblogs.com/del/archive/2008/03/09/1097942.html

GetWindowThreadProcessId 函數請參見: http://www.cnblogs.com/del/archive/2008/03/10/1098475.html