Utilizando a função findwindow eremos remover o botão fechar da janela do bloco

{Utilizando a função FindWindow eremos remover o botão fechar da janela do Bloco de Notas }

procedure TForm1.Button1Click(Sender: TObject);
var
hwndHandle : THANDLE;
hMenuHandle : HMENU;
begin
hwndHandle := FindWindow(nil, 'Sem título - Bloco de notas');{Coloque aqui o caption da janela que vc quer retirar o botão}
if (hwndHandle <> 0) then begin
hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
end;


{By
Nativo_Gyn
ufgnet@pop.com.br}



p.873