Program Prog;
var code,PIN: string;
Procedure ReadPIN;
begin
   if not ReadDevice then
   begin
    MsgBox( 'Read Error', 'Error', MB_OK );
   end
   else begin
      Code:= chr(GetByteHexEdit( $A7 ))+      
             chr(GetByteHexEdit( $A8 ))+
             chr(GetByteHexEdit( $A9 ))+
             chr(GetByteHexEdit( $AA ));
      MsgBox( Code, 'Code www.alphatecautomotive.com.br', MB_OK or MB_ICONINFORMATION );
  end;
end;


begin                                     
  AddDeviceGroup( 'APLICAÇÃO GM', 'Select a Device' );                 
  AddDevice( 'SPIN - IMMO5 BCM I', '25C160','APLICAÇÃO GM', '25C160');
  AddAction( 'LER SENHA', 'ReadPIN', 'SPIN - IMMO5 BCM I' );
  AddOpenFileAction( 'Ver Foto', 'SPIN - IMMO5 BCM I', 'i24.jpg' );
  AddMsg('GM - SPIN - IMMO5 BCM I 25C160 - Installed '#169' 2014 ALPHATEC AUTOMOTIVE - www.alphatecautomotive.com.br');
  SetProductInfo( 'Script', 'Device Script'#$D'Copyright'#169' 2014 ALPHATEC AUTOMOTIVE - www.alphatecautomotive.com.br' );
end.



