Parametry

procedury jsou, myslím, jasné a netřeba dalšího vysvětlování. Jak to vlastně funguje ? Nejprve najdeme "okno", kde se ikony nalézají (funkce FindWindow a FindWindowEx). Je to potomek Program Manageru a obsahuje ListView, kde jsou uloženy všechny ikony plochy. Jejich parametry poté jen změníme podle našich požadavků.
Následující procedurou vrátíme vše zase zpět (tak, jak to mají Windows uloženo v nastavení):
procedure NastavPuvodniBarvy;
var
Druh: Integer;
Barva: TColor;
begin
Druh := COLOR_DESKTOP;
Barva := GetSysColor(COLOR_DESKTOP);
SetSysColors(1, Druh, Barva);
end;