[RESOLVIDO] - Como listar janelas abertas no windows?

[FKROBERT]

axo que é uma funçao parecida com esta mas nao sei usar...


function EnumWindowsProc(Wnd : HWnd;Form : TForm1) : Boolean; Export; {$ifdef Win32} StdCall; {$endif}
var
Buffer : Array[0..99] of char;
begin
GetWindowText(Wnd,Buffer,100);
if StrLen(Buffer) <> 0 then
Form.ListBox1.Items.Add(StrPas(Buffer));
Result := True;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@EnumWindowsProc,LongInt(Self));
end; 

[engkin]

Code: [Select]

uses
  Windows;
...

function EnumWindowsProc(Wnd: HWnd; lParam: LPARAM): bool; stdcall;
var
  Buffer: array[0..99] of char;
begin
  GetWindowText(Wnd, Buffer, 100);
  if StrLen(Buffer) <> 0 then
    TForm1(lParam).ListBox1.Items.Add(StrPas(Buffer));
  Result := True;
end;

{ TForm1 }

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

Maybe a bit better EnumWindowsProc:

Code: [Select]

function EnumWindowsProc(Wnd: HWnd; lParam: LPARAM): Bool; stdcall;
var
  S: WideString;
  Len: LongInt;
begin
  SetLength(s, 100);
  Len := GetWindowTextW(Wnd, @S[1], Length(S));
  if Len > 0 then
    TForm1(lParam).ListBox1.Items.Add(UTF8Encode(S));
  Result := True;
end;