菜单问题

Question

AHM2000中有相应的菜单控件，我的主页上有源代码和控件
alin.heha.net

Answer 1

到處都有的coolmenu控件可以做出比win98更花俏的菜單,如需要,我可以把我的系統集成平台發給你(完全類似于win98),但很遺憾,如何控制外調的exe程式也以showmodul的形式完成?我還沒控制好,之前我也發了一份貼子,但無人解決此問題!!不知哪位老兄指點一下.

Answer 2

用createprocess如何，sunrised 

Answer 3

>>如何控制外調的exe程式也以showmodul的形式完成?
什么意思？
》》之前我也發了一份貼子 ？
在哪里？

Answer 4

 我試過用Createprocess,但效果不太理想,以下我把我的原程式送上,望哪位高手指點一下!
另:kxy,我把問題詳細說明一下,希能出手相助!!
  我做了一個完全類于win98的集成平台來替換win98桌面,以實現完全類似于winnt的控制我公司的所有mis系統,但通過集成平台桌面調用word與execl等外部exe時,不能把這些exe的操作界面控制在前台(即開啟外部exe程式后,光標再次移到集成平台時,外調的exe界面卻躲在我的程式后面去了),所以想辦法控制以下問題:
  一:應用程式啟動外調的exe程式(word,execl)后,即光標不能移至該應用程式;
  二:應用程式必須等待外調的exe程式結束后方能激活!現我把我的做法公布(但仍有問題),望高手指點:procedure Tmainform.OpenBtnClick(Sender: TObject);
var
  scommandline:string; 
  lpstartupinfo:Tstartupinfo;
  lpprocessinformation:Tprocessinformation;
  wfind:hwnd;
begin
//在工具條上集成檔案總管;
try
scommandline:='EXPLORER.EXE';
fillchar(lpstartupinfo,sizeof(tstartupinfo),#0);
lpstartupinfo.cb:=sizeof(tstartupinfo);
lpstartupinfo.dwFlags:=startf_useshowwindow;
lpstartupinfo.wShowWindow:=SW_normal;
createprocess(nil,pchar(scommandline),nil,nil,true,create_new_console or
  normal_priority_class,nil,nil,lpstartupinfo,lpprocessinformation); wfind:=lpprocessinformation.hProcess;
waitforsingleobject(wfind,INFINITE);   //等待應用程式關閉;
except
raise;
end;
//terminateprocess(wfind,1);  關閉程式;end;