找一条用api函数调用可执行文件的命令。会者不难，快来抢分。（可能是delphi的bug）(100分)

seaflyboy · 2001-12-25

我发现用api函数调用delphi编译的exe文件有问题。将exe文件最小化，再用api函数调用 exe文件，并将它放到最前时，这个exe文件不能够最小化了，而调用非delphi编译的exe 文件时，就没有这种问题。请问谁有高招能解决这个问题？ 请实验过了再给我答复。

zw84611 · 2001-12-25

：），给出你的代码。

seaflyboy · 2001-12-25

这是我的程序（打‘//’是我实验过的句子）： procedure TForm1.Button1Click(Sender: TObject); var wnd:hwnd;     s

char; begin   wnd:=findwindow(nil,'接受工程发布通知书');   edit1.Text:=inttostr(wnd);   ShowWindow(wnd,SW_MAXIMIZE)   //ShowWindow(wnd,sw_restore)   //SetForegroundWindow(wnd)   //SetWindowPos(Handel_temp, HWND_TOP, 0,0,0,0, SWP_NOMOVE or SWP_NOSIZE);   //SetForegroundWindow(handel_temp);   //sendmessage(handel_temp,wm_syscommand,SC_RESTORE,0);   //postmessage(handel_temp,WM_SHOWWINDOW,0,SW_PARENTCLOSING); end;

yzhshi · 2001-12-25

Delphi里面，它的Application和Form分别是两个Handle，你FindWindow查找的是哪一个Handle， 如果两个相同，最好都实验一下。

seaflyboy · 2001-12-25

to yzhshi: ???您说的我不太懂，我用findwindow找的是标题为'接受工程发布通知书'的窗口。您能说 的明白点么？或给我点代码看看！

yzhshi · 2001-12-25

你看见的窗体的Caption和按Ctrl+Tab显示的Caption可能不是一个，一个是Application的， 一个是Form的。 我现在挺忙的，你先自己实验一下吧。OK？

dcsdcs · 2001-12-25

ShowWindow(wnd,SW_MAXIMIZE) 就发送一个最大话的message 没有问题， ShowWindow(wnd,SW_MAXIMIZE)//最大话   //ShowWindow(wnd,sw_restore)//恢复   //SetForegroundWindow(wnd)   //SetWindowPos(Handel_temp, HWND_TOP, 0,0,0,0, SWP_NOMOVE or SWP_NOSIZE);//设置form信息   //SetForegroundWindow(handel_temp);   //sendmessage(handel_temp,wm_syscommand,SC_RESTORE,0);   //postmessage(handel_temp,WM_SHOWWINDOW,0,SW_PARENTCLOSING);

萧月禾 · 2001-12-25

to seaflyboy: 请问你是不是也在作招投标的项目呀？[

]

seaflyboy · 2001-12-25

to yzhshi

k,我先试试。 to dcsdcs:我试过了，还是老问题。

seaflyboy · 2001-12-25

to 萧月禾:是呀！

hawkfly · 2001-12-25

我原来用BCB做程序时也有这个问题，后来经过实验，用下面这段代码可以正常工作， 不过我没有对delphi做测试。 Title为程序窗口的名称，ExeName为程序名。 void RunProgram(char * Title,char * ExeName,char *param) {     HWND hd=NULL;     hd=FindWindow(NULL,Title);     AnsiString Param;     Param=param;     if(hd!=NULL)     {         SendMessage(hd,WM_SYSCOMMAND,SC_RESTORE,NULL);         BringWindowToTop(hd);     }     else         ShellExecute(Handle,NULL,ExeName,Param.c_str(),SoftPath.c_str(),SW_SHOWNORMAL); }

yzhshi · 2001-12-25

记得最近在DFW上讨论那个Application本身也是一个窗体的问题，估计问题就出在这里。 这可能是Delphi特有的呀。[

]

seaflyboy · 2001-12-25

to hawkfly:谢谢！这些命令我都试过，除了调用delphi编译的exe文件有问题，调用其他的 exe文件没什么问题。

seaflyboy · 2001-12-25

问题解决了，多谢yzhshi的提示。

seaflyboy · 2001-12-25

多人接受答案了。

找一条用api函数调用可执行文件的命令。会者不难，快来抢分。（可能是delphi的bug）(100分)

seaflyboy

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

seaflyboy

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

seaflyboy

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

dcsdcs

Unregistered / Unconfirmed

萧月禾

Unregistered / Unconfirmed

seaflyboy

Unregistered / Unconfirmed

seaflyboy

Unregistered / Unconfirmed

hawkfly

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

seaflyboy

Unregistered / Unconfirmed

seaflyboy

Unregistered / Unconfirmed

seaflyboy

Unregistered / Unconfirmed

Similar threads