Codes sources Delphi344 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

Voici comment lire et écrire une clé binaire dans votre base de registre.

Pour le défi Pascal 2012, il s'agit de réaliser un jeu librement inspiré d'un célèbre jeu de plateau créé par Max Kobbert : le Labyrinthe.
Il en existe plusieurs variantes mais rien ne vous empêche de créer la vôtre !

Le défi 2012 n'a aucune contrainte de plateforme ni de compilateur. Il est accessible tant aux débutants qu'aux développeurs confirmés : l'originalité et la créativité peuvent compenser le côté purement technique.

Règlement du défi
Téléchargez l'exécutable seul

Quand une application dispose d'un TImage servant de base de dessin avec align = alClent. Le Timage est redimensionné quand la fiche change de taille. Or le Bitmap conservé dans le TImage ne change pas de taille. Le programme donné ici permet de recréer le bitmap en conservant la partie d'image déjà créée.

Voici une unité contenant une procédure de transformation d'un metafichier Windows. Les metafichiers (wmf ou emf) sont des fichiers images contenant la description vectorielle d'un dessin. Ils ont l'avantage de pouvoir être redimensionnés sans perte de qualité. Par contre, leur modification en mémoire est assez fastidieuse.

Le source suivant vous permet d'appliquer plusieurs transformations à un de ces fichiers en mémoire : rotation (dans le sens inverse des aiguilles d'une montre, inversion (haut-bas) et miroir (droite-gauche).

Pour l'utiliser, passez le handle d'un TMetafile à la procédure en indiquant les transformations désirées.

Ce code source n'est pas parfait car la transformation de certains ordres G ... Voir la suite

KEYLOGGER, ou programme de suivi des touches appuyées sur l'ordinateur. Note importante : ce programme est fournit pour des besoin didactiques ainsi que pour présenter l'une des méthodes d'un KeyLogger. Vous êtes responsables de l'utilisation que vous ferez de ce source !Ce programme est basé sur l'utilisation des Hooks de windows. Les hooks permettent d'être avertis de certaines catégories d'évènements : clavier, souris...

Ainsi à chaque appui de touche une procédure du programme de suivi est appelée. Mais c'est là que les choses se compliquent : comme l'appel de procédure s'effectue dans l'environnement de l'application concernée, les variables du programme, même globales ne sont pas accessibles. C'est pourquoi la procédure app ... Voir la suite

Jeu de dames en réseauCe jeux est réalisé en collaboration avec Bestiol.

C'est un jeu de dames qui se joue en réseau. Nous l'avons programmé un jour ou on ne voulait plus jouer à Quake III, alors nous avons programmé ce jeu afin de faire fonctionner un peu plus nos neuronnes !

C'est un exemple d'utilisation des composants TClientSocket et TServerSocket.Pour jouer, c'est facile : celui qui veut jouer avec les blancs crée la partie, puis le joueur noir se connecte sur le PC des blancs. La légalité des coups est contrôlée en permanence. Il n'est donc pas possible de tricher.

Il s'agit juste d'obtenir la couleur d'un point de l'écran...

L'exemple donné ici montre comment obtenir et modifier la position d'une fenêtre, même si celle-ci est agrandie ou réduite. Il est ainsi possible de donner la position que doit avoir la fenêtre dans son état "normal" même si celle-ci est agrandie ou réduite. De même dans le cas d'une fenêtre réduite ( hors fenêtre principale ), il est possible d'obtenir et de modifier la position de cette fenêtre réduite.

Gestion des messages windows WM_SIZING et WM_MOVING pour contrôler le dimensionnement et le déplacement d'une fiche.

Ce source montre comment empécher le déplacement d'une fenêtre en redéfinissant le message WM_SYSCOMMAND.

La gestion des sessions windows, en particulier sous Win10, ne me convenait pas.
J'ai développé une micro application me permettant de fermer windows ou de le rebooter, de clôturer une session, de la verrouiller, de lancer le mode veille le tout à partir du systray.

Le zip contient toutes les sources nécessaires pour être recompilées par vos soins ou être incorporées selon vos besoins.

Programme élémentaire montrant une scène avec une source lumineuse, une caméra, la possibilité de faire un zoom, changer la distance focale de la caméra et de tourner autour de la scène.

Skifi est un moteur de jeu de dames écrit en Delphi par Serge Nefedov.

Se compile sous la forme d'une DLL compatible avec l'interface Kallisto GUI.

http://www.igorkorshunov.narod.ru/Draughts/Kallisto4.rar

Voici une fonction qui permet de faire "beeper" le haut-parleur de votre unité centrale.

Outil d'aide à la résolution de grilles papier de Sudoku. Il fournit une aide pour progresser étape par étape, et quand ça devient trop compliqué même pour lui, on peut créer un point de récupération, essayer une stratégie et revenir au point de récupération si elle échoue. Développé sous Delphi 7 Perso.

Déplacement d'un objet de forme quelconque sur une image de fond (version utilisant BitBlt de l'API de Windows).

Cet exemple a pour but de montrer comment ajouter un ou plusieurs éléments de menu dans le menu contextuel du shell de Windows. Cette méthode est plus complexe que le simple ajout de commandes dans la ruche correspondant au type de fichier dans la base de registre, mais elle présente de nombreux avantages. En particulier la possibilité de tester les fichiers sélectionnés avant l'ouverture du menu ainsi que celle de modifier le texte de l'item de menu en fonction des fichiers sélectionnés.

• Tutoriel : Extension du shell - Menu contextuel

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

Comment tuer un process de façon radicale.

Comment énumérer les clés et valeurs des registres.