#DEFINE GENERIC_READ 0x80000000 #DEFINE GENERIC_WRITE 0x40000000 #DEFINE OPEN_EXISTING 3 #DEFINE FILE_FLAG_OVERLAPPED 0x40000000 DECLARE INTEGER CreateFile IN kernel32; STRING lpFileName, INTEGER dwDesiredAccess, INTEGER dwShareMode,; INTEGER lpSecurityAttributes, INTEGER dwCreationDisposition,; INTEGER dwFlagsAndAttributes, INTEGER hTemplateFile DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject * this already works ICDEV = CreateFile('COM1', GENERIC_READ+GENERIC_WRITE, 0,0,; OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0) ? ICDEV = CloseHandle(ICDEV)