Вывод текста на печать, используя com порт

Сели в машину, компьютерщик, новый русский и слесарь. Заводят - не заводится. Слесарь говорит:
- Сейчас я гляну, что случилось, все сделаю - и поедем.
Новый русский говорит:
- Сиди, я сейчас по сотовому позвоню, приедет бригада мастеров и все быстро сделает.
А компьютерщик говорит:
- Может, все выйдем из машины и снова зайдём?

var
  Printer: THandle;
  N : Cardinal;
  C : POverlapped;

begin
  //Открываем порт принтера для записи
  Printer := CreateFile(PChar('LPT1'),
  GENERIC_READ or GENERIC_WRITE, 0, nil,
  OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);

  //Печатаем слово 'Hello World';
  WriteFile(Printer, 'Hello World', 11, N, c);
  //Закрываем порт
  CloseHandle(Printer);

Недавно добавленные исходники
• Animation Loaders 661 • DeLiKaTeS Tetris (Тетрис) 5 672 • TDictionary Custom Sort 7 634 • Fast Watermark Sources 7 326 • 3D Designer 10 527 • Sik Screen Capture 7 846 • Patch Maker 8 070 • Айболит (remote control) 8 126 • ListBox Drag & Drop 6 928 • Доска для игры Реверси 100 103 • Графические эффекты 8 191 • Рисование по маске 7 593 • Перетаскивание изображений 6 192 • Canvas Drawing 6 557 • Рисование Луны 6 487 • Поворот изображения 5 666 • Рисование стержней 4 588 • Paint on Shape 3 288 • Генератор кроссвордов 4 276 • Головоломка Paletto 3 414 • Теорема Монжа об окружностях 4 234 • Пазл Numbrix 2 747 • Заборы и коммивояжеры 3 651 • Игра HIP 2 458 • Игра Go (Го) 2 439 • Симулятор лифта 2 845 • Программа укладки плитки 2 289 • Генератор лабиринта 3 007 • Проверка числового ввода 2 511 • HEX View 2 915

Вывод текста на печать, используя com порт

Похожие по теме исходники