LT>program devlist; {$apptype console}
LT>uses windows, sysutils;
LT>const BufSize = 1024;
LT>var
LT>  Buf_DevList: Array[0..BufSize] of Char;
LT>  DevName: PChar;
LT>begin
LT>  if QueryDosDevice(nil, Buf_DevList, BufSize) = 0 then Exit;
LT>  DevName := Buf_DevList;
LT>  while DevName^ <> #00 do
LT>  begin
LT>    if (StrLIComp('COM', DevName, 3) = 0) then writeln(DevName);
LT>    DevName := StrEnd(DevName)+1;
LT>  end;
LT>end.
LT>