ISISGetASCIITag example for Delphi

var
   szVal: PChar;
begin
   szVal:= Nil;
   LeadIsis1.ISISLoadDriver ( ) ;
   //get the default value
   LEADISIS1.ISISGetASCIITag ( TAG_PAGESIZE, @szVal, True ) ;
   ShowMessage ( 'Default: ' + szVal ) ;
   if (szVal<> Nil ) then
   begin
      GlobalFree ( Cardinal(szVal) ) ;
      szVal:= Nil;
   end;

   //get the current value
   LEADISIS1.ISISGetASCIITag ( TAG_PAGESIZE, @szVal, False ) ;
   ShowMessage ( 'Current: ' + szVal ) ;
   if (szVal<> Nil ) then
   begin
      GlobalFree ( Cardinal(szVal) ) ;
      szVal:= Nil;
   end;
   //set a new value
   //NOTE, this would have to be a valid choice for the scanner
   LEADISIS1.ISISSetASCIITag ( TAG_PAGESIZE, PChar('Scanner Maximum') );
   //get the default value
   LEADISIS1.ISISGetASCIITag ( TAG_PAGESIZE, @szVal, False ) ;
   ShowMessage ( 'Current: ' + szVal ) ;
   if (szVal<> Nil ) then
   begin
      GlobalFree (Cardinal(szVal) ) ;
      szVal:= Nil;
   end;

   LEADISIS1.ISISUnloadDriver ( ) ;

end;