Codes sources Delphi353 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

Différencier les touches ENTER des pavés numériques et alphabétiques NOTES : Les évènements OnKeyDown et OnKeyup, ne permettent pas de faire cette différence. Seule l'interception des messages windows permet de faire la différence. Pour plus d'information il faut regarder l'aide en ligne sur le message WM_KEYDOWN.

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

Dessin à l'aide d'un StringGrid

Dégradé, fixe et animé, dans un StringGrid.

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

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.

Dégradé entre deux couleurs.

Comment activer ou désactiver l'autorun d'un lecteur CD.

Le nom de ce programme peut être généré par le programme lui-même. Découvrez des dizaines de milliers de nouveaux mots.

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.

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.

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].

Démonstration de l'utilisation de scanline. Par exemple rendre une image floue, supprimer une composante de couleur ou la faire "glisser".

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

Cette fonction retourne True si la résolution à été changée avec succès. Si le paramètre Memoriser est à True, le changement est inscrit dans le registre et est donc permanent.

Ce programme permet à l'utilisateur de dessiner des rectangles et/ou des ellipses sur la fenêtre du programme. Ensuite il supprime l'intérieur des figures spécifiées et la fenêtre devient transparente à ces emplacements.

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.

Configurer un curseur personnel.

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.