Handle einer MainForm erhalten

[Martin K]

Moin,
ich hätte gerne das Handle einer MainForm - ich habe aber nur das Handle der zugehörigen Application und der Titel der MainForm kann variieren.

So erhalte ich das Handle der Application:

Delphi-Quellcode:

var AppHandle: HWND;
begin
  AppHandle := FindWindow(nil, 'Name meiner Anwendung');
  if AppHandle <> 0 then
    //...

Ich weiß zwar, dass ich so das Handle einer Form erhalten kann:

Delphi-Quellcode:

var FrmHandle: HWND;
begin
  FrmHandle := FindWindowEx(0, 0, nil, 'Titel meiner Form');
  if FrmHandle <> 0 then
    //...

...aber wie gesagt, kenne ich den Titel meiner Form nicht bzw. dieser kann sich ständig ändern und ist somit nicht eindeutig.

[RavenIV]

Bei FindWindow kannst Du als ersten Parameter die Klasse angeben, von der das Fenster sein soll.
Den zweiten Parameter machst Du dann nil.

[Martin K]

Meinst Du so:

Delphi-Quellcode:

FindWindow('TForm', nil);

???

Na, wer weiß wie viele TForm's gerade laufen, da würd ich doch jede Menge Handels bekommen...
Also es soll halt die MainForm der Application (s. erster Code) sein!

[mkinzler]

Delphi-Quellcode:

self.Handle

[Martin K]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

self.Handle

Nene, das Handle der MainForm einer bestimmten Application, NICHT meiner eigenen.
Also ein fremdes Programm!

[RavenIV]

eher so:

Delphi-Quellcode:

myHandle := FindWindow('TEineBestimmteForm', nil);

so kannst Du sagen, dass Du das Handle des Fensters willst, das von der "EineBestimmteForm" abstammt. Der Titel des Fensters ist dann egal.

[Martin K]

Ja, so funktioniert's, Danke :thumb:

Delphi-Quellcode:

var FrmHandle: HWND; 
begin 
  FrmHandle := FindWindow('TForm1', nil);

Allerdings funzt es nach ein paar Mal nicht mehr, erst wenn ich die Anwendung dann wieder neu starte :gruebel:
Aber das wird ich bestimmt irgendwie noch in den Griff bekommen...

[Martin K]

Zitat:

Zitat von Martin K

Allerdings funzt es nach ein paar Mal nicht mehr, erst wenn ich die Anwendung dann wieder neu starte :gruebel:
Aber das wird ich bestimmt irgendwie noch in den Griff bekommen...

Jetzt habe ich das Problem gelöst:
Es lag daren, dass ich wohl in meinen Projekten öfters Forms mit dem Namen TForm1 habe (bin immer zu faul zum Umbenennen).
Besser ist es, hier einen eindeutigen Namen für die Form zu nehmen!

[Christian Seehase]

Moin Martin,

Zitat:

Zitat von Martin K

Besser ist es, hier einen eindeutigen Namen für die Form zu nehmen!

Das ist zwar richtig, nutzt Dir aber nichts, wenn Du eine fremde Anwendung ansprechen willst, da es ja reichlich Programme geben kann, die die den gleichen Namen für die Fensterklasse benutzen.

[Martin K]

naja, es war schon eine von mir programmierte Anwendung.
Oder was meinst du jetzt?

[Christian Seehase]

Moin Martin,

wenn Du es selber beeinflussen kannst, funktioniert es natürlich so.

[Martin K]

Zitat:

Zitat von Christian Seehase

wenn Du es selber beeinflussen kannst, funktioniert es natürlich so.

Und wenn nicht - wenn es wirklich eine fremde Anwendung ist - brauch ich ersteinmal den Namen der Fensterklasse.
Wenn diese dann einen gebräuchlichen Namen wie TForm1 oder so hat, kann man wohl nix machen...

[Christian Seehase]

Moin Martin,

in dem Falle brauchst Du halt noch weitere Informationen, mit denen Du das Fenster eindeutig identifizieren kannst.
Dann wird zwar ein reines FindWindow nicht mehr genügen, aber das Problem sollte dennoch meist lösbar sein, z.b., mit EnumWindows und prüfen von Teilen des Titels.