Wallpaper per Monitor?

[Uwe Raabe]

Über die Windows-Einstellungen für Hintergrund lässt sich das interaktiv ja recht leicht bewerkstelligen: In der Bilderauswahl im Kontextmenü einfach den gewünschten Monitor festlegen.

Ob bzw. wie das allerdings programmtechnisch geht kann ich auch nicht sagen.

[Detlev]

Ja, danke. Als Windows-User interaktiv geht das, aber ich suchen einen Weg, es von einem Delphi-Programm zu machen.

[himitsu]

Zitat von Detlev:

Ja, danke. Als Windows-User interaktiv geht das, aber ich suchen einen Weg, es von einem Delphi-Programm zu machen.

ProzessMonitor und schauen, welche RegistryWerte das sind
und hoffen, dass danach durch Senden von WM_WININICHANGE (oder irgendsowas) der Desktop sich sofort aktualisiert und nicht erst nach einem Neustart, bzw. Ausloggen+Einloggen.

[KodeZwerg]

https://learn.microsoft.com/en-us/wi...sktopwallpaper
https://learn.microsoft.com/en-us/wi...r-setwallpaper

Code:

HRESULT SetWallpaper(
  [in] LPCWSTR monitorID,
  [in] LPCWSTR wallpaper
);

Das macht Windows.

[Detlev]

Ah, das klingt gut. Wie lautet das Code-Snippet als Delphi-Code?

[KodeZwerg]

Zitat von Detlev:

Wie lautet das Code-Snippet als Delphi-Code?

Ich würde es so umsetzen:

Delphi-Quellcode:

function SetWallpaperAPI(const AMonitor: Integer; const AFilename: string): Boolean;
var
  LIWallpaper    : IDesktopWallpaper;
  LMonitorID,
  LWallpaperFile : PWideChar;
  LCount         : DWORD;
begin
  Result := False;
  if (AMonitor < 0) then
    Exit;
  if not FileExists(AFilename) then
    Exit;
  LWallpaperFile := PWideChar(AFilename);
  LIWallpaper    := CoDesktopWallpaper.Create;
  try
    OleCheck(LIWallpaper.GetMonitorDevicePathCount(LCount));
    if (AMonitor >= LCount) then
      Exit;
    OleCheck(LIWallpaper.GetMonitorDevicePathAt(AMonitor, LMonitorID));
    OleCheck(LIWallpaper.SetWallpaper(LMonitorID, LWallpaperFile));
  finally
    Result := True;
  end;
end;

[Detlev]

Danke, werde ich mal ausprobieren!