Codes sources Delphi349 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

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.

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.

Ceci est pour corriger le problème de Delphi sur TRadioGroup.SetFocus, car dans ce cas le focus n'est pas placé sur un des boutons du composant. Le clavier n'est donc ensuite pas utilisable pour changer la valeur du RadioGroup.
Le code présenté ici permet de mettre le focus directement sur l'un des boutons du groupe.

EasyFindStr

Programme destiné à faciliter ou à expliquer l'utilisation de la commande FINDSTR.

La commande FINDSTR permet de chercher une chaîne dans un ensemble de fichiers. Pour connaître
toutes les options de cette commande, ouvrez l'Invite de commandes et tapez "help findstr".

Projet Delphi 10.1 Berlin.

Ce source présente une méthode simple pour enregistrer et lire des composants dans un fichier.

La description de la méthode employée est dans les commentaires du source.
Attention : dans le cas de sauvegarde de composants personnalisés, seules les propriétés ( au sens POO ) sont enregistrées.

Pour tester la méthode, il suffit de lancer l'application. De créer un panneau avec le bouton "créer". Puis de l'enregistrer dans un fichier avec le bouton "sauver...". Ensuite pour relire le fichier il suffit de détruire le panneau actuel, ou de fermer/relancer l'application. Le bouton "Charger" permet alors de lire une sauvegarde du panneau avec tous ses boutons.

Conversion de caractère en code ASCII.

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

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.

Sprays de formes et de comportements divers.

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.

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);

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.

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.

Voici un programme sur une structure de données : les arbres n-aires.

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.

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.

Comment exécuter les fichiers CPL de votre système.

Comment ouvrir une form dans un conteneur, comme un TPanel par exemple.

Ce programme permet de jouer au Taquin.

Une image est montrée à l'utilisateur puis elle est "mélangée" et l'utilisateur doit la reconstituer en déplaçant le "trou".

• Téléchargez l'exécutable.