Listar las aplicaciones que se están ejecutando

[Draker]

Hola razonasistemas, pues haber si podemos irnos ayudando y de paso ayudamos a mRoman.

Pues resulta que yo tambien estoy batallando con esto y he llegado a este código:

Con 1 Memo y 1 botón.

Código Delphi [-]
var
  Form1: TForm1;
  Datos:TStringList;

implementation

{$R *.dfm}

Function EnumWinProc(Wnd : HWND; Param:Pointer) : Boolean; stdCall; Export;
Var WinText:array[0..255] of char;
Begin
  Result := True;
  // Obtenemos el Texto de la Ventana
  GetWindowText(Wnd, WinText, 255);

  If (WinText <> '') and IsWindowVisible(Wnd) and (GetWindow(Wnd,gw_Owner)=0)
  Then Datos.Add(WinText);
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Try
    Datos:=TStringList.Create;
    EnumWindows(@EnumWinProc, LongInt(Self) );
    Memo1.Clear;
    Memo1.Lines.AddStrings(Datos);
  Finally
    Datos.Free;
  End;
end;

Posiblemente tu problema este en el filtro de las ventanas o procesos encontrados.

Ahora bien, a mi a partir de este código lo que quisiera es obtener el icono asociado a la clase o proceso y la ruta de dicha ventana.

Por ejemplo si en la lista aparece:

Trabajos (carpeta)
Messenger (programa)
....

desde ahora mil gracias...