[Resolvido] Barra de Titulo

[Anderson C Nunes 0]

Boa noite, a função abaixo fecha uma jenela de acordo com o titulo.

 

var H,c:THandle;

begin

H := FindWindow(nil,'Bloco de Notas');

if H > 0 then

SendMessage(H,WM_CLOSE,0,0);

end;

 

porem o titulo tem que ser extamente igual o parametro que coloquei Ex, "Bloco de Notas". Gostaria de saber como faria para fechar a janela apenas com uma parte da palavra, ex, "Bloco" ou "Notas" ou "Not" e assim por diante.

 

Grato,

Anderson

[Mateus_Uzumaki 0]

function FecharJanela(Nome: String):String;
var
X: Word;
H: THandle;
Caption: Array[0..255] of Char;
begin
for X:=1 to 10000 do
begin
if((GetWindowText(x,Caption,255)<>0)and (GetWindowLong(x,GWL_EXSTYLE)<>0)and
(GetWindowLong(x,GWL_HWNDPARENT)=0)and (GetWindowLong(x,GWL_HINSTANCE)<>0))then
if(IsWindowVisible(x))then
if(pos(Nome,Caption)>0) then
begin
H:=FindWindow(nil,Caption);
SendMessage(H,WM_CLOSE,0,0);
end;
end;
end;

Exemplo de uso:

 

FecharJanela('Bloco');

[Anderson C Nunes 0]

function FecharJanela(Nome: String):String;
var
X: Word;
H: THandle;
Caption: Array[0..255] of Char;
begin
for X:=1 to 10000 do
begin
if((GetWindowText(x,Caption,255)<>0)and (GetWindowLong(x,GWL_EXSTYLE)<>0)and
(GetWindowLong(x,GWL_HWNDPARENT)=0)and (GetWindowLong(x,GWL_HINSTANCE)<>0))then
if(IsWindowVisible(x))then
if(pos(Nome,Caption)>0) then
begin
H:=FindWindow(nil,Caption);
SendMessage(H,WM_CLOSE,0,0);
end;
end;
end;

Exemplo de uso:

 

FecharJanela('Bloco');

muito obrigado, é isso mesmo..