Vis ikoner på desktop

procedure ShowDesktop(const YesNo : boolean) ;
var h : THandle;
begin
  h := FindWindow('ProgMan', nil) ;
  h := GetWindow(h, GW_CHILD) ;
  if YesNo = True then
    ShowWindow(h, SW_SHOW)
  else
    ShowWindow(h, SW_HIDE) ;
end;

hej

jeg kan godt se at det giver et resultat, men det var ikk helt det jeg forventede

jeg vil nemlig gerne have den til at give samme resultat som hvis man højreklikker på skrivebordet, vælger "arranger..." og "vis ikoner på skrivebordet"

Det har jeg ikke en løsning på.

lukker