Список запущенных приложений
Список запущенных приложений
Список запущенных приложений 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 (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; end;
