Fórum como saber se um programa fechou? #319491

function VerificaJanela(classe: string): boolean;
var
 H: THandle;
begin
   result:= false;
   H:= FindWindow(PAnsiChar(classe), nil);
   if H <> 0 then result:= true;
end;

function ExecAndWait(const FileName, Params: ShortString; const WinState: Word): boolean; export; // executa um programa externo e espera ate o mesmo ser encerrado para devolver o controle ao programa
  var
    StartInfo: TStartupInfo;
    ProcInfo: TProcessInformation;
    CmdLine: ShortString;
begin
  { Coloca o nome do arquivo entre aspas, devido a possibilidade de existir espaços nos nomes longos do Windows 9x }
  CmdLine := ´"´ + FileName + ´" ´ + Params;
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  with StartInfo do
    begin
      //cb := SizeOf(SUInfo); //erro aqui
      cb := SizeOf(StartInfo); //essa linha está correta
      dwFlags := STARTF_USESHOWWINDOW;
      wShowWindow := WinState;
    end;
    Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
    { Aguarda o encerramento do programa executado }
    if Result then
      begin
        WaitForSingleObject(ProcInfo.hProcess, INFINITE);
        { Libera os Handles utilizados }
        CloseHandle(ProcInfo.hProcess);
        CloseHandle(ProcInfo.hThread);
      end;
end;

if VerificaJanela(´notepad´) then
  showmessage(´Notepad aberto´);

ExecAndWait(path + ´\MDAC\MDAC_TYP.exe´,´/Q:A /C:"dasetup /Q:D /N"´,SW_HIDE)

function VerificaJanela(titulo: string): boolean; 
var 
 H: THandle; 
begin 
   result:= false; 
   H:= FindWindow(nil, PAnsiChar(titulo)); 
   if H <> 0 then result:= true; 
end;