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

https://wenda.so.com/q/1371103187060000?src=140

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

轉身幕luO12级分类：编程开发被浏览83次2013.06.12

检举

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); 返回值都是变来变去的
怎么回事

满意答案

oiefs7577643

采纳率：54%12级 2013.06.13

openprocess的肯定每次返回都不同的 要不何必每次都openprocess