Screensaver avec preview+config en super simple !

5/5 (17 avis)

Vue 10 820 fois - Téléchargée 1 304 fois

Description

Ça fait au moins 6 mois que j' ai cette source sur mon disque et je ne l'ai jamais postée, je sais plus pourkoi :(

Je la poste pour tous ceux qui ont déjà voulu faire un ScreenSaver mais qui n' ont pas réussit à comprendre le fonctionnement des diverses exemples qui existent.

Dernière recomendation:
Utilisez plutot un timer que l' utilisation de application.ProcessMessage pour le dessin etant donné que application.ProcessMessage bloque pas mal le PC !!!

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
69
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
29 novembre 2006

Précisions:
L'astuce du dessus ne fonctionne que depuis NT. Pour 9x/ME, c'est le nom du fichier sans l'extension, et rien d'autre.
Messages postés
69
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
29 novembre 2006

Pour nommer votre screensaver avec un nom plus "parlant" que le nom du fichier sans son extension, linkez un fichier res dont la source est la suivante:

STRINGTABLE
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
1, "Le nom de mon screensaver"
}

Enregistrez ce fichier par exemple sous scrname.rc.

Puis pour le linker sous Delphi 7:
Tout d'abord, le compiler: brcc32 scrname.rc
Puis rajoutez cette déclaration dans votre code: {$R scrname.RES}

Sous Delphi 2005 et up:
Ajoutez le fichier scrname.rc aux fichiers du projet, il se compilera lors de la construction de votre application.
Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
5
Bem voilà,
je vois pas où était le problème ...
Messages postés
460
Date d'inscription
dimanche 5 décembre 2004
Statut
Membre
Dernière intervention
6 avril 2009
2
Salut,

Voici une des solutions pour ce problème.

uses IniFiles;

Dans la fiche config visible dans paramètres :

if OpenDialog1.Execute then begin
with TIniFile.Create('C:\Save.ini') do try
WriteString('audio','filename',OpenDialog1.FileName);
finally
Free;
end;
end;

Dans la fiche principale du screen saver:

with TIniFile.Create('C:\Save.ini') do try
MediaPlayer1.FileName := ReadString('audio','filename',{fichier par défaut});
MediaPlayer1.Open;
MediaPlayer1.Play;
finally
Free;
end;


A bientôt,

CINCAP
Messages postés
460
Date d'inscription
dimanche 5 décembre 2004
Statut
Membre
Dernière intervention
6 avril 2009
2
Salut,

Pas facile ma demande apparement.

Aucune réaction d'autres membres c'est bien dommage !.

Et pourtant j'ai une solution qui fonctionne.

J'attends vos idées.

CINCAP
Afficher les 17 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.