программирование com порта в delphi

Ответ от ?????? Зелёный змий ??????[гуру]
CreateFile(\'C:\\1.txt\', Generic_Read, 0, Nil, Create_Always, File_Attribute_Normal, 0); Create_Always - оригинальный флаг (С++) CREATE_ALWAYS создает файл при отсутствии, или открывает существующий, удаляя все содержимое OPEN_EXISTING - открывает файл, только если он уже есть. \'C:\\1.txt\' - это файл на диске С: Если хочешь порт: \'\\\\.\\COM1\' \'\\\\.\\COM2\', \'\\\\.\\COM3\' C++ HANDLE hCom = CreateFile(_T(\"\\\\\\\\.\\\\COM1\"), GENERIC_READ, 0, NULL, OPEN_EXISTING, 0, NULL); if (hCom != INVALID_HANDLE_VALUE) { char *pBuf = new char[1024]; DWORD dwBytes; ReadFile(hCom, pBuf, 1024, &dwBytes, NULL); TRACE(_T(\"Read %d bytes From COM1\\n\"), dwBytes); delete [] pBuf; CloseHandle(hCom); }