Discussion :

[cincap]

Bonjour à toutes et à tous,

Quelqu'un connait t'il l'astuce pour copier une photo dans le dossier Windows sans Manifest et sans click droit en Administrateur.

En fait c'est pour l'image de fond de l'écran qui doit se trouver dans le dossier Windows à moins que elle peut être dans n'importe quel autre dossier ?

En Administrateur cela fonctionne mais j'obtiens la boite pour le choix.

Merci d'avance.

@+,

cincap

[ShaiLeTroll]

Utilise plutôt SystemParametersInfo SPI_SETDESKWALLPAPER et lit : https://www.developpez.net/forums/d2...ecran-windows/

[cincap]

@ ShaiLeTroll, merci de ta suggestion, dans une autre application j'utilise ce que tu me conseilles mais dans celle avec le hook pour afficher un calendrier sur le bureau j'utilise une autre façon.

Je choisis la photo, je crée une clé dans le registre puis à l'ouverture de l'application j'affiche le calendrier sur le bureau.

Code :

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

1
2
3
4
5
 
 
 PapierPeint := o_GetPathWinFolders(CSIDL_WINDOWS)+ '\MonPapierPeint.bmp';
 
 Lecturewallpaper;

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
 
 
Procedure TMonHookCalendrier.LectureWallpaper;
Begin
   With TRegistry.Create(KEY_ALL_ACCESS OR KEY_WOW64_64KEY) Do
   Try
      RootKey:=HKEY_CURRENT_USER;
      If OpenKey('Control Panel\Desktop',False) Then
      Begin
        If ValueExists('Wallpaper') Then
        FWallpaper := ReadString('Wallpaper') Else
        FWallpaper := '';
        CloseKey;
     End;
   Finally
     Free;
   End;
End;

J'ai essayé une autre façon mais sans succès.



@+,

cincap

[ShaiLeTroll]

Pour créer une sorte de Widget sur le bureau, tu peux aussi dessiner dessus directement au lieu de changer l'image de fond.
Même, faire une fenêtre transparente où tu te débrouilles pour qu'elle se restaure même en cas de Win+D, est à étudier.

Faudrait regarder d'ailleurs comment développer un vrai Widget


EDIT : tiens essaye ça, ça dessine sur le bureau, l'astuce c'est de combiner ces deux codes
Tu récupères le contenu du bureau, tu dessines sur cet extrait et tu remets ça à l'écran, le plus difficile c'est de trouver le bon moment, avec les Hooks pour choper les messages de Paint du bureau et des fenêtres qui sont par dessus ta zone de calendrier.

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 TFrmWindowsRegions.BtnDrawOnDesktopClick(Sender: TObject);
var
  hDesktopWindow: HWND;
  hDesktopWindowDC: HDC;
  hSolidBrush: HBRUSH;
begin
  // GetDesktopWindow() fourni le Handle du Bureau
  // GetWindowDC(...) si tu lui fourni le Handle du Bureau, tu obtiens une sorte de Canvas pour dessiner dessus
  // DrawFrameControl(...) tu lui fourni ton Canvas, et ça devrait simuler le dessin d'une fenêtre ...
  // ReleaseDC(...) Comme d'habitude, on laisse la place propre ...
 
  hDesktopWindow := GetDesktopWindow();
  hDesktopWindowDC := GetWindowDC(HDesktopWindow);
  if hDesktopWindowDC > 0 then
  begin
    hSolidBrush := CreateSolidBrush($00FF0000);
    FrameRect (hDesktopWindowDC, Rect(0, 0, 100, 100), hSolidBrush);
    DeleteObject(hSolidBrush);
 
    DrawFrameControl(hDesktopWindowDC, Rect(10, 10, 90, 90), DFC_BUTTON, 0);
    ReleaseDC(hDesktopWindow, hDesktopWindowDC);
  end;
end;

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
procedure TFrmWindowsRegions.PaintBoxDesktopPaint(Sender: TObject);
var
  hDesktopWindow: HWND;
  hDesktopWindowDC: HDC;
  hWindowDC: HDC;
begin
  // GetDesktopWindow() fourni le Handle du Bureau
  // GetWindowDC(...) si tu lui fourni le Handle du Bureau, tu obtiens une sorte de Canvas pour dessiner dessus
  // DrawFrameControl(...) tu lui fourni ton Canvas, et ça devrait simuler le dessin d'une fenêtre ...
  // ReleaseDC(...) Comme d'habitude, on laisse la place propre ...
 
  hDesktopWindow := GetDesktopWindow();
  hDesktopWindowDC := GetWindowDC(HDesktopWindow);
  if hDesktopWindowDC > 0 then
  begin
    BitBlt(PaintBoxDesktop.Canvas.Handle, 0, 0, PaintBoxDesktop.Width, PaintBoxDesktop.Height, hDesktopWindowDC, 0, 0, SRCCOPY);
 
    ReleaseDC(hDesktopWindow, hDesktopWindowDC);
  end;
end;

[cincap]

@ ShaiLeTroll, merci pour ta suggestion.

En testant j'ai remarqué que mon problème pouvait être résolut simplement en modifiant le chemin de la sauvegarde.

Code :

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

1
2
3
4
 PapierPeint :=  'C:\MonPapierPeint.bmp' ; //o_GetPathWinFolders(CSIDL_WINDOWS)+ '\MonPapierPeint.bmp';
 
 Lecturewallpaper;

Je peus donc fermer ce topic.

Encore merci.

@+,

cincap