Como Maximizar um programa.

[Pseudalopex 0]

Dei algumas buscas no Forum e achei varias maneiras de fazer isso.

 

Com esse comando abaixo:

ShowWindow(Application.Handle, SW_SHOWMAXIMIZED);

Como faço para determinar o Valor do Application.Handle?

Para colocar 'nomedajanela' por exemplo.

[marcio.theis 3]

Somente não entendi se conseguiu ou não com o exemplo que você colocou, no caso quer maximizar somente uma janela do aplicativo ? Ou qualquer programa... ?

[Pseudalopex 0]

Entao.Funciona simMas apenas com o aplicativo que esta aberto. Ou seja, eu abro o project1 e quando executo o comando ele maximiza o project1. E preciso de um comando que execute o comando de maximizar com outros aplicativos.O comando tem que a partir do project1, poder trabalhar com project2, project3. Eu não consegui adaptar o comando para eu colocar o nome de qual aplicativo que eu quero.

[marcio.theis 3]

Mas você não desenvolveu anteriormente para minimizar outros aplicativo ? Não seria somente mudar ?

[Pseudalopex 0]

Pior que não.

Eu só montei ainda a parte para Abrir, descobir o Handle para poder fechar.

 

PostMessage(FindWindow('nomedajanela', nil), WM_CLOSE,0,0);

Mas não funcionou para maximizar, Minimizar, restaurar...

Não consegui adaptar não.

[marcio.theis 3]

Tente algo do tipo com a calculadora:

 

procedure TForm1.BitBtn1Click(Sender: TObject);var	janela: HWND;beginjanela:=FindWindow(nil,'Calculadora');SetForegroundWindow(janela);SetActiveWindow(janela);GetTopWindow(janela);end;

[Pseudalopex 0]

Eu entendo os comandos.

 

Mas estou me batendo na conversão das variáveis.

O código deu certo mas eu nao to conseguindo adptar ele para outros comando.

Estou apanhando para troca de HWND para String e Vice-Versa.

Varjanela: HWND;beginjanela:=FindWindow(nil,'Calculadora');ShowWindow(janela, SW_SHOWMAXIMIZED);end;

Mas como faço o inverso?

Para poder usar nesse comando?

PostMessage(FindWindow(nil, 'calculadora'), WM_CLOSE,0,0);

Para ao invés de colocar 'calculadora' eu poder colocar Janela.

[marcio.theis 3]

Algo do tipo ?

 

 

var	janela: HWND;beginjanela:=FindWindow(nil,'Calculadora');PostMessage(janela, WM_CLOSE,0,0);end;

[Pseudalopex 0]

Perfeito.Desculpe a ignorancia.Meu código ta todo bagunçado, logo eu posto ele aqui.

[marcio.theis 3]

tranquilo, coisa boa que deu certo... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif