OpenProcess返回0

2010-01-19 06:05:10 327 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

半桥LLC谐振变换器及同步整流MATLAB仿真（二）接上文，半桥LLC谐振变换器及同步整流MATLAB仿真阅读详情



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.

...全文

从零到一：基于GeneMark-ES/ET的新基因组注释实战指南本文提供了一份基于GeneMark-ES/ET的新基因组注释实战指南。详细介绍了从环境搭建、数据准备到核心运行的全流程，重点解析了ES（从头预测）与ET（结合RNA-Seq证据）两种模式的选择与操作，并分享了Perl模块依赖、并行处理等常见问题的解决方案，帮助生物信息学研究者高效完成基因预测工作。阅读详情

byyouxin

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

byyouxin 2010-01-20

打赏
举报

[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]
谢谢原来如此!

柯本 2010-01-19

打赏
举报

程序有两处问题：
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;