Wallpaper - changement automatique du fond d'ecran

Soyez le premier à donner votre avis sur cette source.

Vue 15 938 fois - Téléchargée 1 122 fois

Description

Permet de modifier votre fond d'écran aléatoirement

Conclusion :


Soyez tolérant c'est le premier programme que je poste.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

pulco42
Messages postés
1
Date d'inscription
dimanche 14 mars 2004
Statut
Membre
Dernière intervention
29 août 2007

Et qd meme un petit merci à toi, pour ce petit programme pratique.
redrad
Messages postés
8
Date d'inscription
jeudi 24 avril 2003
Statut
Membre
Dernière intervention
10 août 2007

Ok merci pour ces commentaires je ferai mieux quand j'aurai un peu plus de temps.
f0xi
Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
2 janvier 2019
27
modification du titre et de la categorie.
Je confirme f0xi avec deux détails en plus:
- Le titre "WALLAPER" devrait au moins être "WALLPAPER" ou mieux : "MODIFIER ALÉATOIREMENT LE WALLPAPER"
- Si la modification est aléatoire, ce n'est pas comme "bon nous semble" (cf. description) ^^ :-)
f0xi
Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
2 janvier 2019
27
ou sont les unité de TXiPanel et TPiconeBarreTache ??!

pense a nettoyer ton zip...

pense a indenter ton code correctement...

apprend a utiliser les blocs try ... finally :

with TRegistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
if OpenKey('\Software\Wallpaper',True) then
begin
WriteString('Historique',cheminAStocker);
CloseKey;
end;
finally
Free;
end;


ImageJpg := TJPEGImage.Create ;
try
Bmp := TBitmap.Create ;
try
ImageJpg.LoadFromFile(Tableau[Aleatoir]);
Bmp.Width := ImageJpg.Width;
Bmp.Height := ImageJpg.Height;
Bmp.Canvas.Draw(0,0,ImageJpg);
Tableau[Aleatoir]:= WindowsDirectory + '\ConvertImageWallpaper.bmp' ;
Bmp.SaveToFile(Tableau[Aleatoir]);
finally
Bmp.Free;
finally
ImageJpg.Free;
end;


Randomize ne s'appel qu'au debut du programme...


il n'est pas necessaire de mettre des paramthese a une condition unique :

If FindFirst(Chemin+'*.bmp',faAnyFile,Info) = 0 Then

sauf dans ce cas :

If not ( (Info.Attr And faDirectory) = 0 ) Then


on n'indique jamais la valeur TRUE ou FALSE d'un booléen dans une condition :

If CheckBox1.Checked = true Then <--- Mauvais
If CheckBox1.Checked = false Then <--- Mauvais
If CheckBox1.Checked Then <--- Bon
If not CheckBox1.Checked Then <--- Bon

pour gagner du temps, lors de la modification d'une liste (combobox, listbox, memo etc) :

ComboBox1.Items.BeginUpdate;
ComboBox1.Clear;
For i := 1 to 365 do
ComboBox1.Items.Add(IntToStr(i));
ComboBox1.Items.EndUpdate;


on respecte les convention de la langue francaise ;) :
Jour(s)
Heure(s)
Minute(s)
Seconde(s)
cochez la(les) case(s) correspondante(s)

on ne mets jamais d'espaces entre le mots et l'ajout, sinon ça donne

cochez la (les) case (s) correspondante (s)

et on comprend moins vite...



ça par contre :

font.Style:=[fsBold];
font.Style:=[fsItalic];

ça sert a rien puisque tu vire le style bold pour italic...

soit tu fait :

font.Style := [fsItalic]; // italic uniquement

ou

font.Style := [fsBold, fsItalic]; // italic + bold

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.