Fóruns

program Prog1;

var code: string;



procedure ReadCode;

begin

  if not ReadDevice then

  begin

    MsgBox('Erro de Leitura', 'Erro', MB_OK);

  end

  else

  begin

    Code := inttohex(GetByteHexEdit($142), 2) +

      inttohex(GetByteHexEdit($1A5), 2) +

      inttohex(GetByteHexEdit($1C2), 2) +

      inttohex(GetByteHexEdit($141), 2) +

      inttohex(GetByteHexEdit($1C1), 2) +

      inttohex(GetByteHexEdit($1A4), 2);

    MsgBox(Code, 'Code www.msbig.net', MB_OK or MB_ICONINFORMATION);

  end;

end;



begin

  AddDeviceGroup('APLICAÇÃO RENAULT', 'Select a Device');

  AddDevice('SANDERO - UCH 95040', 'ST95040', 'APLICAÇÃO RENAULT', 'ST95040');

  AddAction('LER SENHA', 'ReadCode', 'SANDERO - UCH 95040');

  AddOpenFileAction('Ver Foto', 'SANDERO - UCH 95040', 'i16.jpg');

  AddMsg('RENAULT - SANDERO - UCH 95040 - Installed '#169' 2020 Fórum MSBig - www.msbig.net');

  SetProductInfo('Sample1', 'Device Script Example'#$D'Copyright'#169' 2020 Fórum MSBig - www.msbig.net');

end.