Section courante

A propos

Section administrative du site

GETINTVEC

Demande le vecteur d'interruption
Turbo Pascal 4+ DOS

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.

Remarques

Exemple

Voici quelques exemples typiques de l'utilisation de «GetIntVec» en Turbo Pascal permettant de détecter le pilote de souris :

  1. Program GetIntVecSamples;
  2.  
  3. Uses Dos;
  4.  
  5. Var Int33h:^Byte;
  6.  
  7. BEGIN
  8.  GetIntVec($33,Pointer(Int33h));
  9.  If Int33h = NIL Then WriteLn('Aucun pilote de pilote de souris est installé !')
  10.   Else
  11.  If Int33h^ = $CF Then WriteLn('Le pilote est vide !')
  12.   Else
  13.  Begin
  14.   WriteLn('Le pilote de souris est installé.');
  15.  End;
  16. 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 - SETINTVEC
Langage de programmation - Turbo Pascal pour Windows - Référence de procédures et fonctions - GETINTVEC
Interruption 21h, Fonction 35h: Demande l'adresse d'un vecteur d'interruption

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 212.
Le grand livre du Turbo & Borland Pascal 7.0, Edition Micro Application, Reiner Scholles, 1993, ISBN: 2-86899-873-9, page 1242.

Dernière mise à jour : Dimanche, le 25 janvier 2015