Announcement

Collapse
No announcement yet.

Activedesktop aktualisieren

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Activedesktop aktualisieren

    Wie kann ich den ActiveDesktop nach Änderung aktualisieren.
    Im Autostartorder ist ein Programm welches eine HTML datei neu schreibt, diese ist als Hintergrund ausgewählt, aber trotzdem ändert sich der Desktop nicht. (Windows legt eine Kopie der Hintergrunddatei an) <br>
    Die Funktion <br>
    SystemParametersInfo(SPI_SETDESKWALLPAPER,0,pchar( 'C:\windows\test.htm'),SPIF_SENDWININICHANGE); <br>
    hat keine Auswirkung !

    Ronny

  • #2
    Hab eine Lösung gefunden, wem's interessiert: <br>
    <pre>
    Uses Shlobj,comobj;
    procedure ChangeActiveWallpaper;
    var ActiveDesktop: IActiveDesktop;
    begin
    ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
    as IActiveDesktop;
    ActiveDesktop.SetWallpaper('c:\windows\test.htm', 0);
    ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
    end;
    </pre&gt

    Comment

    Working...
    X