create simple GUI apt-get with output and progress bar

[steve1986]

Hi I have question, how to create simple GUI apt-get output and with progress bar? and only use one button
how to modify this code?

procedure TForm1.Button1Click(Sender: TObject);
var process : tprocess;
begin
   Process := TProcess.Create(nil);
  Process.CommandLine := 'apt-get install -y gedit';
  Process.Options := [poUsePipes];

  Process.Execute;

  while Process.Running do
  Memo1.Lines.LoadFromStream(Process.Output);
end;                             
thank for your answer

[itmitica]

You could pipe to debconf-apt-progress.

Code: Pascal  [Select][+][-]

1. Process.CommandLine := '/bin/sh -c sudo apt-get install -y gedit | debconf-apt-progress';

I'm not sure what the output looks like though.


On the other hand, you could show a undefined progress bar, with an animation, for the duration.

[Leledumbo]

how to modify this code?

By learning what it does and exploit TProcess capability accordingly.

[steve1986]

Thank your answer, it is greats.  but a I want GUI progress bar not TUI progressbar

[Ñuño_Martínez]

Thank your answer, it is greats.  but a I want GUI progress bar not TUI progressbar

I think Leledumbo's is the answer you're looking for.