Código Delphi [-] Var cajon : Text; Begin assignFile(cajon, 'com1'); rewrite(cajon); try write(cajon,#27#112#0#25#250); finally Close(cajon); end; end;
Var cajon : Text; Begin assignFile(cajon, 'com1'); rewrite(cajon); try write(cajon,#27#112#0#25#250); finally Close(cajon); end; end;