[Delphi] Zmiana tapety na pulpicie

Witam!
Jak zmienic tapete na pulpicie ??? kod ktory jest podany w faq mi nie dziala :(

W żródłach jest program, który zmienia tapetę.

procedure change_wallpaper(filename : string);
begin
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar(filename),SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE);
end;

procedure change_wallpaper(filename : string);
begin
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar(filename),SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE);
end;

To dziala tylko na bmp i nie dziala na NT :(
Ma ktos moze kodzik zeby dzialaly wszystkie graficze przyjmowane rozszezenia?? (jpeg, gif, png.....)

do rejestru:
HKEY_CURRENT_USER\Control Panel\Desktop

"wallpaper" wpisać ścieżkę

hmmm mam kodzik konwertujący *->bmp po prostu graphic przekopiować do czystego imaga i gitara

procedure change_wallpaper(filename : string);
begin
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar(filename),SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE);
end;

To dziala tylko na bmp i nie dziala na NT :(
Ma ktos moze kodzik zeby dzialaly wszystkie graficze przyjmowane rozszezenia?? (jpeg, gif, png.....)

To, że tylko na bmp to się zgadza, ale na NT działa.
Jeżeli chcecie, żeby wyświetlało też inne to 2 rozwiązania:
1.) Wspomniana konwersja
2.) Włączenie ActiveDesktop