4892
社区成员
- 全部
- 语言基础/算法/系统设计
- 数据库相关
- 图形处理/多媒体
- 网络通信/分布式开发
- VCL组件开发及应用
- Windows SDK/API
- 问答
ShellExecute 调用一个exe，怎么让他 ontop
我的from必须设置 ontop属性。
所以ShellExecute调用一个外部exe后，总是看不到那个exe的窗口。
请问有什么办法让他也ontop？
所以ShellExecute调用一个外部exe后，总是看不到那个exe的窗口。
请问有什么办法让他也ontop？
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
syfly739 2005-08-04
帮你UP
g961681 2005-07-21
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 的方法更改而来，经过测试存在一个问题：
如果打开多个，那么只有一个会置顶！
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 的方法更改而来，经过测试存在一个问题：
如果打开多个，那么只有一个会置顶！
kkgogo 2005-07-21
同意loveWife(我爱红)。
loveWife 2005-07-21
呵呵，楼主给分吧！
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;
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;
episome 2005-07-21
不管了，找个槽跳了算了
ztenv 2005-07-20
那就不知道该怎么办好了，我目前是没有办法了，如果是自己写的还好，我去年成功处理了这类问题
episome 2005-07-20
lianshaohua(永远深爱一个叫“...... ”的好女孩儿!) ：
Exe 不是偶写的，是自解压缩包，里面ppt和视频等乱七八糟东西。
唉，麻烦
Exe 不是偶写的，是自解压缩包，里面ppt和视频等乱七八糟东西。
唉，麻烦
episome 2005-07-20
Jumpi(Delphiing)
那必须有个检查程序调要完毕的过程阿，光ShellExecute好像不行吧。
那必须有个检查程序调要完毕的过程阿，光ShellExecute好像不行吧。
lovend 2005-07-20
帮你顶啦。
ztenv 2005-07-20
如果那个EXE是你自己写的，调用它时，先把自己的这个form设置不在最顶端，然后发送一个消息或通过两个应用程序共享内存来实现，被你启动的应用程序接到消息后再把自己设置为最顶端，关闭时执行相反的操作，就可以了，
Jumpi 2005-07-20
可能要在执行之前将form的ontop取消，然后再设置吧。
episome 2005-07-20
感谢up
bxh2dai 2005-07-20
UP
ShellExecute调用EXE软键盘 通过函数ShellExecute(this->m_hWnd,"open","SoftBoard.exe",sPath,"",SW_SHOW );调用已经做好的EXE软键盘，该函数也可以打开网页、记事本或其它程序。
labview调用外部应用程序ShellExecute.vi 使用labview2013中文版编辑，调用shell中的ShellExecute实现打开外部应用程序，VI有详细说明，参数如下： int32_t ShellExecuteA(int32_t hwnd, int32_t lpOperation, CStr paramenters, CStr 参数4, CStr directory...
动态加载EXE和DLL 程序中加载了一个DLL文件，但生成的EXE在脱离了DLL文件后仍然可以 单独使用，这是动态加载DLL技术。即：调用资源中的DLL。 此技术的好处：EXE可以使用DLL中的函数，但不会额外增加一 个DLL文件，在使用DLL文件的...
Delphi 7.0 调用外部exe文件的例子源代码.rar Delphi 7.0 调用外部exe文件的例子源代码，通过程序窗口，你可浏览到windows中任意的EXE可执行文件，本程序将调用它并打开它，在Delphi程序中打开外部的EXE程序，相关代码片断先看看： begin dirchar:=''; if ...
ShellExecute函数用法的实例代码 代码如下:#include<windows>#include<stdio>int main(){ //打开记事本 // ShellExecute(NULL, “open”, “notepad.exe”, NULL, NULL, SW_SHOWNORMAL); //使用notepad.exe 打开指定文本,参数不要忘记加’\’ //...
C程序调用ShellExecute函数打开发邮件的OutLook程序 内容索引:VC/C++源码,其它分类,ShellExecute,OutLook,发邮件 C程序调用ShellExecute函数打开发邮件的OutLook程序，编译成功后会生成一个命令提示符可执行程序，打开后显示：确认打开邮件收发程序!(Y/N)，如果选择Y,...
