Active Desktop programozása

FActiveDesktop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;

procedure TForm1.CheckBoxClick(Sender: TObject);
var pco: TComponentsOpt;
begin
  pco.dwSize:=SizeOf(pco);
  pco.fActiveDesktop:=CheckBox1.Checked;
  pco.fEnableComponents:=CheckBox2.Checked;
  FActiveDesktop.SetDesktopItemOptions(pco, 0);
  FActiveDesktop.ApplyChanges(AD_APPLY_ALL);
end;

  TComponentsOpt = packed record
    dwSize: DWORD;
    fEnableComponents: BOOL;
    fActiveDesktop: BOOL;
  end;