Discussion :

[zizo89]

Bonsoir
Comment changer avec delphi l'arrière plan de bureau c'est à dir l'image de bureau avec windows XP

[EPJSoft]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
uses Windows, SysUtils;
 
procedure SetWallpaper(const Filename: TFilename; Tiled: boolean);
var
  sTiled: string;
begin
  if Filename <> '' then begin
    if tiled then sTiled := '1' else sTiled := '0';
    SetRegistryData(HKEY_CURRENT_USER, '\Control Panel\Desktop',
      'TileWallpaper', rdString, sTiled);
  end;
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,
    Pointer(Filename), SPIF_UPDATEINIFILE);
end;

[Mihalis]

sinon y'a un composant jvcl qui fait ca avec un opendialog l'utilisateur peut choisir ce qu'il veut

[zizo89]

c'est résolu

[evarisnea]

c'est résolu

alors met la discussion en