16-07-2020, 12:30:49
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($85),2)+inttohex(GetByteHexEdit($86),2);
MsgBox( Code, 'Code www.msbig.net', MB_OK or MB_ICONINFORMATION );
end;
end;
begin
AddDeviceGroup( 'APLICAÇÃO GM', 'Select a Device' );
AddDevice( 'CAIXINHA OPEL2', 'TMS370Cx02', 'APLICAÇÃO GM', 'TMS370Cx02');
AddAction( 'Read Code', 'ReadCode', 'CAIXINHA OPEL2' );
AddOpenFileAction( 'Ver Foto', 'CAIXINHA OPEL2', 'i02.jpg' );
AddMsg('GM - CAIXINHA OPEL2 TMS370Cx02 - Installed '#169' 2020 MSBig - www.msbig.net');
SetProductInfo( 'Sample1', 'Device Script Example'#$D'Copyright'#169' 2020 MSBig - www.msbig.net' );
end.