navne på vinduer

Følgende klaskes i en Form sammen med en button og en TlistBox - laver en liste over alle vinduestitler:

type
  PFindWindowStruct = ^TFindWindowStruct;
  TFindWindowStruct = record
    Caption : string;
    ClassName : string;
    WindowHandle : THandle;
  end;

procedure EnumWindowsProc(hWindow : hWnd;
                        lParam  : LongInt);
{$IFDEF Win32} stdcall; {$ELSE} ; export; {$ENDIF}
var
  lpBuffer : PChar;

begin
  GetMem(lpBuffer, 255);

  try
    if GetWindowText(hWindow, lpBuffer, 255) > 0 then
      Form1.ListBox1.Items.Add(lpBuffer);
  finally
    FreeMem(lpBuffer, sizeof(lpBuffer^));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    WindowInfo : TFindWindowStruct;
begin
    EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));
end;

:)

Du var hurtigt til at finde svaret når der var point på bordet :)

Er det muligt kun at finde de vinduer der er synlige?

Hehe :)

Hmmm... Man kan sikkert undersøge vinduerne, som man jo får handles til og finde ud af deres status e.l.

Prøv den her:
--------------
function EnumCall(Handle: THandle; lParam: LPARAM):boolean;stdcall;
var
  S: array [0..256] of char;
begin
  if IsWindowVisible(Handle) then
  begin
      GetWindowText(Handle, S, 200);
      if (S <> \'\') and (Pos(Application.Title, S) <> 1) then
      Form1.ListBox1.Items.Add(S);
  end;
  Result := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ListBox1.Items.Clear;
  EnumWindows(@EnumCall,0);
end;
--------------
Håber det kunne bruges!