Aplicativos Do Windows

[mariquito]

uso esse codigo para ver as janelas(aplicativos abertos no windows) só que tem uma coisa

eu queria fazer o seguinte...ao invés de ele fik atualizando as janelas aberta eu queria que ele me avisasse quando uma janela abriu e fecho tipo

Windows Media Player - Aberto

Internet Explore - Aberto

Windows Media Player - Fechado

Internet Explore - Fechado

como faço isso?

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.Timer1Timer(Sender: TObject);

begin

listbox1.clear;

EnumWindows( @EnumWindowsProc, integer(listbox1));

end;