Schließen Symbol in der Titelleiste ausblenden

[Surrounder]

ich habs bei mir nur mal deaktiviert, aber vielleicht kannst Du das modifizieren und das "x" auch ausbleden.

Delphi-Quellcode:

var
 h : THandle;
begin
 h := GetSystemMenu( Handle, False );
 if h <> 0 then begin
  DeleteMenu( h, SC_CLOSE, MF_BYCOMMAND );
  DrawMenuBar( Handle );
 end;