Taskleiste/Desktopicons eingeblendet?

[cruso]

Das Problem ist, wenn ich den Code ausführe, dann wird zwar überprüft ob das Fenter sichtbar ist, aber es wird auch (wenn es sichtbar ist) ausgeblendet.

Delphi-Quellcode:

if IsWindowVisible(FindWindow(nil,'Program Manager')) = true then
begin
CheckBox5.Checked:=True;
end
else
begin
CheckBox5.Checked:=False;
end;

Also wenn die Symbole ausgeblendet sind, dann werden diese eingeblendet und umgekehrt. Ich möchte aber nur überprüfen, was vorliegt.