Tous les téléchargements de Nono40

Associer une icône à une extension afin d'ouvrir votre application directement en double-cliquant sur le document.

Exemple d'utilisation de l'objet TList.
Ce source présente un exemple d'utilisation d'un objet TList associé à un Record. Cet objet permet de gérer facilement des listes d'objets, son utilisation est beaucoup plus simple qu'il n'y parait. L'exemple donné dans le source présente les fonctions de base de gestion d'un TList avec la gestion de reservation/libération de la mémoire en fonction de la création/destruction des éléments de la liste.

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

Dessin direct d'une icône affichée dans le systray.
NOTES : Ce programme affiche des barres de couleurs défilantes dans le systray. C'est un exemple de création dynamique d'icône afin de dessiner dans le systray.

Pour plus d'onformation sur l'utilisation des icones dans le systray, regardez le source 0027.

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.

Pour stocker vos icônes dans une dll, rien de plus simple.

Synchroniser deux ListBox afin que le premier élément affiché soit le même. NOTES : La synchronisation est assurée aussi pour avec l'utilisation de la roulette.

Tester si un fichier est déjà ouvert par une autre application.NOTES : Le principe de détection est basé sur un essai d'ouverture et le test du code d'erreur 32 indiquant une violation de partage.

Supprimer le scintillement des rafraichissements d'un fenêtre. NOTES : C'est un truc tout simple, et je ne sais plus ou je l'ai vu la première fois...

Ce source est aussi un exemple d'utilisation de la propriété ScanLine du TBitMap pour effectuer un dessin très rapide. Pour soucis de rapidité, le dessin du BitMap est réalisé en assembleur, c'est un des moments ou l'assembleur est le plus utile.

Le code présenté ici montre une fenêtre de sélection de couleur un peu comme celle de Windows. Activez ou non le double-buffer et déplacez rapidement le curseur de sélection de la couleur. Vour verez ainsi la différence de mise à jour.

Trier un TStringGrid suivant la première colone saisie. NOTES : Un truc tout simple pour ceux qui cherchaient...

Attention, c'est un tri à bulles. Il peut être lent si la taille de la grille est importante.

Programme d'exemple de l'utilisation de la fonction ReadDirectoryChangesW. NOTES : Ce programme montre l'utilisation de la fonction de sureveillance d'un répertoire de Windows NT.

C'est utile pour suivre les modifications apportées aux fichiers dans un répertoire.

Par exemple si vous affichez la liste de certains fichiers dans une ListBox ou un TreeView, il est possible de mettre la liste à jour seulement quand un fichier est ajouté et/ou supprimé. La surveillance est effectuée dans un autre Thread afin de ne pas bloquer l'application principale.Attention, ce programme ne fonctionne que sous Windows NT4, Windows 2000 et Windows XP et supérieurs

Réserver une partie de la mémoire en mémoire physique et non virtuelle. NOTES : ATTENTION : Se source ne fonctionne qu'avec Windows 2000 Pro et Windows XP Pro. D'autre part si vous êtes débutant ne l'utilisez pas, car des erreurs dans l'utilisation des fonctione AWE peut avoir des conséquences graves.Cet exemple est la traduction de celui de MSDN situé ici :

http://msdn.microsoft.com/en-us/library/Aa366531Pour que la réservation fonctionne, il faut que l'utilisateur est le droit de verrouiller des pages en mémoire. Ce n'est jamais le cas par défaut même pour les sessions administrateurs. Pour ajouter ce droit, il faut procéder comme suit ( Windows 2000 ... Voir la suite

Utiliser FindFirst en récursif pour scruter les sous-répertoires PRÉSENTATION : Utiliser FindFirst en récursif pour scruter les sous-répertoires

ZIP : Téléchargez le zip : miroir 1 , miroir 2 APERÇUS : NOTES : Cette exemple montre l'utilisation des procédures FindFirst, FindNext et Find close de manière recursive pour compter les fichiers d'un répertoire.

Présentation de la fonction API d'affichage d'une fenêtre avec animation

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.

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.

Ce programme affiche la liste des moniteurs NOTES :

Attention : ne fonctionne pas avec Windows95.

Méthode pour associer une bulle d'aide différente par cellule d'un TStringGrid.

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

Utilisation dans une application de curseurs stockés sous forme de fichier ou de ressource. NOTES : Cette méthode est décrite dans l'aide en ligne de Delphi sur la propriété TScreen.Cursors.

Ce programme n'est qu'une démonstration de la méthode.Les curseurs ajoutés peuvent être créés à partir de l'éditeur d'image de Delphi. Ce programme propose deux méthode de stockage des curseurs :

- La méthode à partir d'un fichier de ressource est préférable si les curseurs utilisés n'ont pas besoin de changer après l'écriture de l'application. Car le .RES étant intégré dans le fichier .EXE, il n'est pas necéssaire de garder les fichiers de curseurs pour la diffusion de l'application.

- La méthode à partir d'un fichier . ... Voir la suite