Fehler mit SetDesktopColor unter Windows 2000

[hugo1990]

Mit folgender Procedure soll das Desktophintergrundbild entfernt werden und ein Farbe als Hintergrund festgelegt werden:

Delphi-Quellcode:

procedure TForm1.SetDesktopColor(clr:DWord);
var
  colorID:Integer;
  color:COLORREF;
begin
   // Remember current background color
  if FOldColor=CLR_INVALID then
    FOldColor:=GetSysColor(COLOR_BACKGROUND);

   // Set the desktop background color to the wanted one
  colorID:=COLOR_BACKGROUND;
  color:=clr;
  SetSysColors(1,colorID,color);

   // Remove the desktop wallpaper, without updating the registry
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(''), 0);
end;

Unter WinXP funzt das einwandfrei, aber als ich es auf den Rechner meiner Eltern (Win2000) ausprobiert habe, hat er das Hintergrundbild nicht entfernt und überall, wo weiß ist setzt er die angegebene Farbe. Weiß jemand, woran das liegen könnte.

[ste_ett]

Du solltest die Rückgabewerte prüfen und ggf. mit "GetLastError" nachgucken, was schief gelaufen ist.

[JamesTKirk]

Hi! (Ja, ich bin's wieder )

Das ist mir auch schon 2mal untergekommen mit meinem Overlay Programm: Da ist die Farbauflösung "nur" auf 16bit eingestellt gewesen... Zumindest war das bei mir die Lösung des Problems... Was man dagegen machen kann, weiß ich noch nicht

[hugo1990]

Ok also es muss an folgender Zeile liegen:
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(''), 0); Und als Fehlermeldung gibt er mir "Der Aufruf einer Betriebssystemfunktion ist fehlgeschlagen" aus. Also ich muss schon sagen, der wäre ich selber nie drauf gekommen.
Gibt es vielleicht noch eine andere Möglichkeit um das Desktophintergrundbild zu löschen.

[Garfield]

Zitat von hugo1990:

Gibt es vielleicht noch eine andere Möglichkeit um das Desktophintergrundbild zu löschen.

Das Bild ist in der Registry eingetragen. Den eingetragenen Wert löschen.

Zitat von hugo1990:

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(''), 0);

Wenn PChar einen Pointer darstellt, sollte da NIL stehen.