Реферат: Ещё раз о прямом доступе к аппаратуре

begin

// узнаемсостояние

Win32Check(GetCommModemStatus(FComHandle, eStatus));

eStubInstalled := (eStatus and MS_CTS_ON) > 0;

// вызовемобработчиксобытия

if eStubInstalled then

DoOnChange;

end;

// при нежданной ошибке

WAIT_FAILED:

// случилосьстрашное...

RaiseLastOSError;

end;

end;

Полный код примера приведен в прилагаемом к статье архиве.

Список литературы

JEDI Windows API Library http://members.chello.nl/m.vanbrakel2/win32api.zip

Parallel Port Central http://www.lvr.com/parport.htm

Serial Port Central http://www.lvr.com/serport.htm

Письмо в журнал «Cooler» о прямом доступе к LPT http://cooler.irk.ru/cl190902.html