Pascal/Turbo Pascal - Abrir Cajon de dinero??

Hola amigos, disculpen las molestias, yo de nuevo, quiero saber el codigo para que desde turbo pascal se abra un cajon de dinero que esta conectado a la miniprinter=??

Hay que enviar los comandos de control (definidos por el fabricante) al puerto de la impresora, así de fácil, pero....

Depende de la impresora:

Por Ejemplo:

Epson TMU220P: -> 027-112-000-100-250
en pascal: Chr(27)+Chr(112)+Chr(0)+Chr(100)+chr(250)

STAR SP200: -> 007
en Pascal Chr(7)

Saludos desde Venezuela

Prueba con esto si es puerto LPT1

Dim intArchivo As Integer
Dim strApertura As String

intArchivo = FreeFile
strApertura = Chr(27) & Chr(112) & Chr(48) & Chr(40) & Chr(168)

Open "LPT1:" For Output As #intArchivo

Open "ESDPRT002:" FOR BINARY AS #1
Print #intArchivo, strApertura
Close #intArchivo