Section courante

A propos

Section administrative du site

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 :

  1. Program GetIntVecSamples;
  2.  
  3. Uses WinCrt,WinDos;
  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 - GETINTVEC

Dernière mise à jour : Dimanche, le 10 décembre 2017