Comment obtenir la representation (string) d'un code d'erreur |
procedure Tform1.Button1Click(Sender: Tobject); | ||
|
Comment utiliser la boite de dialogue de recherche d'un fichier |
procedure Tform1.Button1Click(Sender: Tobject); | ||
|
Comment effacer une console windows |
program Project1; | ||
|
Comment écrire de deux couleurs différentes dans une barre d'état |
procedure Tform1.StatusBar1DrawPanel(StatusBar: TStatusBar; | ||
|
Comment détruire un répertoire ainsi que tous les fichiers qu'il contient |
procedure Tform1.Button1Click(Sender: Tobject); | ||
|
Comment obtenir le numéro de série d'un cd audio |
uses MMSystem, MPlayer; | ||
|
Comment utiliser un curseur animé |
procedure Tform1.Button1Click(Sender: Tobject); | ||
|
Comment connaitre la liste des polices installées |
uses Printers; | ||
|
Comment determiner la taille de la barre des taches |
procedure Tform1.Button1Click(Sender: Tobject); | ||
|
Comment rafraichir le bureau de Windows |
procedure Tform1.Button1Click(Sender: Tobject); | ||
|
Comment afficher l'icone associée a un type de fichier |
uses ShellApi; | ||
|
Comment utiliser Microsoft Help Workshop |
Comme un bon exemple vaut mieux qu'un long discours voici un exemple de fichier d'aide; | ||
|
Comment détecter qu'un utilisateur appuie sur une touche du clavier |
Voici une méthode, mais il ne s'agit certainement pas de la meilleur. | ||
|
Comment lancer une application et attendre qu'elle se termine |
function WinExecAndWait32(FileName:String):integer; | ||
|
Comment associer une extension de fichier avec une application Delphi |
Typiquement il faut ajouter deux clées dans la base de registre, à la racine HKEY_CLASSES_ROOT. | ||
|
Comment connaitre le répertoire temporaire ou le répertoire courant |
procedure Tform1.Button1Click(Sender: Tobject); | ||
|
Comment utiliser la corbeille |
Cette procedure prend en parametre le nom d'un fichier | ||
procedure Envoyer_corbeille(chemin: string); | ||
|
Comment savoir si la touche Caps Lock est active |
function IsCapsLockOn : boolean; | ||
|
Comment afficher l'aide d'une barre d'outils dans une barre de statut |
Principe: déclarer un gestionnaire d'événement OnHint comme propriété publique | ||
type | ||
|
Comment modifier le pointeur de la souris |
Pour connaitre la position de la souris: | ||
var p: TPoint | ||
Pour positionner la souris: | ||
SetCursorPos(100,100); | ||
pour limiter le champ de déplacement de la souris; | ||
var empl:TRect | ||
|
Comment laisser la main a windows pendant une certaine durée |
La fonction suivante permet de faire cela : | ||
Sleep(durée);//(durée en millisecondes) | ||
|
Comment connaitre la résolution de l'écran |
procedure Tform1.Button1Click(Sender: Tobject); | ||
|
Comment déterminer la liste des applications en cours |
Voici un petit programme qui affiche dans une première TStringGrid la liste des applications | ||
|
Comment vérifier si une disquette se trouve dans le lecteur |
Ma solution: | ||
procedure Tform1.But to n2Click(Sender: Tobject); | ||
une autre solution trouvée sur le site:offset@multimania.com | ||
procedure Tform1.But to n1Click(Sender: Tobject); | ||
|
Comment regler le volume du son d'un composant TMediaplayer |
uses mmsystem; | ||
|
Comment personnalisé l'image d'un composant |
Sous Delphi aller dans Outils|Editeur d'images | ||
|
Comment glisser des fichiers |
type | ||
|
Comment creer un bouton dynamiquement |
procedure Tform1.Button1Click(Sender: Tobject); | ||
|
Comment mettre un papier peint dans une fiche |
Ajouter le code suivant à la fiche: | ||
procedure Tform1.formCreate(Sender: Tobject); | ||
|
Comment utiliser une image jpeg avec delphi |
Ajouter l'unité JPeg dans la clause uses de la fiche ainsi que le code suivant | ||
procedure Tform1.Button1Click(Sender: Tobject); | ||
|
Comment optenir la version du systeme d'exploitation |
procedure Tform1.formCreate(Sender: Tobject); | ||
|
Comment installer un nouveau composant |
C'est relativement simple il suffit d'aller dans le menu
Composant|installer un composant | ||
|
Comment réaliser des boutons ayant une forme ovale |
Ajouter le code suivant à la fiche(qui contient un Bouton nommé Button1) : | ||
procedure
Tform1.formCreate(Sender: Tobject); | ||
|
Comment modifier le menu système d'une fiche |
type | ||
|
Comment obliger l'utilisateur a ne saisir que des chiffres dans un composant Tedit |
procedure Tform1.Edit1KeyPress(Sender: Tobject; var Key: Char); | ||
|
Comment réaliser une application console |
Ouvrir un nouveau projet | ||
|
Comment limiter la taille du code d une application |
Dans le cas ou vous avez 3 boutons (ou plus) sur une fiche | ||
procedure Tform1.ButtonClick(Sender: Tobject); | ||
|
Comment afficher l'état de progression de compilation comme avec Borland Builder |
Aller Outils | Options d'environnement.. | panneau Compilation | ||
|
Comment modifier le programme principal afin d'afficher un écran de démarrage |
program Project1; | ||
|
Comment utiliser un composant Tmediaplayer avec 2 lecteurs de CD |
Mettre la propriété Au to Open du composant a False | ||
procedure Tform1.formCreate(Sender: Tobject); | ||
|
Comment afficher un fichier AVI sur une fiche |
déposer un composant Tmediaplayer et un composant Tbut to n | ||
procedure Tform1.Button1Click(Sender: Tobject); | ||
|
Comment jouer un son windows |
Utiliser l'instruction : MessageBeep avec pour argument
| ||||||||||||||||||||||||||||||||||||||||
|
Comment accéder a la base de registre |
// recherche du répertoire du programme de l'explorateur | ||
|
Comment jouer un son situé dans une ressource |
Création et compilation d'une ressource | ||
|
Comment créer un raccourci |
Le code suivant ouvre une boite de dialogue l'utilisateur choisi un fichier, le programme créer alors un raccourci de ce fichier | ||
implementation | ||
|
Comment exécuter un fichier |
La fonction suivante permet d'exécuter un fichier, elle prends
en paramètre : | ||
function ExecuteFile(const FileName, Params, DefaultDir: string):THandle; | ||
|
Comment exécuter un programme de présentation lors de l'insertion d'un CD-Rom dans un lecteur |
Si vous possédez un graveur peut être réalisez vous des
applications de présentation | ||
|
Comment recueillir des informations sur un CD-audio |
Ajouter l'unité MmSystem dans la liste des unités utilisés | ||
|
Comment arrêter ou relancer windows |
Arrêt de Windows : | ||
|
Comment inhiber les exceptions définies par le programmeur |
Lors d'un débogage l'exécution d'un programme est arrêté a
chaque déclenchement d' except ion | ||
|
Comment cacher la fenêtre principale d'une application |
Une seule ligne de code suffit: | ||
|
Comment sélectionner un répertoire avec une boîte de dialogue style Win 95 |
Il faut utiliser la fonction SelectDirectory (2eme syntaxe de
l'aide Delphi) | ||
uses FileCtrl; | ||
|
Comment réaliser une barre d'outils mobile (style Adobe Photoshop ) |
Ajouter une fiche à votre projet | ||
|