请教如何打开一个外部程序并隐藏，，

Question

我原来打算用 createprocess打开外部程序，用这个函数的参数隐藏，结果发现对于有些程序特别是delphi程序不起作用。。var
  i: Boolean;
  PI: _PROCESS_INFORMATION;
  SI: _STARTUPINFOA;
begin
  fillchar(SI, sizeof(SI), 0);
  SI.cb := sizeof(SI);
  SI.wShowWindow := SW_HIDE;
  SI.dwFlags := STARTF_USESHOWWINDOW;
  i := CreateProcess(nil, PChar('notepad.exe'), nil, nil, FALSE, CREATE_DEFAULT_ERROR_MODE, nil, nil, SI, PI);
  if i = TRUE then showmessage('right');
end;我测试时用的是记事本程序，发现他可以隐藏，但时如果的 regedit.exe就不行了，特别是delphi编的程序，大部分都不行。。请问是什么原因，如果解决

Answer 1

用shellexecute(form1.handle,'open',pchar('name.exe'),'-s','',sw_hide)可以吗？

Answer 2

'-s' 用于regedit可以，不过对于delphi编的程序就不行了。

Answer 3

我自已用一个最笨的方法,就是用crateprocess打开程序以后,用一个循环查找窗口,一找到马上就用setparent将其转到我自己的窗口.