Unité Graph : Procédure InitGraph

Déclaration

Description

Si la constante Detect est transmise est transmise pour le pilote, toutes les routines de détection automatique des pilotes installés avec InstallUserDriver sont d'abord appelées, puis la procédure DetectGraph pour rechercher un pilote en cours d'exécution. Si une constante différente pour un pilote graphique spécial est spécifiée pour le pilote, une tentative sera effectuée pour installer ce pilote.
Dans ce cas, un mode graphique doit également être spécifié à l'aide du paramètre mode. Si l'initialisation ne peut pas avoir lieu, un code d'erreur est attribué au pilote, qui peut également être interrogé à l'aide de GraphResult. Si tout s'est bien passé, le pilote contient le pilote graphique défini et mode le mode graphique.

Le paramètre path est utilisé comme chemin de recherche pour les pilotes graphiques et les polices. Si aucun chemin n'est spécifié, la recherche est effectuée dans le répertoire courant.

Références croisées CloseGraph DetectGraph GraphDefaults GraphResult InstallUserDriver InstallUserFont RegisterBGIDriver RegisterBGIFont RestoreCrtMode SetGraphMode

Exemple

uses Graph;
var
  driver, mode : Integer;
  result : Integer;
begin
  driver := VDI;
  mode := VDIMode;
  InitGraph( driver, mode, 'D:\\PP' );
  result := GraphResult;
  if result <> grOk then
    Writeln( 'Graphics error: ',
    GraphErrorMsg( result ))
  else begin
    Bar( 20, 20, 80, 80 );
    Readln;
    CloseGraph;
  end;
end.