Buscar por:

Todos os programas que estão em execução

Código

//Programas Abertos

Function EnumWindowsProc (Wnd: HWND; lb: TListbox): BOOL; stdcall; 

var caption: Array [0..128] of Char; 

begin 

Result := True; 

if IsWindowVisible(Wnd) and 

((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or 

(HWND(GetWindowLong(Wnd, GWL_HWNDPARENT)) = GetDesktopWindow))and 

((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0) 

then 

begin 

SendMessage( Wnd, WM_GETTEXT, Sizeof(caption),integer(@caption)); 

lb.Items.AddObject( caption,TObject( Wnd )); 

end; 

end;  

procedure TForm1.Button1Click(Sender: TObject); 

begin 

EnumWindows( @EnumWindowsProc, integer( listbox1 )); 

end;   {Programas Abertos (incluindo os ocultos)

Para listar (pegar) todas janelas abertas, deve-se usar a funcao da API EnumWindows, que usa uma funcao Callback, com dois parametros, um Handle para a janela e um ponteiro. Voce pode usá-la com um códi-go semelhante a este (Este lista as janelas abertas, mesmo invisí-veis, em uma listbox): }

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;