Minizar tela do discador 3G da Vivo
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
Curtidas 0
Respostas
Eriley Barbosa
12/08/2010
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
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
GOSTEI 0
William Benatti
12/08/2010
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?
GOSTEI 0
Eriley Barbosa
12/08/2010
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
begin
WinExec('calc.exe', sw_normal);
Windows.SetParent(FindWindow(nil, 'Calculadora'), Form1.handle );
end; Atenciosamente Eriley
GOSTEI 0