ActiveDelphi

[delphication]

eu criei um progamano delphi e coloquei um timer ai eu coloquei esse código para quando alguém abrir o paint ele fechar automaticamente, mas não funcionou. alguém me passa aí o código certo.

CÓDIGO QUE USEI:

procedure TForm1.Timer1Timer(Sender: TObject);
var

a: HWND;

begin

a := findwindow(nil, 'Paint');
if a <> 0 then
postmessage(a, wm_close,0,0);
if a <> 0 then

end;

[felipe.carlos]

[pestana]

Tente assim:

[delphication]

ainda não funcionou.

eu acho que é aquele postmessage.
no código antigo quando por exemplo eu desenhava alguma coisa no paint e clicasse em sair perguntava um post se quisesse salvar ai ele fechava automaticamente. mais não é isso que quero o que eu quero é que quando o paint abrir automaticamente ele fechar.

[delphication]

[delphication]

eu deixei esse progama invisível para ninguém ver mas se apertar ctrl alt End fechar. só que na barra de tarefas do menu iniciar ainda fica ele visível e se apertar com o botão esquerdo do mouse e clicar em fechar ele fechar. como faz para ele ficar invisível tb na barra de tarefas do menu iniciar?

[sindicley]

//Titulo da janela:

if FindWindow('MSPaintApp', nil) > 0 then
PostMessage(FindWindow(nil, 'Form1'), WM_Close, 0, 0)

//Fechar a partir da Classe:

if FindWindow('MSPaintApp', nil) > 0 then
PostMessage(FindWindow ('TForm1', nil), WM_Close, 0, 0);

Teste os dois e funcionou legal