Fórum Abrir Aplicativo e Aguardar o fechamento..? #260454

procedure RunCommand(Command: String; Wait : Boolean);
var
  {$ifdef MSWINDOWS}  Show : Integer;{$endif}
  ConnectCommand : PChar;
begin
  {$ifdef LINUX}
     if not Wait then
        Command := Command + ´ &´ ;  { & = Rodar em BackGround}
     ConnectCommand := PChar(Command);
     Libc.system(ConnectCommand);
  {$endif}
  {$ifdef MSWINDOWS}
  { IMPLEMENTAR AQUI O CODIGO  WINDOWS PARA ESPERA }
     ConnectCommand := PChar(Command);
     Show := sw_ShowNormal;
     winexec(ConnectCommand, Show);
  {$endif}
end;

 {$ifdef LINUX} Libc, {$endif}
 {$ifdef MSWINDOWS} Windows, {$endif}

{ *************************************************************************** }
{                                                                             }
{ Delphi and Kylix Cross-Platform Visual Component Library                    }
{                                                                             }
{ Copyright (c) 2000-2002 Borland Software Corporation                        }
{                                                                             }
{ *************************************************************************** }

unit QForms;

{$P+,S-,W-,R-,T-,H+,X+}

interface

uses
{$IFDEF LINUX}
  Xlib,
{$ENDIF}
{$IFDEF MSWINDOWS}
  Windows, Messages,
{$ENDIF}
  Qt, QTypes, SysUtils, Classes, Types, QGraphics, QControls, QMenus,
  QActnList, QStyle, HelpIntfs;

Uma vez eu criei uma rotina , que fazia o seguinte...
O Usuário clicava no botão , para chamar por exemplo a calculadora do delphi... Neste ponto o programa era minimizado e so voltava no estado Normal apos o fechamento da Calculadora

Function VerficarSeAplicaticoEstarRodandoPeloNomeDoExecutavel(Nome:String):Boolean; 
var rId:array[0..999] of DWord; i,NumProc,NumMod:DWord;
    HProc,HMod:THandle; sNome:String; 
    Tamanho, Count:Integer; 
    sNomeTratado:String; 
begin 
  result:=False; 
  SetLength(sNome, 256); 
// Aqui vc pega os IDs dos processos em execução 
  EnumProcesses(@rId[0], 4000, NumProc);

// Aqui vc faz um for p/ pegar cada processo 
  for i := 0 to NumProc div 4 do 
  begin 
// Aqui vc seleciona o processo 
    HProc := OpenProcess(Process_Query_Information or Process_VM_Read, FALSE, rId[i]); 
    if HProc = 0 then 
      Continue; 
// Aqui vc pega os módulos do processo 
// Como vc só quer o nome do programa, então será sempre o primeiro 
    EnumProcessModules(HProc, @HMod, 4, NumMod); 
// Aqui vc pega o nome do módulo; como é o primeiro, é o nome do programa 
    GetModuleBaseName(HProc, HMod, @sNome[1], 256); 
    sNomeTratado := trim(sNome); 
    Tamanho:=Length(SnomeTratado); 
     Count:=1; 
     While Count <= Tamanho do 
       begin 
         if SnomeTratado[Count]= ´´ Then 
           Break; 
        count:=Count+1; 
       end; 
     sNomeTratado:=Copy(SnomeTratado,1,Count-1); 
    if AnsiUpperCase(sNomeTratado)=AnsiUpperCase(Nome) Then 
      Result:=True; 
// Aqui vc libera o handle do processo selecionado 
    CloseHandle(HProc); 
  end; 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 WinExec(´C:\Windows\System32\Calc.exe´,SW_ShowNormal);
//Escondo a aplicação
 Form1.Hide;
//Habilito um componente Timer com intervalo a seu gosto..
//Na epoca fiz c0m Intervalo 10 = que é o mesmo que  1s /100
 Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
 if not(VerficarSeAplicaticoEstarRodandoPeloNomeDoExecutavel(´Calc.exe´)) then
   begin
     Timer1.enabled:=False;
     Form1.Show;
     Form1.FormStyle := fsStayOnTop;
   end;
end;