Fórum Minizar tela do discador 3G da Vivo #383469

Só consegui abrir um exe e minimiza-lo, veja se te ajuda:   procedure ExecutaComando(Comando: string);
var
  SI: TStartupInfo;
  PI: TProcessInformation;
begin
  FillChar(SI, SizeOf(SI), 0);
  SI.cb := SizeOf(StartupInfo);
  SI.dwFlags := STARTF_USESHOWWINDOW;
  SI.wShowWindow := SW_MINIMIZE;
  if CreateProcess(nil, PChar(Comando), nil, nil, False, NORMAL_PRIORITY_CLASS,
           nil, nil, SI, PI) then
        WaitForSingleObject(PI.hProcess, INFINITE);
end; procedure TForm1.Button1Click(Sender: TObject);
begin
  ExecutaComando('C:\Windows\System32\notepad.exe');
end;   Atenciosamente   Eriley

Olá Eriley, obrigado pela informação, porém neste caso não funcionou. Tem alguma coisa específica nesse aplicativo da VIVO que impede de ser minimizado pelas vias normais.   Alguma outra sugestão?

Crie um formulário e altere sua propriedade WindowState para wsMinimized, no onshow digite o código abaixo:  procedure TForm1.FormShow(Sender: TObject);
begin
  WinExec('calc.exe', sw_normal);
  Windows.SetParent(FindWindow(nil, 'Calculadora'), Form1.handle );
end;   Atenciosamente   Eriley