GARANTIR DESCONTO

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

12/08/2010

0

Olá,   Gostaria de saber se alguém sabe como faz para fazer minimizar um aplicativo de discado 3G da Vivo. OBS.: Da maneira tradicional, identificando a janela a executando a função de minimizar não está funcionando.   abs!
William Benatti

William Benatti

Responder

Posts

12/08/2010

Eriley Barbosa

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
Responder

Gostei + 0

12/08/2010

William Benatti

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?
Responder

Gostei + 0

12/08/2010

Eriley Barbosa

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
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar