Delphipage

Présentation

Microsoft a développé une interface de programmation d'application (Application Programming Interface).
Son but est de fournir un ensemble de fonctions destinées à contrôler tous les éléments d'un ordinateur (souris, clavier, modem, écran,...) et à réaliser certaines tâches(copier un fichier, imprimer,...).
L' API Windows a pour but d'aider les programmeurs d'applications en lui mettant à sa disposition des fonctions qui réalisent automatiquement certaines tâches complexe.

Les fonctions de l'API de Windows sont employées par les langages C, Pascal ou Visual Basic.

Ils existent plus de 1000 fonctions API mise à disposition des programmeurs. Certes, certaines sont rarement utilisées mais constituent dans la construction de programme une aide très précieuse.

Chaque fonction possède des variables qui sont nécessaires aux bons fonctionnements des différentes fonctions.

Ses fonctions traitent beaucoup de sujets diversifiés.
Voici la liste des principaux sujets traités :
- Les barres de défilements
- Les bitmaps
- Les boites de dialogue
- Le clavier
- Le dessin
- Les fenêtres
- Les fichiers
- L'horloge
- L'impression
- Les menus
- Les messages
- Le presse-papiers
- Le système
- La souris
- Les texte

Exemple : Connaître le chemin temporaire de Windows

On utilise pour cela la fonction "GetTempPath".
Cette fonction stocke dans une variable, le repertoire ou Windows stockent tous les fichiers temporaires.
La valeur qui est renvoyée correspond au nombre d'octets ou de caractères copiés dans la variable.

GetTempPath (nTaille, IpszRepertoireTemp);

nTaille : Taille en octet ou en caractères de la variable qui sert à enregistrer le chemin du répertoire.
IpszRepertoireTemp : Pointeur vers une chaîne de caractère qui contiendra le chemin complet ou sont stockés les fichiers temporaires.

Ajoutez un composant TButton et TLabel.

function CheminTemp:String;
var Nom : Array [0..Max_Path] of Char;
begin
GetTempPath(Sizeof(Nom),@Nom);
Result:=Nom;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=CheminTemp;
end;

Exemple : Enlever ou remettre le bip de Windows

On utilise cette fonction "SystemParametersInfo".
Cette fonction renvoie des informations sur le système ou modifie des paramètres de la base de registres.
La valeur renvoyée est True si l'opération a réussit ou False si elle n'a pas réussit.

SystemParametersInfo(uAction, uParam, pvParam, uModifier);

uAction : Identificateur SPI_ qui spécifie le type d'informations à récupérer.
uParam : Paramètre dépendant de l'action demandée.
pvParam : Paramètre dépendant
uModifier : Identificateur SPIF_ qui indique la manière de modifier la base de registre.
SPIF_SENDCHANGE : modifie la base de registres et envoie un message MW_WININICHANGE à toutes les fenêtres de premier niveau.
SPIF_UPDATEINIFILE : modifie la base de registres.
SPIF_SENDWININICHANGE : idem SPIF_SENDCHANGE.

Ajouter deux composants TButton.

//Enlever le bip de windows

procedure TForm1.Button1Click(Sender: TObject);
begin
SystemParametersInfo(SPI_SETBEEP,0,NIL,SPIF_SENDWININICHANGE);
end;

//Remettre le bip de windows

procedure TForm1.Button2Click(Sender: TObject);
begin
SystemParametersInfo(SPI_SETBEEP,1,NIL,SPIF_SENDWININICHANGE);
end;