Delphi 我想获得进程句柄,怎么每次都变化

Posted 2023-03-28

var
id : HWnd;
pid : Thandle;
begin
id := FindWindow(nil,pchar(Edit1.Text)); //获取窗口句柄

if id > 0 then
begin
GetWindowThreadProcessId(id,pid); //获取进程PID
pp := OpenProcess(PROCESS_ALL_ACCESS,false,pid); //获取进程句柄
label8.Caption := '连接状态 = 连接成功';
label6.Caption := inttostr(id);
label5.Caption := inttostr(pid);
label7.Caption := inttostr(pp);
end;

if id = 0 then
begin
label8.Caption := '连接状态 = 连接失败';
label3.Caption := '0';

Timer1.Enabled := false;
end;
end;

每次这个OpenProcess(PROCESS_ALL_ACCESS,false,pid); 返回值都是变来变去的
怎么回事

参考技术A openprocess的肯定每次返回都不同的 要不何必每次都openprocess 参考技术B 每次创建 进程ID都是会变的