Autor Beitrag
Thunder
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 145

WinXP
D6 Pers
BeitragVerfasst: So 04.01.04 01:04 
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
ausblenden 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 user profile iconUGrohne: Code- durch Delphi-Tags ersetzt
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: So 04.01.04 16:51 
Logisch. Handle ist eine Membervaraible von deiner Klasse TForm. Versuche mit den Klassennamen und FindWindow das Handle zu bekommen.