OpenProcess返回0

[byyouxin]

procedure TForm1.Button2Click(Sender: TObject);
var
    a:integer;
   c, pid:longword;
begin
    a:=findwindow('mingup',0);
    pid:=GetWindowThreadProcessId(a);
    c:=OpenProcess(PROCESS_ALL_ACCESS, False,pid);

    Edit2.Text:=inttostr(c);
   if (c=0) then begin
   showmessage('呀么跌') ;
   end;

end;

end.

[brightyang]

showmessage('呀么跌') ;

[kfcoffe]

[Quote=引用 1 楼 brightyang 的回复:]
showmessage('呀么跌') ;

[/Quote]
呵呵

[gyk120]

findwindow不怎么靠谱，你可以用进程快照查找进程，然后通过进程findwindow

[dd_zhouqian]

所有的函数返回值，都做判断

[柯本]

程序有两处问题：
1.a:=findwindow('mingup',0);
前一个应该是类名，你的类名为mingup吗？如果是窗口名，应该是a:=findwindow(nil,'mingup');
2.pid:=GetWindowThreadProcessId(a);
GetWindowThreadProcessId返回的是thread ID，而非PID，要得到PID正确的是：
tid:=GetWindowThreadProcessId(a,pid);
我的程序可以正确运行：
var
a:integer;
c, tid,pid:longword;
begin
a:=findwindow(nil,'计算器');

tid:=GetWindowThreadProcessId(a,pid);
Edit1.Text:= inttostr(pid) ;
c:=OpenProcess(PROCESS_ALL_ACCESS, false,pid);

Edit2.Text:=inttostr(c);
if (c=0) then begin
showmessage('呀么跌') ;
end;

end;

[byyouxin]

[Quote=引用 5 楼 keiy 的回复:]
程序有两处问题：
1.a:=findwindow('mingup',0);
前一个应该是类名，你的类名为mingup吗？如果是窗口名，应该是a:=findwindow(nil,'mingup');
2.pid:=GetWindowThreadProcessId(a);
GetWindowThreadProcessId返回的是thread ID，而非PID，要得到PID正确的是：
tid:=GetWindowThreadProcessId(a,pid);
我的程序可以正确运行：
var
    a:integer;
  c, tid,pid:longword;
begin
    a:=findwindow(nil,'计算器');

    tid:=GetWindowThreadProcessId(a,pid);
      Edit1.Text:= inttostr(pid) ;
    c:=OpenProcess(PROCESS_ALL_ACCESS, false,pid);

    Edit2.Text:=inttostr(c);
  if (c=0) then begin
  showmessage('呀么跌') ;
  end;

end;
[/Quote]
谢谢 原来如此!