Hallo miteinander,
ich möchte bei einem fremden Fenster, konkret dem Console-Window, den Schließen-Button, Alt-F4 und den Punkt "Schließen" im System-Menu deaktivieren.
Delphi-Quellcode:
if(sClassNameShort = 'CONSOLE') then begin
Wnd := FindWindow(PChar(sClassName), PChar(sFormName));
if(Wnd <> 0) then begin
EnableMenuItem(GetSystemMenu(Wnd, false), SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
SetClassLong(Wnd, GCL_STYLE, GetClassLong(Wnd, GCL_STYLE) or CS_NOCLOSE);
end;
end;
Das funzt auch soweit erstmal. Alt-F4 ist aus, der "X"-Button wird ausgegraut und kann nicht mehr geklickt werden. ABER: Im Systemmenu ist "Schließen" nicht deaktiviert und sobald ich auf das Icon klicke und das System-Menu aufgeht, wird das "X" wieder aktiviert was natürlich nicht Sinn und zweck der Sache ist.
Weiß jemand, wie ich das beheben kann?