FensterHandle ohne vollständigen Titel

[glkgereon]

Hi

ich habe es bisher so gelöst:

Delphi-Quellcode:

procedure TForm_Settings.CLBHide;
//Programme Verstecken
//Edit: CLB_Hide is ne CheckListBox wo die Titel drinstehen
var i:Integer;
    ST: Integer;
begin
  for i:=0 to CLB_Hide.Count-1 do
    begin
    if CLB_Hide.Checked[i] then ST:=SW_HIDE else ST:=SW_SHOWNA;   //Show or Hide?
    ShowWindow(FindWindow(nil,PAnsiChar(CLB_Hide.Items[i])),ST);
    end;
end;

nun ist aber das problem (oder das ungünstige) das man hierfür den 100% korrekten titel angeben muss.
kann man irgendwie nur nach fenstern suchen wo ein string drin vorkommt?
oder kann man das Handle anhand der Exe rausfinden?

[perle]

Ein Programm hat nicht DAS HANDLE. Ein Programm kann mehrere Handles haben (zumindest wenn man von Fensterhandles spricht, und das tust du ja hier).

[Win32.API]

Hi,
guck dir mal EnumWindows , WM_GETTEXT und TStringList durchsuchen an.

Win32.API

[toms]

Zitat:

kann man irgendwie nur nach fenstern suchen wo ein string drin vorkommt?
oder kann man das Handle anhand der Exe rausfinden?

Delphi-Quellcode:

function FindWindowByTitle(WindowTitle: string): Hwnd;
var
  NextHandle: Hwnd;
  NextTitle: array[0..255] of char;
begin
  // Get the first window
  NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST);
  while NextHandle > 0 do
  begin
    // retrieve its text
    GetWindowText(NextHandle, NextTitle, 255);
    if Pos(WindowTitle, StrPas(NextTitle)) <> 0 then
    begin
      Result := NextHandle;
      Exit;
    end
    else
      // Get the next window
      NextHandle := GetWindow(NextHandle, GW_HWNDNEXT);
  end;
  Result := 0;
end;