Delphi6 获得当前进程ID与句柄并终止进程。

R_hythm

于 2014-12-06 09:32:09 发布

阅读量2.3k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： Delphi6 文章标签： delphi PID

本文链接：https://blog.youkuaiyun.com/R_hythm/article/details/41773573

这篇博客详细介绍了如何在Delphi6中获取当前进程的ID和句柄，并演示了如何利用这些信息来终止指定的进程，对于理解和操作进程在Delphi环境中有很好的参考价值。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btnKillHandle: TButton;
    btnKillByPID: TButton;
    lblProcess: TLabel;
    lblPID: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure btnKillHandleClick(Sender: TObject);
    procedure btnKillByPIDClick(Sender: TObject);
  private
    procedure KillProcess(aPID: Cardinal);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  lblProcess.Caption := '当前进程虚拟句柄: ' + IntToStr(GetCurrentProcess);
  lblPID.Caption     := '当前进程 ID: ' + IntToStr(GetCurrentProcessId);
end;

procedure TForm1.btnKillHandleClick(Sender: TObject);
begin
  TerminateProcess(GetCurrentProcess, 0);
end;

procedure TForm1.btnKillByPIDClick(Sender: TObject);
begin
  KillProcess(GetCurrentProcessId);
end;

procedure TForm1.KillProcess(aPID: Cardinal);
var
  tmpHandle: THandle;
begin
  tmpHandle := OpenProcess(PROCESS_TERMINATE, False, aPID);
  if (tmpHandle <> 0) then
    TerminateProcess(tmpHandle,0);
end;


end.