Quelle unité déclarer pour avoir l'interface IActiveDesktop ?

**Jon Shannow** · 27/04/2017, 12h55

Bonjour à toutes et tous,

Je cherche un moyen simple de changer le fond d'écran par programmation.
J'ai trouvé un exemple sous Delphi, mais je n'arrive pas à le porter sous Lazarus car je ne sais pas dans quelle unité est déclarée IActiveDesktop.

Voici le source

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
16
17
18
19
20
21
22
23
 
Procedure P_changefondecran(Const Stp_image : String; Wp_style : Dword);
const
  GUID: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
  ComObj       : IUnknown;
  Buffer       : PWideChar;
  WallPaperOpt : TWallPaperOpt;
begin
  if not FileExists(Stp_image) then Exit;
  Buffer := AllocMem(MAX_PATH);
  StringToWideChar(Stp_image, Buffer, MAX_PATH);
  WallPaperOpt.dwStyle := wp_Style;
  WallPaperOpt.dwSize := SizeOf(WallPaperOpt);
  ComObj := CreateComObject(GUID);
  with ComObj as IActiveDesktop do
  begin
    SetWallpaperOptions(WallPaperOpt, 0);
    SetWallpaper(Buffer, 0);
    ApplyChanges(AD_APPLY_ALL); //(AD_APPLY_ALL or AD_APPLY_FORCE);
  end;
  FreeMem(Buffer);
End;

J'ai mis les unites shlobj, comobj, et shellapi.
Dans ShellApi, j'ai trouvé ces lignes

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
16
17
////////////////////////////////////////////
// Flags for IActiveDesktop::ApplyChanges()
    AD_APPLY_SAVE             = $00000001;
    AD_APPLY_HTMLGEN          = $00000002;
    AD_APPLY_REFRESH          = $00000004;
    AD_APPLY_ALL              = (AD_APPLY_SAVE or AD_APPLY_HTMLGEN  or  AD_APPLY_REFRESH);
    AD_APPLY_FORCE            = $00000008;
    AD_APPLY_BUFFERED_REFRESH = $00000010;
    AD_APPLY_DYNAMICREFRESH   = $00000020;
 
////////////////////////////////////////////
// Flags for IActiveDesktop::GetWallpaperOptions()
//           IActiveDesktop::SetWallpaperOptions()
    WPSTYLE_CENTER      = 0;
    WPSTYLE_TILE        = 1;
    WPSTYLE_STRETCH     = 2;
    WPSTYLE_MAX         = 3;

Je me dis donc, que IActiveDesktop doit bien être déclaré quelque part... mais impossible de trouver où !

Quelqu'un a déjà utilisé ça ?

Merci d'avance

JS

**BeanzMaster** · 27/04/2017, 14h22

Salut essayes JwaShlGuid, faudras peut-être rajouté JwaWinBase aussi et ou Win32Extra mais cette dernière est optionnelle je pense.

A+

**FChrisF** · 27/04/2017, 14h45

Apparemment, il en manque plusieurs morceaux (même dans les unités Jedi, sauf erreur de ma part).

Voici une conversion rapide (non testée) récupérée et modifiée à partir d'une vielle déclaration Delphi:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses
  Windows, ShlObj;
 
const
  // (CLSID_ActiveDesktop different in ShlObj for Free Pascal/Lazarus ?)
  SID_IActiveDesktop     = '{F490EB00-1240-11D1-9888-006097DEACF9}';
 
type
  IActiveDesktop = interface(IUnknown)
    [SID_IActiveDesktop]
    function ApplyChanges(dwFlags: DWORD): HResult; stdcall;
    function GetWallpaper(pwszWallpaper: PWideChar; cchWallpaper: UINT; dwReserved: DWORD): HResult; stdcall;
    function SetWallpaper(pwszWallpaper: PWideChar; dwReserved: DWORD): HResult; stdcall;
    function GetWallpaperOptions(var pwpo: TWallPaperOpt; dwReserved: DWORD): HResult; stdcall;
    function SetWallpaperOptions(var pwpo: TWallPaperOpt; dwReserved: DWORD): HResult; stdcall;
    function GetPattern(pwszPattern: PWideChar; cchPattern: UINT; dwReserved: DWORD): HResult; stdcall;
    function SetPattern(pwszPattern: PWideChar; dwReserved: DWORD): HResult; stdcall;
    function GetDesktopItemOptions(var pco: TComponentsOpt; dwReserved: DWORD): HResult; stdcall;
    function SetDesktopItemOptions(var pco: TComponentsOpt; dwReserved: DWORD): HResult; stdcall;
    // (TShComponent renamed in TIE4Component for Free Pascal/Lazarus)
    function AddDesktopItem(var pcomp: TIE4Component; dwReserved: DWORD): HResult; stdcall;
    function AddDesktopItemWithUI(hwnd: HWND; var pcomp: TIE4Component; dwReserved: DWORD): HResult; stdcall;
    function ModifyDesktopItem(var pcomp: TIE4Component; dwReserved: DWORD): HResult; stdcall;
    function RemoveDesktopItem(var pcomp: TIE4Component; dwReserved: DWORD): HResult; stdcall;
    function GetDesktopItemCount(var lpiCount: Integer; dwReserved: DWORD): HResult; stdcall;
    function GetDesktopItem(nComponent: Integer; var pcomp: TIE4Component; dwReserved: DWORD): HResult; stdcall;
    function GetDesktopItemByID(dwID: DWORD; var pcomp: TIE4Component; dwReserved: DWORD): HResult; stdcall;
    function GenerateDesktopItemHtml(pwszFileName: PWideChar; var pcomp: TIE4Component; dwReserved: DWORD): HResult; stdcall;
    function AddUrl(hwnd: HWND; pszSource: PWideChar; var pcomp: TIE4Component; dwFlags: DWORD): HResult; stdcall;
    function GetDesktopItemBySource(pwszSource: PWideChar; var pcomp: TIE4Component; dwReserved: DWORD): HResult; stdcall;
  end;

**Jon Shannow** · 27/04/2017, 15h50

@BeanzMaster, les unités que tu m'as dit d'ajouter n'ont rien changé...

Par contre la solution de FChrisF a parfaitement fonctionné.

Merci à vous deux.

JS