Subject Re: Two problems/questions with GBAK
Author csswa
This delphi procedure allows you to execute a program and to wait
until it's finished.

Andrew Ferguson
-- If they ask, tell them it was Andrew, then run.

function WinExecAndWait32(FileName: string; Visibility: Integer):
zAppName: array[0..512] of Char;
zCurDir: array[0..255] of Char;
WorkDir: string;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
StrPCopy(zAppName, FileName);
GetDir(0, WorkDir);
StrPCopy(zCurDir, WorkDir);
FillChar(StartupInfo, Sizeof(StartupInfo), #0);
StartupInfo.cb := Sizeof(StartupInfo);

StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,
zAppName, { pointer to command line string }
nil, { pointer to process security attributes }
nil, { pointer to thread security attributes }
false, { handle inheritance flag }
CREATE_NEW_CONSOLE or { creation flags }
nil, { pointer to new environment block }
nil, { pointer to current directory name }
StartupInfo, { pointer to STARTUPINFO }
ProcessInfo) then
Result := -1 { pointer to PROCESS_INF }
WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess, Result);

--- In ib-support@y..., Joe Martinez <joe@j...> wrote:
> > I'm not using the return value from GBak. I ask for help with this
> > ERRORLEVEL code too, but - sorry - I don't remember what where
the results.
> This would be ideal. If I could just get a YES/NO answer if it was
> that would be good.
> > Also I had some problems to get an ASCII file with the error
messages, but
> > Carlos Macao give me this help. If you want all error messages in
a file I
> > can give this to you.
> Yes, I would appreciate this greatly! Also, if you don't mind
sharing your
> parsing logic, it would help a lot.
> Another question:
> Are you using WinExec to call GBAK? I have the problem that
WinExec returns
> immediately after it calls GBAK, even though GBAK is still
running. How do you
> know when GBAK is done?
> Thanks,
> Joe