Section courante

A propos

Section administrative du site

GETINTVEC

 Demande le vecteur d'interruption
QuickPascal 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 à connaître
Adresse Ce paramètre retourne l'adresse du vecteur d'interruption demandé

Description

Cette procédure permet de connaître l'adresse d'un vecteur d'interruption.

Exemple

Voici quelques exemples typiques de l'utilisation de «GetIntVec» en QuickPascal 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


Dernière mise à jour : Vendredi, le 13 février 2015