Changeur de papier peint aleatoire (systray icon, config base de registre, multilangue-auto)

Soyez le premier à donner votre avis sur cette source.

Vue 10 004 fois - Téléchargée 837 fois

Description

Un petit code pour pouvoir changer son papier peint de facon aleatoire durant l'execution d'une session.

utilisation :

Au lancement l'icone se met dans la barre des tache.

double clique, ou menu/Configuration pour avoir la fenetre de configuration.

faire glisser un fichier sur la fenetre pour l'ajouter a la liste.
selectionne et tapper suppr pour efface un fichier de la liste.

en bas la frequence de changement en dizaine de secondes, l'option etirer et couleur de fond.

double click sur la preview pour test plein ecran.

c'est pas tres compliqué (enfin j'espere)

Conclusion :


mon code est fortement inspire de source trouver sur ce site , Merci a tous.

sauf suggestion (ou bug ;) ) ca devrait etre la version final.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
GordoCabron
Messages postés
29
Date d'inscription
jeudi 16 décembre 2004
Statut
Membre
Dernière intervention
14 mars 2007

9 févr. 2005 à 15:56
merci mais c'est pas ca le probleme.

ta solution (EInvalidGraphic ) marche tres bien avec un fichier inexistant (c'est deja dans mon code), mais si on a un jpeg invalide on a toujours la fenetre JPEG error #41.
Mais si tu es en mode conception (c-à-d que c'est Delphi que execute ton appli), les messages d'erreur apparaissent: c'est le seul moyen de savoir que l'on a réussi à le catcher.

Mais, après, hors de Delphi, plus de soucis.

@ +++

Florent
mais c'est tout simple:

uses [...], jpeg;

procedure test;
var
Jpeg: TJpegImage;
begin
Jpeg:=TJpegImage.Create;
try
Jpeg.LoadFromFile('E:\\MauvaisFichier.jpg');
Image1.Picture.Assign(Jpeg);
except
on EInvalidGraphic do
MessageDlg('Ca ne vas pas',mtError,[mbOK],0);
end; // try
end;

Ici le TjpegImage n'est là que pour faire joli: pour prouver que cela marche en incluant un contexte.
GordoCabron
Messages postés
29
Date d'inscription
jeudi 16 décembre 2004
Statut
Membre
Dernière intervention
14 mars 2007

9 févr. 2005 à 13:46
merci mais mon probleme c que delphi dit a la compile qu'il ne connais pas EJPEG, donc le try except ne marche pas dans la mesure ou je peut pas le compiler.
Avec On E:Exception, le filtre le plus large ca marche pas non plus, la je sais pas pourquoi et donc impossible de choper le message d'erreur avant qu'il ne s'affiche, donc pas de GetLastError non plus.

J'ai rien trouver sur le net se refferant a ca.
Si vous vouler tester le probleme ouvrez un fichier texte renomer en .jpeg (donc un fichier jpg invalide) dans un TImage, Avec 'uses JPEG,....' bien sur.
cs_MAURICIO
Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
5
9 févr. 2005 à 10:52
Salut à toi GordoCabron!

Voilà un truc qui t' aidera je pense:
GetLastError renvoi la dernière erreur.
Afficher les 7 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.