Hi,
das könnte man so machen
Delphi-Quellcode:
function EnumWin(hWnd: THandle; FindHwnd: PCardinal): Boolean; stdcall;
begin
Result := True;
if (FindHwnd^ = hWnd) and IsWindowVisible(hWnd) and not
boolean(GetWindowLong(hWnd, GWL_HWNDPARENT)) then
result := false;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
FindWin: HWnd;
begin
FindWin:= ...;
if not EnumWindows(@EnumWin, integer(@FindWin)) then
ShowMessage('sichtbarer Taskbareintrag');
end;
ist leider auch nicht zu 100% sicher ob es sich wirklich um einen sichtbaren Taskbareintrag handelt.