R
						
					
					
						
					
				
				
					WinAPI
CreateFile(),
WriteFile(),
ReadFile(),
usw.
irgendwie so müsste es gehen (habs nicht getestet)
unsigned long NumBytesWritten;
unsigned char Data = 0xff;
HANDLE Lpt1Han = CreateFile("\\\\.\\LPT1",
                             GENERIC_WRITE,
                             0,
                             NULL,
                             OPEN_EXISTING,
                             0,
                             NULL);
  if (Lpt1Han)
  {
    WriteFile(Lpt1Han, &Data, 1, &NumBytesWritten, NULL);
    CloseHandle(Lpt1Han);
  }
  else
    MessageDlg("Konnte LPT1 nicht öffnen",mtError, TMsgDlgButtons()<< mbOK,0);
du musst allerding unbedingt darauf achten, dass
pin 1 mit pin 10 verbunden ist, dass
pin 11,12,18-25 mit ground verbunden sind, und dass
pin 13,15 mit +5V verbunden sind.
dann sollte es eiegntlich gehen.