procedure AppliqueWallPaper(PathWallPaper: String); var hObj: IUnknown; ActiveDesktop: IActiveDesktop; tmpBuffer: PWideChar; begin if not (FileExists(PathWallPaper)) then Exit; hObj := CreateComObject(StringToGUID('{75048700-EF1F-11D0-9888-006097DEACF9}')); ActiveDesktop := hObj as IActiveDesktop; tmpBuffer := AllocMem(MAX_PATH); StringToWideChar(PathWallPaper, tmpBuffer, MAX_PATH); ActiveDesktop.SetWallpaper(tmpBuffer, 0); ActiveDesktop.ApplyChanges(AD_APPLY_ALL); FreeMem(tmpBuffer); end;
AppliqueWallPaper(Chemin\TonFichier.htm);
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question