Pencerenin başlık çubuğunda bulunan kapatma düğmesini (X)
etkisiz hale getirebilirsiniz. Aynı zamanda sistem menüsündeki
Kapat(Close) seçeneğide kaybolur. Bunun için aşağıdaki gibi
bir kod yazmalısınız.
procedure TForm1.Button1Click(Sender: TObject);
var
hwndHandle : THANDLE;
hMenuHandle : HMENU;
begin
hwndHandle := FindWindow(nil, 'Form1'); //Form1 pencerenin
başlığını göstermektedir.
if (hwndHandle <> 0) then begin //Burayı
uygulamanıza göre değiştirin
hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
end;