ShellExecute 调用一个exe，怎么让他 ontop

[episome]

我的from必须设置 ontop属性。
所以ShellExecute调用一个外部exe后，总是看不到那个exe的窗口。
请问有什么办法让他也ontop？

[bxh2dai]

UP

[episome]

感谢up

[Jumpi]

可能要在执行之前将form的ontop取消，然后再设置吧。

[ztenv]

如果那个EXE是你自己写的，调用它时，先把自己的这个form设置不在最顶端，然后发送一个消息或通过两个应用程序共享内存来实现，被你启动的应用程序接到消息后再把自己设置为最顶端，关闭时执行相反的操作，就可以了，

[lovend]

帮你顶啦。

[episome]

Jumpi(Delphiing)
那必须有个检查程序调要完毕的过程阿，光ShellExecute好像不行吧。

[episome]

lianshaohua(永远深爱一个叫“...... ”的好女孩儿!) ：
Exe 不是偶写的，是自解压缩包，里面ppt和视频等乱七八糟东西。

唉，麻烦

[ztenv]

那就不知道该怎么办好了，我目前是没有办法了，如果是自己写的还好，我去年成功处理了这类问题

[episome]

不管了，找个槽跳了算了

[loveWife]

呵呵，楼主给分吧！
var
h: Hwnd;
begin
ShellExecute(handle,'open','Help.chm',nil,nil,SW_ShowNormal);
h := FindWindow(nil,'帮助手册'); //帮助手册是窗口标题
SetWindowPos(h,HWND_TopMost,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
end;

[「已注销」]

同意loveWife(我爱红)。

[g961681]

var
h: Hwnd;
i: Integer;
begin
h := 0;
i := 0;
ShellExecute(handle, 'open', 'English.chm', nil, nil, SW_ShowNormal);
while (h = 0) and (i < 1000) do
begin
Sleep(10);
h := FindWindow('HH Parent', nil); //在Win 2k Pro下，类名是'HH Parent';
Inc(i, 1);
end;
Self.Caption := CurrToStr(h);
SetWindowPos(h, HWND_TopMost, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
end;
根据 loveWife 的方法更改而来，经过测试存在一个问题：
如果打开多个，那么只有一个会置顶！

[syfly739]

帮你UP