misc/MCITEST.PAS

434 B 6d50e2666dc51e82…
program mciTest;
 uses crt,dos,dataproc,configrt,modem,gentypes,gensubs,subs1,subs2;
 begin
 cfg.textFileDir := 'C:\INFUSION\TEXT\';
 online := false;
 null_modem;
 dInitMciMem(true);
 dResetMciCodes;
 dAddMciCode('AA');
 dAddMciCode('AB');
 cls;
 dShowMciFile('TEST1.ANS');
 writeLn(dMciData^[2].code);
 writeLn(dMciData^[2].xPos);
 writeLn(dMciData^[2].yPos);
 writeLn(dMciData^[2].attr);
 dInitMciMem(false);
 end.