Показать сообщение отдельно
  #2  
Старый 10.09.2019, 00:12
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

А так:
Код:
var
  Port : String; 
begin 
  Port := 'Com1';

ComFile:=CreateFile(
PChar(Port), //имя порта
GENERIC_READ, // открыть для чтения
0, // не разделяемый ресурс
nil, //режим безопасности
OPEN_EXISTING, // открыть порт, если он реально существует
FILE_ATTRIBUTE_READONLY, //только чтение из буфера порта
0); //шаблон файла, для Com порта всегда =0
Ответить с цитированием