プログラムは、<strong>Winapi.Windows</strong>ユニットから<strong>のCreateProcess</strong>機能を使用して

Question

それを呼び出すthatsのプログラムの背後に隠されている、私は別の実行可能ファイルを開封しておりますが、それはそれは呼び出しの実行の最上部に表示されません開いたときそれ。ここで

は、私は一緒に入れ手順です：

procedure Tfrm1.ExecuteProg(Cmdl: String; Pause: Boolean); 
var SI : TStartUpInfo; 
    PI: TProcessInformation; 
begin 
FillChar(SI, Sizeof(SI), 0); 

with SI do 
begin 
    cb := SizeOf(TStartUpInfo); 
    dwFlags := StartF_UseShowWindow; 
    wShowwindow := SW_SHOWNORMAL; 
end; 

if (CreateProcess(nil, PChar(Cmdl), nil, nil, False, 0, nil, nil, SI, PI)) then 
    if Pause then WaitForInputIdle(PI.hProcess, INFINITE); 
end; 

は何か他のものは、私がやってする必要があることはありますか？

ご協力いただきありがとうございます。

Answer 1

上記の手順が呼び出された後、私は次のようでした：

WinHandle := FindWindow(nil, WindowName); 

if WinHandle <> null 
    then SetForegroundWindow(WinHandle);