How command line prog with progress bar in form....

[azrael11]

How can i do this :
I have a function that runs and capture the a command line prog....

here is the function

function RunCaptured(const _dirName, _exeName, _cmdLine, filename: string): Boolean;
var
  start: TStartupInfo;
  procInfo: TProcessInformation;
  tmpName: string;
  tmp: Windows.THandle;
  tmpSec: TSecurityAttributes;
  res: TStringList;
  return: Cardinal;
begin
  Result := False;
  try
    tmpName := 'Test.tmp';
    FillChar(tmpSec, SizeOf(tmpSec), #0);
    tmpSec.nLength := SizeOf(tmpSec);
    tmpSec.bInheritHandle := True;
    tmp := Windows.CreateFile(PChar(tmpName),
    Generic_Write, File_Share_Write,
    @tmpSec, Create_Always, File_Attribute_Normal, 0);
    try
    FillChar(start, SizeOf(start), #0);
    start.cb := SizeOf(start);
    start.hStdOutput := tmp;
    start.dwFlags := StartF_UseStdHandles or StartF_UseShowWindow;
    start.wShowWindow := SW_HIDE;
    // Start The Program
    if CreateProcess(nil, PChar(_exeName + ' ' + _cmdLine), nil, nil, True,
      0, nil, PChar(_dirName), start, procInfo) then
      begin
        Form1.pb1.Position := procInfo.hProcess;
        Application.ProcessMessages;
        SetPriorityClass(procInfo.hProcess, Idle_Priority_Class);
        WaitForSingleObject(procInfo.hProcess, Infinite);
        GetExitCodeProcess(procInfo.hProcess, return);
        Result := (return = 0);
        CloseHandle(procInfo.hThread);
        CloseHandle(procInfo.hProcess);
        Windows.CloseHandle(tmp);
        // Add the output
        res := TStringList.Create;
        try
          res.LoadFromFile(tmpName);
        finally
          res.Free;
        end;
        Windows.CopyFile(Pchar(tmpName),pchar(filename),FALSE);
        Windows.DeleteFile(PChar(tmpName));
      end
    else
      begin
       Application.MessageBox(PChar(SysErrorMessage(GetLastError())),
        'RunCaptured Error', MB_OK);
      end;
    except
      Windows.CloseHandle(tmp);
      Windows.DeleteFile(PChar(tmpName));
      raise;
    end;
  finally
  end;
end;

Now i want to put a progress bar in form and get the current position of the captured prog...
How can i do that....

Please help....

[User137]

I don't know what you mean. Say you use RunCaptured() to start a game. How could the program predict how long he is going to play it? If it is some self made application you can print out some "tags" that you can use to synchronize with progressbar. Maybe App->App communication with system messages, sockets or files...

[azrael11]

I don't know what you mean. Say you use RunCaptured() to start a game. How could the program predict how long he is going to play it? If it is some self made application you can print out some "tags" that you can use to synchronize with progressbar. Maybe App->App communication with system messages, sockets or files...

First thanks for the reply....
No i mean that i run a command line exe that generate big text,xml,doc and other files....
I want to know where in progress bar the progress of this generation is....

example -> RunCaptured('d','program.exe','-createxml','bigxmlfile.xml');
i execute this and i wait until its done...
I simple want to know the progress of this execution....

Thanks again....

[Carver413]

if you know the number of lines to be processed and your current position then you could use something like this

ProgressBar.Position:= 100 * currentline div totallines;

[azrael11]

if you know the number of lines to be processed and your current position then you could use something like this

ProgressBar.Position:= 100 * currentline div totallines;

That is the problem
How can i know what the command line program reads and how can i count a command line execution file the last number so i can use it...

[User137]

That is the problem
How can i know what the command line program reads and how can i count a command line execution file the last number so i can use it...

program.exe has to tell your program what its progress is, like i mentioned in my last post. Whatever method you pick it will slow down the progress somewhat.

I'd propably go with broadcasted Windows messages. You can read more details from msdn:
SendMessage: http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
GetMessage: http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

General helpful link:
http://www.google.fi/#sclient=psy&hl...cd37774a490ead

If your program.exe is an application you haven't made yourself there is simply no way. Well... only hacking in it with dll injection or something and reading its memory space, but lets ignore that

[azrael11]

program.exe has to tell your program what its progress is, like i mentioned in my last post. Whatever method you pick it will slow down the progress somewhat.

I'd propably go with broadcasted Windows messages. You can read more details from msdn:
SendMessage: http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
GetMessage: http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

General helpful link:
http://www.google.fi/#sclient=psy&hl...cd37774a490ead

Thanks my friend a lot of read....

If your program.exe is an application you haven't made yourself there is simply no way. Well... only hacking in it with dll injection or something and reading its memory space, but lets ignore that

Hmmmm.... let me think...