一般情况下，我们创建其他进程时不能将
所创建进程的窗体以模式窗体方式运行，
要么就是调用进程完全死掉等待所调用的
进程执行完毕，要么就是非模式窗口。
下面的程序实现了让被调用的进程以模式
窗口运行。

procedure TformMain.Button1Click(Sender:TObject);
var
F:TForm;
B:TButton;
begin
F:=TForm.Create(Self);
try
B:=TButton.Create(F);
B.Parent:=F;
B.OnClick:=CreateProcessForm;
B.ModalResult:=mrCancel;
F.Left:=Screen.Width;
F.Top:=Screen.Height; //将窗口隐藏起来
F.Width:=0;
F.Height:=0;
PostMessage(B.Handle,BM_Click,0,0);
F.ShowModal; //调用模式窗口，由此窗口来创建进程，并等待进程结束。
finally
F.Free;
end;
end;

procedure TformMain.CreateProcessForm(Sender:TObject);
var
StartUpInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
seProcess, seThread: TSecurityAttributes;
S:String;
exCode:DWORD;
begin
S:=ExtractFilePath(Application.ExeName)+'prjBoardLinker.exe';
if not(FileExists(S))then raise Exception.Create('找不到执行文件'+S);
FillChar(StartUpInfo,SizeOf(StartUpInfo),0);
FillChar(seProcess,SizeOf(seProcess),0);
FillChar(seThread,SizeOf(seThread),0);
StartUpInfo.dwFlags:=STARTF_USESHOWWINDOW ;
seProcess.nLength:=sizeof(seProcess);
seProcess.lpSecurityDescriptor:=nil;
seProcess.bInheritHandle:=true;
seThread.nLength:=sizeof(seThread);
seThread.lpSecurityDescriptor:=nil;
seThread.bInheritHandle:=true;
if not(CreateProcess(nil,
PChar(S),
@seProcess,
@seThread,
False,
0,
nil,
nil,
StartUpInfo,
ProcessInfo))
then raise Exception.Create('创建进程'+S+'失败');
GetExitCodeProcess(ProcessInfo.hProcess,exCode);

while(exCode=STILL_ACTIVE) do
begin
Sleep(10);
Application.ProcessMessages;
GetExitCodeProcess(ProcessInfo.hProcess,exCode);
end;
end;