Fenster suchen (Grösse bekannt!)

[Clemens L.]

Hallo,

ich habe folgendes Problem: Ich will das Fenster-Handle von einem Java-Applet herausfinden, das in einem beliebigem Browser ausgeführt wird. Der Klassenname ist bekannt, in diesem fall "SunAwtCanvas". Ein Fenstertitel existiert nicht. Das Problem ist nun, das leider auch andere Java-Applets diese Fensterklasse benutzen. Ich muss also aus allen Fenstern mit diesem Klassennamen mein Applet herausfinden. Das einzige was mir bekannt ist, ist leider die Grösse des Fensters (765 x 503), welche reichen müsste um das Fenster von den anderen zu unterscheiden.

Habe mit WinSpy 2008 schon versucht den Code zu generieren, aber das klappt so natürlich nicht, vorallem da die Parents immer wechseln können, da der Browser ja variabel ist. Ich habe mir schon einige Möglichkeiten zu dem Thema angesehen, allerdings scheint es ein Problem zu sein das es kein Top-Level Windows ist.

Ich hoffe ihr könnt mir helfen!

Gruß,
Clemens

[stoxx]

nimm die Funktion FindAWindow, die im Netz kursiert.


http://www.delphipraxis.net/internal...ht=findawindow


mit der Funktion GetWindowRect(hWindow, aRect);

kannst Du in der Funktion EnumWindowsProc nach Deiner entsprechenden Größe filtern ...

besten Gruß

[stoxx]

Hab Dir mal meinen Code gesucht ...

den kann man auch so aufrufen

hWindow := FindWindowPartStr('Delphi-Praxis;Delphi-Forum', 'IEFrame');

Delphi-Quellcode:

function GetStringNr(const NR : integer; const Value : AnsiString; const delim : char = ';'): Ansistring;
var i, idx : integer;
    iOrd : byte;
    Res : AnsiString;
    Used : Integer;
begin
  Result := '';
  idx := 1;
  Used := 0;
  SetLength(Res, Length(Value));

  for i := 1 to length(Value) do
  begin
    if Value[i] = delim then
       begin
          inc(IDX);
          continue;
       end;
    If IDX > NR then break;
    if IDX = NR then
     begin
      inc(Used);
      Res[used] := Value[i];
     end;
  end; // von for
   SetLength(Res, Used);
   result := res;
end;  // von GetStringNRh

//==============================================================================

type
  PFindWindowStruct = ^TFindWindowStruct;
  TFindWindowStruct = record
    CaptionPartCount : Integer;
    CaptionParts: string;
    ClassName: String;
    WindowHandle: THandle;
end;
//==============================================================================
function EnumWindowsProc(hWindow: hWnd; lParam: LongInt): boolean; stdcall;
var lpBuffer: PChar;
    WindowCaptionFound: boolean;
    ClassNameFound: boolean;
    i : Integer;
    s : String;
begin
  GetMem(lpBuffer, 255);
  result:=true;
  WindowCaptionFound:=false;
  ClassNameFound:=false;
  try
    if GetWindowText(hWindow, lpBuffer,255)>0 then begin

        WindowCaptionFound := true;
        for i := 1 to PFindWindowStruct(lParam).CaptionPartCount do begin
            s := GetStringNr(i,PFindWindowStruct(lParam).CaptionParts);
            if Pos(s, StrPas(lpBuffer) )= 0
               then WindowCaptionFound:= false;
        end; // for i (PFind)
    end;

    if PFindWindowStruct(lParam).ClassName='' then
      ClassNameFound:=true
      else if GetClassName(hWindow, lpBuffer, 255)>0 then
        if Pos(PFindWindowStruct(lParam).ClassName, StrPas(lpBuffer))>0
        then ClassNameFound:=true;

    if (WindowCaptionFound and ClassNameFound) then begin
      PFindWindowStruct(lParam).WindowHandle:=hWindow;
      result:=false;
    end;
  finally
    FreeMem(lpBuffer, sizeof(lpBuffer^));
  end;
end;
//==============================================================================
function FindWindowPartStr(const aCaptionParts: string; const aWinClassName: string = ''): THandle;
var WindowInfo: TFindWindowStruct;
begin
  with WindowInfo do begin

        if aCaptionParts = '' then
          CaptionPartCount := 0 else
              CaptionPartCount := StrCharCount(aCaptionParts,';') + 1;

        CaptionParts := aCaptionParts;
        className := aWinClassName;
        WindowHandle := 0;
        EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));
        result := WindowHandle;
  end;
end;

[Clemens L.]

Hey Stoxx, danke für deine Hilfe!

Den Quelltext werde ich mir mal angucken und schauen, inwiefern ich den verändern muss. Hatte jetzt zwischenzeitlich schon eine Lösung, die aber sehr unschön programmiert war (mit einer For-Schleife alle Handles durch, immer mit IsWindow() prüfen ob es gültig ist und dann eben filtern, ggf. abbrechen).

Gruß,
Clemens