Amigo duilioisola.
He probado como me dijistes. He aqui mi codigo.
Código Delphi
[-]
lPrinterok := True;
AssignFile( Printer, 'LPT1' );
FileMode := fmOpenReadWrite;
try
{$I-} Reset( Printer ); {$I+}
Rewrite( Printer );
except
on e:Exception do
begin
lPrinterok := False;
ShowMessage('La impresora no responde'+#13+e.Message);
end;
end;
if lPrinterok then
begin
Write( Printer, CHR(27) + CHR(64 ) ); <-- aqui se cuelga el programa
end
no tengo ninguna impresora enganchada al puerto lpt1, es mas,
mi pc no tiene puerto, pero sin embargo la variable lPrinterok me da true.
Se agradece cualquier comentario.