Fechar Janelas

[lweb]

Olá pessoal, preciso da ajuda de vocês..

Eu preciso fechar janelas que estiver no memo, elas sendo separadas por ponto e virgula..

meu timer vai olhar todo o memo, janela por janela e se encontrar alguma aberta, ele fecha ela..

No caso o memo ficaria assim

MSPaintApp; Notepad; tSkMainForm;

help? :wacko:

[danielrgoes]

Cara faz assim

Joga o que ta escrito no memo em uma string percorre ela ate encontrar ; e vai salvando e um listbox

ai depois você percorre o listbox e vai fechando assim

PostMessage(FindWindow(nil, 'titulo da janela'), WM_CLOSE, 0,0);