ShellExecute

[Volkogriz]

Доброе время суток!!!
Есть вот это:

procedure TForm1.Button1Click(Sender: TObject);
begin
with TRunProcess.Create('install_flash_player_active_x.exe') do
begin
    AutoFree := True;
    OnProcessBegin := ProcBegin;
    OnProcessEnd := ProcEnd;
    Execute;
  end;
end;


procedure TForm1.ProcBegin(Sender: TObject);
begin
PB.Marquee := True;
Button1.Enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Top := 0;
Left := (Screen.Width - Width) div 2;
end;

procedure TForm1.ProcEnd(Sender: TObject);
begin
Button1.Enabled:=true;
PB.Marquee := False;
end;
end.

Нужно чтоб во время выполнения процесса саму программу создавшую процесс небыло видно как здесь:

ShellExecute(Handle, nil, 'install_flash_player_active_x.exe', '/c'+' /S /Q', nil, SW_SHOW);

Надеюсь поймёте просто по точьней объяснить не получается!!!
За рание блогодарю!
С уважением Volkogriz!!!

[Stilet]

ProgressBar.Create('install_flash_p layer_active_x. exe')

Это что за компонент?

небыло видно как здесь

Ну наверное ж ... /S /Q', nil, SW_HIDE);

[Volkogriz]

Извеняюсь Щибка не ProgressBar а RunProcess !

[Stilet]

Ых, а ты не можеш сюда не DCU а PAS прикрепить, ато у мя DCU не хочет...

[Volkogriz]

Держи полностью исходник!!!
С откомп. exe !!!
А ты положил RunProcess.dcu в папку с проэктом???