begin process at 2010 02 10 11:40:28
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

API

 > WALLPAPER - CHANGEMENT AUTOMATIQUE DU FOND D'ECRAN

WALLPAPER - CHANGEMENT AUTOMATIQUE DU FOND D'ECRAN


 Information sur la source

Note :
6 / 10 - par 1 personne
6,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :API Classé sous :wallpaper, ecran, systemparametersinfo, fond, desktop Niveau :Débutant Date de création :13/04/2007 Date de mise à jour :14/04/2007 23:55:06 Vu / téléchargé :12 195 / 864

Auteur : redrad

Ecrire un message privé
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

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


 Conclusion

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

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

14 avril 2007 13:36:19 :
Ajout des 2 fichiers manquant (TXiPanel et TPiconeBarreTache) et correction du code en fonction des commentaires
14 avril 2007 23:55:06 :
Ajout des 2 fichiers manquant plus prise en compte des commentaires

 Sources de la même categorie

Source avec Zip NEXTGENS -> UNITÉS DE TYPES ÉVOLUÉS NOUVELLE GÉNÉRATION (DE... par f0xi
Source avec Zip Source avec une capture AUTO-COMPLÉTION D'UN CONTRÔLE DE SAISIE par Bacterius
Source avec Zip CARDS GAME SDK 1.0.0.0 par f0xi
Source avec Zip Source avec une capture TRAYICON - VOTRE ICONE DANS LA BARRE DES TACHES par Bacterius
Source avec Zip Source avec une capture WINHIDER _ CACHER UN PROGRAMME DE L'ÉCRAN ET DE LA BARRE DE ... par soldier8514

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture SCREENCAMTURE 0.2 par JulioDelphi
Source avec Zip Source avec une capture BLOODSAVER (LE PLUS GORE DES SCREENSAVERS) par Bacterius
Source avec Zip Source avec une capture COMPOSANT TDESKTOP par Bacterius
Source avec Zip Source avec une capture WALLPAPER ET CALENDRIER par akkroch
Source avec Zip Source avec une capture WALLPAPERCAM par regismarion

Commentaires et avis

Commentaire de f0xi le 13/04/2007 16:45:25 administrateur CS


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


Commentaire de f0xi le 13/04/2007 21:08:53 administrateur CS

modification du titre et de la categorie.

Commentaire de redrad le 13/04/2007 23:17:38

Ok merci pour ces commentaires je ferai mieux quand j'aurai un peu plus de temps.

Commentaire de pulco42 le 29/08/2007 09:51:11

Et qd meme un petit merci à toi, pour ce petit programme pratique.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Problème avec SystemParametersInfo (changement fond ecran) [ par John Dogget ] Bonjour à tousJ'utilise cette fonction des API pour changer le fond d'ecran SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar('Wallpaper.BMP'),SPIF_UP image en fond d'ecran [ par alex_lecool85 ] j'ai cherché dans le forum mais je n'ai pas trouvé comment mettre une image en fond d'écran et la définir en mosaïque ou en étiré. Si vous avez le co couleur de fond d'un objet ole word [ par daiv36 ] Je souhaite faire un diaporama avec des fichiers word.Tous fonctionne parfaitement ... le seul hic, c'est que le fond de toutes les pages s'affichent Ecran de chargement en OpenGL [ par CptPingu ] Bonjour a tous. J'ai essayer de creer un ecran de chargement, avec une barre de progression. En petit ecran ca marche parfaitement, mais en plein ecra Ecran en 600*800 [ par Kristel60 ] Bonjour,Je cherche &#224; forcer le parametrage de l'ecran en 600*800 au moment de l'&#233;x&#233;cution du programme.Merci de m'aider car je ne trouv Gestion Ecran des Carte Graphique [ par Filipe35 ] bonjour,savez-vous comment g&#233;rer les sorties de nos cheres cartes graphiques ?(dans le genre de TvTool)Aussi savez-vous koi chercher sur google.f image de fond et composant [ par bilou2000 ] bonjour.Voila j'arrive a afficher une image de fond dans ma form, seulement je voufrais que cette image soit affich&#233;e aussi dans mon DBCTRLGRID c couleur de fond pr 1 bouton BitBtn [ par rafraf6 ] Bonjour,Tout est ds le sujet. Je cherche depuis un moment et je ne trouve rien a ce sujet.C est pas la couleur du caption que je veux changer mais le redimossionner le Desktop [ par koaiz ] Salut les Pro Dans mon projet je cree une bar comme celle de windows (Bar des Taches) je veutau dessu de celle de windows et la metre en premier plan couleur de fond d'une cellule de stringgrid HELP PLZ [ par almouminoun ] bonjour &#224; tout le monde, enfaite je suis un etudiant en informatique, et je voudrais faire un petit&nbsp;programme genre serveur et multiclient,


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,796 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales