Screensaver avec preview+config en super simple !

Soyez le premier à donner votre avis sur cette source.

Vue 10 735 fois - Téléchargée 1 271 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
2233
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
490
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
490
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.