GETINTVEC |
Demande le vecteur d'interruption |
---|---|
Turbo Pascal pour Windows | WinDos |
Syntaxe
Procedure GetIntVec(Numero:Byte; Var Adresse:Pointer); |
Paramètres
Nom | Description |
---|---|
Numero | Ce paramètre permet d'indiquer le numéro du vecteur d'interruption à connaitre |
Adresse | Ce paramètre retourne l'adresse du vecteur d'interruption demandé |
Description
Cette procédure permet de connaitre l'adresse d'un vecteur d'interruption.
Exemple
Voici quelques exemples typiques de l'utilisation de «GetIntVec» en Turbo Pascal pour Windows permettant de détecter le pilote de souris :
- Program GetIntVecSamples;
-
- Uses WinCrt,WinDos;
-
- Var Int33h:^Byte;
-
- BEGIN
- GetIntVec($33,Pointer(Int33h));
- If Int33h = NIL Then WriteLn('Aucun pilote de pilote de souris est installé !')
- Else
- If Int33h^ = $CF Then WriteLn('Le pilote est vide !')
- Else
- Begin
- WriteLn('Le pilote de souris est installé.');
- End;
- END.
on obtiendra le résultat suivant s'il y a un pilote de souris d'installé :
Le pilote de souris est installé.Voir également
Liste des interruptions
Programme émulant le BIOS CGA pour les cartes Graphic Solutions
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - GETINTVEC
Dernière mise à jour : Dimanche, le 10 décembre 2017