Moin,
Ich will von einem anderen Programm (genauer Lotus Notes 5) das Beenden-X ausblenden bzw. deaktivieren.
Da der Titel des Proggis sich ständig ändert, kann ich es nicht über FindWindow ermitteln. Wie komme ich an das Handle über den Namen der Exe-Datei ran. Muss doch irgendwie über die laufenden Prozesse gehen.
Ich hab schonmal Code gefunden, wie ich das X meines eigenen Proggis ausblende
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8:
| procedure TForm1.FormCreate(Sender: TObject); Var h:Integer; begin h := GetSystemMenu(Handle, FALSE); if (h <> 0) then DeleteMenu(h, SC_CLOSE, MF_BYCOMMAND); end; |
Funzt aber irgendwie net bei anderen Proggis.
Moderiert von
UGrohne: Code- durch Delphi-Tags ersetzt