Comport finden, an dem das gesuchte Gerät hängt

[Franz Kogler]

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