Applicationhandle eines Fensters ermitteln

[VizeTE]

Hallo,

ich habe ein beliebiges Handle eines Fensters und möchte das Application-Handle des Programms ermitteln. Gibt es dazu eine einfache Lösung?

Eine Idee wäre es über "ParentWindow" sich vorzuarbeiten. Aber woher weiß ich bei der Application angekommen bin? Gibt es dann kein Parent mehr? Vielleicht gibts ja schon eine Funktion dafür?

[Angel4585]

wozu genau benötigst du dieses Handle?

[VizeTE]

Meine Anwendung öffnet ab und an ein Fenster.
Bevor sie das macht hole ich mir das Handle des Fensters, daß gerade den Fokus hat. Wenn es sich nicht um ein Fenster meiner Anwendung handelt minimiert sich meine Anwendung nachdem das eben geöffente Fenster geschlossen wurde.
Ich möchte also die Application-Handle des Fensters mit dem Handle meiner Application vergleichen.

[Angel4585]

probiers doch mal mit Application.Handle :zwinker:

[VizeTE]

Naja dann habe ich das Handle meiner Application aber mit was soll ich das vergleichen? Also brauch ich ja noch das Application-Handle des Fensters, welches im Vordergrund war.

[Angel4585]

schau mal hier

[Union]

Du könntest auch Dein Hauptfenster mit GetAncestor(handleDesGefundenenFensters, GA_ROOT) vergleichen.

[VizeTE]

Zitat:

Zitat von Angel4585

schau mal hier

Da habe ich dann ja das Handle des Fensters und nicht der Application.

Zitat:

Zitat von Union

Du könntest auch Dein Hauptfenster mit GetAncestor(handleDesGefundenenFensters, GA_ROOT) vergleichen.

Das klingt erstmal nach dem was ich suche aber wenn ich es ausprobiere klappt es leider nicht. Wenn ich in meinem Programm noch ein Fenster geöffnet hat dann bekomme ich nicht das Handle meines Hauptfensters.

[Union]

Poste mal ein Code-Gerüst. Wenn wir genau wissen, was Du machen willst können wir auch besser helfen. Wenn Du mit GetAncestor nicht weiter kommst, dann versuche es doch auf die Harte Tour mit GeModuleFileName...

[Vjay]

Also wenn du prüfen willst ob das Fenster, dass vorher den Focus hatte zu deiner Anwendung gehört, machst du das am einfahcsten (meiner Meinung nach) über die Prozess ID.

Du holst dir mit getWindowThreadProcessId die Prozess Id und vergleichst diese mit der aktuellen ProzessId, sieht dann etwa so aus:

Delphi-Quellcode:

function getWindowPID( const h: integer): dword;
begin
 getWindowThreadProcessId( h, result);
end;

function gehoertFensterZuMir( const handle: integer): Boolean
begin
 result:= getWindowPID( handle) = getCurrentProcessid;
end;

[VizeTE]

Zitat:

Zitat von Vjay

Also wenn du prüfen willst ob das Fenster, dass vorher den Focus hatte zu deiner Anwendung gehört, machst du das am einfahcsten (meiner Meinung nach) über die Prozess ID.

Du holst dir mit getWindowThreadProcessId die Prozess Id und vergleichst diese mit der aktuellen ProzessId, sieht dann etwa so aus:

Delphi-Quellcode:

function getWindowPID( const h: integer): dword;
begin
 getWindowThreadProcessId( h, result);
end;

function gehoertFensterZuMir( const handle: integer): Boolean
begin
 result:= getWindowPID( handle) = getCurrentProcessid;
end;

Keine Ahnung ob ich das richtig mache...
Wenn ich versuche das alles so zu übernehmen:

Delphi-Quellcode:

  ...
var
  AForegroundPID    : dword;
  AMyWindow         : boolean;
begin
  getWindowThreadProcessId(GetForegroundWindow, AForegroundPID);
  AMyWindow := AForegroundPID = getCurrentProcessId;
  ...

Dann bekomme ich die Fehlermeldung "Inkompatible Typen: cardinal und pointer". (erste Zeile)

Na dann dachte ich mach ich halt ein Pointer draus:

Delphi-Quellcode:

  ...
var
  AForegroundPID    : ^dword;
  AMyWindow         : boolean;
begin
  getWindowThreadProcessId(GetForegroundWindow, AForegroundPID);
  AMyWindow := AForegroundPID^ = getCurrentProcessId;
  ...

Ich denke das hat ein oder zweimal funktioniert. Jetzt bekomme ich aber in der ersten Zeile eine Zugriffsverletztung. Ich glaube ich stell mich gerade ganz schön dumm an aber ich komm' nicht d'rauf.

[Vjay]

Neues Projekt erstellen, einen Timer darauf machen, diesen Code rein:

Delphi-Quellcode:

var 
  AForegroundPID    : dword;
  AMyWindow         : boolean;
begin
  getWindowThreadProcessId(GetForegroundWindow, AForegroundPID);
  AMyWindow := AForegroundPID = getCurrentProcessId;
  caption:= inttostr( integer( amywindow));
end;

und funktioniert doch wunderbar = ?

[VizeTE]

Stimmt, funktioniert unter Delphi7 einwandfrei. Unter Delphi5 bekomme ich aber die Fehlermeldung: "Inkompatible Typen: Cardinal und Pointer"
(Hätte wohl gleich dazuschreiben sollen das es sich um D5 handelt, sorry)

[VizeTE]

juhuuu...ich glaube ich habs

Delphi-Quellcode:

var
  AForegroundPID    : dword;
  AMyWindow         : boolean;
begin
  AForegroundPID := 0;
  getWindowThreadProcessId(GetForegroundWindow, @AForegroundPID);
  AMyWindow := AForegroundPID = getCurrentProcessId;
  caption := BoolToStr(AMyWindow);
end;

Mit dem @-Operator funktionierts auch unter Delphi5. :zwinker: