Como Minimizar Uma Aplicação Apartir De Outra

[Guest - Rodolfo -]

pessoal,

estou com um problema, tem uma aplicação que ela não minimiza e não deixa nem alternar entre programas, alguém sabe como faço para criar um programa que minimize a aplicação, peguei um exemplo no site aqui do scriptbrasil que serve para fechar a aplicação tentei altera-lo para ao invez de fechar minimizar mais não consegui.

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

este é o comando para fechar.

[Thales Pontes Martins]

Tente -> ShowWindow(FindWindow(nil, 'Calculadora'),SW_MINIMIZE);

[Guest Visitante]

valeu cara.. funcionou.

agora quando o programa minimiza a barra de iniciar fica oculta e quando eu pressiono o botao do Windows no teclado ele na faz nada... alguém tem alguma ideia de como resolver isso?

[Thales Pontes Martins]

Que programa é esse, gostaria de dar uma olhada se não for inconveniente.

Mas se a barra de tarefas sumiu tente fazer-la aparecer com isso

ShowWindow(findwindow('Shell_TrayWnd', nil), SW_SHOW);

[Guest Visitante]

Thales,

muito obrigado cara.

agora se voce puder me ajudar mais uma vez... é o seguinte

com suas dicas fiz minimizar e aparecer a barra de iniciar, agora esse programa ele trabalha em fullscreen quando esta na resolucao padrão que é 1024x768 e programa fica por cima de todos os outros programa eu estou tentando criar um botao de minimizar para ele... gostaria de saber como faço um programa para ficar sobre ele que o faça minimizar... como faço um programa para fica aways on top...

[Guest Visitante]

cont. o programa esta neste link http://planetaseg.com.br/prog/setup.exe

[Thales Pontes Martins]

procedure TForm4.FormShow(Sender: TObject);
begin
SetWindowPos(self.Handle,
               HWND_TOPMOST,
               0, 0, 0, 0,
               SWP_NOACTIVATE+SWP_NOMOVE+SWP_NOSIZE);

end;

No OnShow do seu form ou qualquer outro evento, isso fará com que fique em cima. Lembre-se de colocar a propriedade FormStyle para fsStayOnTop. E se for ShowModal também ajuda.

Abraço.