with interfaces.c;
use interfaces.c;
     
 
Qu'est-ce qui cloche dans ce programme ?????
 
 
 
procedure a
is
   color:Interfaces.C.long;
 
   function GetPixel
     (hDC   : Interfaces.C.long;
      nXPos : Interfaces.C.int;
      nYPos : Interfaces.C.int)
     return Interfaces.C.long;
   pragma Import (stdcall, GetPixel, "GetPixel" );
begin
   color:=getpixel (0,100,100);    
end a;
 
 
Comment utiliser alors 'getpixel' ?

Et quel est l'erreur ? Donne plus de précision : message d'érreur du compilo ?