Codes sources Delphi349 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

Lecture du numéro de version de l'exécutable tel qu'il apparait dans les options du projet.
NOTES : Pour que votre application contienne un numéro de version standard il faut suivre les opérations suivante :

- Menu Projet->Options...

- Onglet "Numéro de version"

- Cocher la case "Inclure les informations de version dans le projet"
Ce numéro apparait aussi dans l'explorateur lors d'un click droit sur le fichier .exe.

Ce source corrige celui donné en exemple dans l'aide de Delphi sur la lecture du numéro de version

Implémentation des fonctions KeyPressed et ReadKey semblables aux fonctions du Turbo Pascal. NOTES : Ces deux fonctions sont utilisables pour les applications en mode console.KeyPressed permet de savoir si une touche est appuyée, sans la lire et sans bloquer l'application.ReadKey permet de lire une touche du clavier, si aucune touche est en attente, alors ReadKey attend la prochaine touche appuyée. Pour ne pas bloquer l'application il faut appeler ReadKey seulement si KeyPressed est à True.

C'est un petit utilitaire qui permet de faire des copies d'écran directement en .JPGNOTES : Cette fonction utilise la fonction API GetAsyncKeyState() permettant de connaitre l'état appuyé ou relâché des touches, même si l'application n'est pas active.

Pour réaliser une copie d'écran il suffit d'appuyer sur la touche... PrintScreen du clavier. L'image sera alors enregistrée dans le répertoire spécifié dans la fenêtre de l'application. Le nom de l'image est de la forme 'imagexxx.jpg' ou xxx est incrémenté à chaque copie d'écran.

Souvent, dans mes applications je propose à l'utilisateur le choix d'un style différent à partir d'une liste ou en recherchant un fichier d'extension style.
Il y a plusieurs manières de procéder pour appliquer le style choisi soit en chargeant le TStyleBook de la forme soit en utilisant le TSyleManager mais là n'est pas mon propos.

Je voulais montrer la dominance de couleur d'un style avant même de l'appliquer au programme. Pas si simple quand l'on se penche sur le contenu de ces fichiers de style !

Je vous propose cette solution qui va extraire la couleur de fond.

Petite démo pour montrer le principe d'utilisation de TBitMap.ScanLine.
Ce programme montre aussi un exemple simple de thread auxiliaire afin de rendre fluide une animation sans avoir recours à DoubleBuffered qui ralentit énormément les animations.
L'utilisation de GetTickCount permet d'avoir une vitesse d'animation à peu près constante suivant les PC.

Pour pallier au fait que les aperçus ne sont que des images fixes... Voici la version compilée du programme : source0069.exe.zip [200Ko].

Quelques manières d'utiliser l'explorateur.

Utile par temps chaud. Un ventilateur pivotant avec l'hélice qui tourne.

CmdMax est une petite application Windows permettant de maximiser la fenêtre de l'interpréteur de commandes, afin que celle-ci occupe toute la hauteur et toute la largeur de l'écran. Il est également possible de passer des paramètres à l'application pour choisir la position de la fenêtre et ses dimensions (voir exemples dans les commentaires du code source).

CmdMax a originellement été écrit en C.

La compilation de CmdMax a été testée avec Delphi 7, Delphi XE2 et Free Pascal 2.6.4.

Simple lecteur d'animations Flash. Projet Delphi XE2.

Faites glisser l'animation de votre choix sur le lecteur. En s'ouvrant le lecteur s'adapte à la taille de l'animation.

Inclut le code source d'un échiquier Flash. Projet FlashPascal 2.

Pour créer ce lien il faut suivre les étapes suivantes :
1 - Ajouter un label sur une fiche ;
2 - Définir un police avec le style souligné ( Label1.Font.Style=[fsUnderline] ) ;
3 - Modifier le curseur du label ( Label1.Cursor=crHandPoint ) ;
4 - Ajouter un Hint sur le label ( Label1.ShowHint=True et Label1.Hint='Visitez mon site :' ) ;
5 - Sur le OnClick ajouter le code ci-dessous :

Procedure TForm1.Label1Click(Sender: TObject);
Begin
ShellExecute(Handle,'OPEN','http://nono40.fr.st',Nil,Nil,SW_SHOW);
End;

Il faut ajouter ShellApi dans le Uses pour que le code fonctionne.

Voir ici pour une description complète de cette méthode : Utilisation des fichiers typés sous Delphi 8.

Ce source a pour but de montrer comment modifier les droits d'un compte pour des fonctions particulières. Par exemple pour la sauvegarde d'une partie de la base de registre un compte doit avoir le droit SE_BACKUP_NAME.

L'utilsation de la fonction ci-dessous est simple :
- Pour activer un droit :
LoggedSetPrivilege(GetCurrentProcess,'SeBackUpPrivilege',True);
- Pour desactiver un droit :
LoggedSetPrivilege(GetCurrentProcess,'SeBackUpPrivilege',False);

le programme Tree.pas permet affiche un Sapin de Noël avec lequel on peut créer des animations lumineuses et les tester, le but n'est pas d'afficher un beau Sapin graphique mais de créer une figure de 8 LED avec un ordre d'affichage et un temps d'allumage et de la tester avant de générer un fichier TXT de cette figure qui s'intègrera dans un programme fait pour un ATTiny13 (ou pour plus de mémoire un ATTiny45 ou 85) écrit pour le logiciel Arduino ou pour le logiciel Amtel Studio 6.2. [b][/b][b][/b]

Voici une procédure qui n'est pas gourmande. Elle permet d'écrire dans la base de registre (des strings) en utilisant seulement l'unité Windows.

Comment lister toutes les extensions connues de votre PC dans un ListView.

Jeu d'échecs écrit par Marcel Poots, incluant un adversaire artificiel.

Le code source a été légèrement retouché, sans conséquence sur le fonctionnement du programme, pour être compilé avec Delphi 7.

Le jeu a une option "Internet" (non testée). Cette fonctionnalité est basée sur la bibliothèque Indy.

Ce programme montre une méthode basée sur le APIs pour obtenir la liste des icônes du bureau et éventuellement de modifier leur position.
Cette méthode explique la mise en place d'une zone mémoire accessible par l'application dont on veut lire/modifier des informations.

Je vous propose un petit tour en forêt autour d'un feu de camp. Le tout en 3D avec Firemonkey et avec moins de 90 lignes de codes !
Je n'utilise pas de moteur de particules pour gérer les flammes mais simplement des TPlane que je déplace, réduis et fais tourner pour donner une illusion de flamme.

Petit bonus, le trackbar en bas de a fenêtre permet de simuler la présence du vent plus ou moins fort sur l'axe X. Pour de plus amples informations, j'ai commenté le code source fourni.

A part la piteuse texture utilisée pour les flammes (je ne suis pas graphiste), les autres textures ne sont pas de moi : elles proviennent d'images libres trouvées sur internet.

En plus de la conversion ce programme affiche l'heure en Binaire sur une image de fond représentant un circuit électronique
pour convertir un nombre entrez ce nombre dans la fenêtre de conversion
et cliquez sur le bouton de la base à laquelle il appartient, la traduction
s'affichera dans les deux autres bases.
Exemple: pour 2AF cliquer sur le bouton H pour l'affichage dans toutes les bases
l'heure binaire est indépendante et change toutes les secondes.

Cette application montre comment obtenir la liste des process en cours. Puis sur un process particulier comment obtenir la liste des threads et enfin la listes des fenêtres principales afin de leur envoyer une demande de fermeture.