Changeur de fond d'écran

Soyez le premier à donner votre avis sur cette source.

Vue 7 629 fois - Téléchargée 1 303 fois

Description

C'est un petit programme que j'ai écris pour une utilisation perso, il permet :
- de changer de fond d'écran au démarrage de windows, et en fonction d'un timer
- on peut bien sûre choisir la manière dont sera affiché l'image : étiré, mosaïque etc
- on peut voir un aperçu de l'image avant de la mettre en fond d'écran
- le programme surveille le dossier contenant les images pour inclure les nouvelles dans la liste

Source / Exemple :


-> Zip
Compilé avec Delphi 2007, sous Vista familiale SP2

Conclusion :


Pas de bug constaté mais la réduction dans la barre des tâches au démarrage me pose quelques problèmes et ne marche pas tout à fait comme je voudrais.
En faîtes Application.ShowMainForm:=False ne semble pas être pris en compte X_X

Un certains nombre de fonctions ne sont pas de moi, j'en ai indiqué les réferences en commentaires dans le code.

Le programme peut sembler bridé par rapports à certaines fonctions qu'il utilise, c'est un choix perso parce que je n'avais pas besoin de plus de fonctionnalités.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
33
Date d'inscription
dimanche 3 avril 2005
Statut
Membre
Dernière intervention
14 février 2009

Bonjour John Dogget,
Je viens de tester ton appli,et j'ai un petit commentaire :
J'ai un système à 2 moniteurs,avec extension du desktop sur le 2ème ce qui fait que tous tes écrans sont à cheval sur les 2 moniteurs.
Pour corriger, il faut mettre les positions des écrans à poScreenCenter au lieu de poDesktopCenter.
D'autre part, est-il possible de mettre une image différente sur le 2ème moniteur ?
Sinon, l'appli marche bien.
Messages postés
384
Date d'inscription
vendredi 18 juin 2004
Statut
Membre
Dernière intervention
7 mai 2009

Mise a jour !

Le bug de la liste vide est en principe corrigé, je dis en principe parce qu'en fait je suis pas arrivé à le reproduire ^^

Le TrayIcon est codé "en dur" dans l'appli, c'etait moins compliqué que je ne pensais.

Par contre, le démarrage en mode reduit réagit toujours bizaremment ...
Messages postés
384
Date d'inscription
vendredi 18 juin 2004
Statut
Membre
Dernière intervention
7 mai 2009

Bien ...

La prise en charge de plusieurs format c'est bon, je viens de finir et ça marche (très) bien, l'application voit et liste tous les fichiers images.
Pour l'instant j'ai mis les BMP, GIF et JPG mais on peut facilement en rajouter.
D'ailleurs je suis assez fier de moi pour la fonction qui liste tout ça (huhu ^^).

Le try..except, c'est facile donc on va dire que c'est bon.

La je suis sur la création d'une TrayIcon avec les API.

J'avance bien, ptete une MAJ ce soir, sinon demain.
Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
12
Toujours la même chose..
et si on choisit un dossier ne contenant pas de fichier à extension d'image valide-->>plantage
ce qui pourrait être eviter avec un Try Except End
pour les autres extensions, il faut soit convertir, soit tester.
et la fonction de notre cher japee fonctionne avec un fichier .bmp :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
uses ShlObj, ComObj, Jpeg;

procedure ApplyWallPaper(const FileName: string; wpStyle: DWORD = WPSTYLE_CENTER);
const
GUID: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
ComObj : IUnknown;
Buffer : PWideChar;
WallPaperOpt : TWallPaperOpt;
begin
if not FileExists(FileName) then Exit;
Buffer := AllocMem(MAX_PATH);
StringToWideChar(FileName, Buffer, MAX_PATH);
WallPaperOpt.dwStyle := wpStyle;
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;

procedure TForm1.Button1Click(Sender: TObject);
begin
ApplyWallPaper('c:\essai\Aquarium.bmp',0);
end;

end.
Messages postés
384
Date d'inscription
vendredi 18 juin 2004
Statut
Membre
Dernière intervention
7 mai 2009

T'inquietes ^^

La partie qui doit mettre une image en fond d'écran devrait normalement accepter n'importe quel format image pris en charge par windows, dixit japee l'auteur de cette fonction :p

Non c'est juste le listage des fichiers qui ne doit voir que les fichiers jpg.

C'est pour cette raison que j'aimerais bien que cantador me dise ce qui va pas.
Afficher les 44 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.