引言: 請問有無方法可以知道現在系統上有幾個Com port可用 下一次 一定會更好

var
    UsedComm: array[0..5] of char = 'COMx';    {* ****************************** zSerialAvail ****************************** *}
{* =================================Blue Fox================================= *}
{* 目    的:  檢查通訊埠是否存在 (COM Port)
{* 關 鍵 字:
{* 輸 入 值:  ComPort: integer
{* 傳 回 值:  zSerialAvail:boolean
{* 呼 叫 式:
{* 說    明:   1. Borland Web
{* 日    期      由      注解
{* ----------    ----    -------
{* 2002/4/24     Levi
{* =================================Blue Fox==============================2.0 *}
 function zSerialAvail(ComPort: integer): boolean;
var H: integer;
begin
  result:= false;
  UsedComm[3] := chr(ComPort   $31);    {$IFDEF VER80} { Win 3.x }
  H := OpenComm(@UsedComm, 256, 256);
  if H >= 0 then
  begin
    CloseComm(H);
    result:= true;
  end;
{$ELSE} { Win95/NT }
  H := CreateFile(UsedComm, GENERIC_READ or GENERIC_WRITE,
    0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if H <> -1 then
  begin
    CloseHandle(H);
    result:= true;
  end;
  GetLastError;
{$ENDIF}
end;