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;
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...