Hallo BAMatze,
wie es mit der Komponente TComport geht, weiß ich nicht.
Ich benutze folgende Funktion:
function ComAvailable(ComNr: byte): longbool;
var TestHandle : integer;
begin TestHandle :=CreateFile(PChar('\\.\
COM'+IntToStr(ComNr)),GENE RIC_READ or GENERIC_WRITE,0,
nil,OPEN_EXISTING,FILE_FLAG_OVERLAPPED,LongInt(0)) ;
if (TestHandle <= 0) then Result := false
else begin Result := true; CloseHandle(TestHandle); end;
end;
Damit kann man ermitteln, ob der Comport existiert.
Franz