API로 Com Port를 사용하기 위해 다음과 같이 작성 하였습니다.
그런데 OS에 영향을 받는지 실행시 에러가 발생합니다.
컴포트 열기
FDeviceName := 'COM1';
FComportHandle := CreateFile(PCHAR(FDeviceName), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
컴포트 닫기
CloseHandle(FComportHandle);
위 코드는 Win9x 애서 현재 사용하고 있는 API입니다.
그런데 이것이 Windows XP에서 에러가 나네요...
이문제에 대해 조언 부탁 드립니다.