- //*************************************************************
- // Procedure Changeant le Wallpaper de l'utilisateur courant
- //*************************************************************
- procedure ChangeWallpaper (chemin_wallpaper:string);
- begin
-
- SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar(chemin_wallpaper), SPIF_UPDATEINIFILE);
-
- end;
-
//*************************************************************
// Procedure Changeant le Wallpaper de l'utilisateur courant
//*************************************************************
procedure ChangeWallpaper (chemin_wallpaper:string);
begin
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar(chemin_wallpaper), SPIF_UPDATEINIFILE);
end;