Programación General > Trucos

 Listar Los Procesos Corriendo

(1/1)

Enko:
Con este código, pueden saber los nombres de todos los procesos que están en
ejecucion en Windows (probado en XP).

Componentes Necesarios:
  ListBox1, Button1


--- Código: Text --- procedure TForm1.Button1Click(Sender: TObject);var  Wnd : hWnd;  buff: ARRAY [0..127] OF Char;begin  ListBox1.Clear;  Wnd := GetWindow(Handle, gw_HWndFirst);  while Wnd <> 0 do  begin    if (Wnd <> Application.Handle) and                  {IsWindowVisible(Wnd) and}  //Solo se veran los procesos con ventana                 (GetWindow(Wnd, gw_Owner) = 0) and                 (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) then                 begin      GetWindowText(Wnd, buff, sizeof(buff));      ListBox1.Items.Add(StrPas(buff));    end;  Wnd := GetWindow(Wnd, gw_hWndNext);  end;  ListBox1.ItemIndex := 0;  ListBox1.Sorted := True;end;  

Navegación

[0] Índice de Mensajes