Comando DOS no DELPHI

Question

uso um programa em DOS que roda scripts em um banco de dados firebird, chamado �ibescript�, pore pelo delphi quando fa�o a chamada para rodar o script dessa forma:WinExec(Pchar(�ibescript C:Scriptsc...

Lbcosta · Answer

[quote:dca7526fed=�dbrida�]uso um programa em DOS que roda scripts em um banco de dados firebird, chamado �ibescript�, pore pelo delphi quando fa�o a chamada para rodar o script dessa forma:WinExec(Pchar(�ibescript C:Scriptscript1.sql�), SW_SHOWMINIMIZED);ele roda o script, mas nao espera o processo terminar. Tem alguma forma de fazer isso sem ter esse problema?OBS: J� tentei usar o compoente IBSCRIPT da palheta IBX mas tive problemas com scripts muito grandes.[/quote:dca7526fed]Vc tera que criar um processo que fique esperando o programa chamado terminar a execu��o... vou colocar a fun��o logo abaixoprocedure OpenFile(FileName: String; Param: String = ��; Espera: Boolean = True; Visivel: Boolean = True);var  si: TStartupInfo;  pi: TProcessInformation;  pr: LPTSTR;begin  pr := PChar(FileName + � � + Param);  FillChar(si, SizeOf(TStartupInfo), 0);  si.cb          := SizeOf(TStartupInfo);  si.dwFlags     := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;  if (Visivel) then     si.wShowWindow := SW_NORMAL  else     si.wShowWindow := SW_HIDE;  CreateProcess(nil, pr, nil, nil, false, NORMAL_PRIORITY_CLASS, nil, nil, si, pi);  if (Espera) then     WaitForSingleObject(pi.hProcess, INFINITE);  CloseHandle(pi.hProcess);end;[]s...