Codes sources Delphi353 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

Comment obtenir les coordonnées et l'état des boutons de la souris sans utiliser un hook système.

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.

Le résultat de la commande est converti en caractères Windows ou lieu de caractères DOS.

La question initiale était de savoir comment détecter qu'un changement est intervenu dans le presse papier. Après avoir cherché un peu dans les documentations de Microsoft, il apparait que la chose est techniquement assez simple car une API a été concue pour ça.

• Projet Clipboard Viewer

J'ai également intégré un projet dénommé MicroDemo qui ne contient que le code de détection.
Téléchargez MicroDemo.

Ce source présente une fonction simple de mise à l'heure du PC à partir d'une application Delphi. Elle utilise la fonction API SetSystemTime, l'heure passée en paramètre de cette fonction doit être celle de Greenwich. Elle est donc corrigée à l'aide de la fonction API GetTimeZoneInformation afin de déterminer le décalage horaire dû au fuseau, et le décalage dû à la période été/hiver.

Afficher le nom des constantes de définition d'un type énuméré.NOTES : C'est un truc tout simple pour afficher les nom de constante utilisés dans un type énuméré. Il permet aussi de déterminer l'indice dans le type en ne connaissant que le nom.Par exemple si on définit un type enuméré du style TMonTypeEnum=(mtUN,mtDEUX,mtTROIS), Delphi traite les variables de ce type comme des variables de type ordinal. Il n'est pas directement possible d'en afficher le nom comme on affiche un entier avec IntToStr. Le plus souvent on utilise un Case Of pour donner les noms :

Var t:TmonTypeEnum;

...

Case t Of

mtUn:LeNom:='mtUN';

mtDeux:LeNom:='mtDEUX';

mtTrois:LeNom:='mtTROIS';

End; ... Voir la suite

Mettre une image en fond d'un TStringGridNOTES : Cet exemple montre l'utilisation de l'évènement OnDrawCell d'un TStringGrid pour en changer le dessin.

Une image est ajoutée en fond, elle suit les déplacements des cellules en fonction des scrollbars. C'est à dire qu'une cellule est toujours située sur la même partie de l'image.

De plus l'utilisation de la fonction API DrawText permet de centrer le texte des cellules à la fois horizontalement et verticalement.

Éléphant schématisé (avec de bien plus jolies défenses).

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.

L'unité WinGraph de Stefan Berinde, retouchée pour être compatible avec Delphi XE et versions suivantes.

Le dossier .\original contient le paquetage original de WinGraph 1.1.

Le dossier .\demo\chessboard contient un échiquier basé sur l'unité WinGraph.

Jouer des Sons .MOD (nécessite la dll audiow32.dll).

Unité permettant d'utiliser la bibliothèque SDL_bgi.

Compatible avec Delphi et avec Free Pascal.

Approximation de la valeur de pi par la méthode de Monte-Carlo.

Softice est un débogueur (pour détecter les bugs d'une application. Il permet d’exécuter une application (plus précisément Windows) pas à pas.

Cela permet de savoir précisément où l'erreur existe.
Il permet aussi de voir le contenue de la mémoire et des registres à un moment d’arrêt.
Il est utile de s'avoir si Softice est en route, pour éviter les abus sur votre création par exemple.

SoftIce n'est pas à mettre entre toutes les mains, novice s'abstenir.

Le Caret est le petit curseur clignotant situé dans les composants EDIT de windows. Ce curseur indique la position d'insertion des caractères saisis au clavier. Il est possible de modifier ce curseur.

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.

Un utilitaire console Delphi qui fournit une aide interactive en indexant automatiquement une FAQ et en répondant par similarité sémantique. Le programme normalise les questions, génère des tokens et des bigrams, construit des vecteurs TF‑IDF (IDF légèrement renforcé) et recherche la meilleure réponse via similarité cosinus.

Il inclut une génération automatique d’une table de synonymes à partir des questions, un fallback basé sur tokens uniques et bigrams pour les requêtes courtes ou mal formulées, un menu de suggestion quand aucune réponse n’est trouvée.

L’affichage utilise des couleurs console pour distinguer prompt, question, réponse et erreurs.

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

Cet exemple montre l'utilisation des fonctions FindFirstPrinterChangeNotification et FindNextPrinterChangeNotification afin de surveiller les évènement liés à un serveur d'impression.
Pour l'instant le source montre comment surveiller le serveur local. Je n'ai pas eut pour le moment la possibilité d'essayer sur un serveur distant.

Ce source ne fonctionne que sous Windows NT/2000/XP ou supérieur.

Ce programme est une adaptation d'un programme de Earl F. Glynn disponible ici : Lyapunov Exponents.

Ce programme reste à compléter dans ces fonctionnalités surtout dans la coloration. Il reste aussi à réaliser l'aide en ligne ou au moins les Hint.

Il sera certainement mis à jour dans le futur... De même, si vous trouver des dessins intéressants, vous pouvez m'envoyer les caractéristiques par mail en donnant la séquence, et les intervalles pour a et b. (ne pas m'envoyer d'images SVP).
Une gallerie sera aussi ouverte dans le futur avec les exemples les plus marquants.