[delphi] aantal comm. poorten opvragen

[wizl]

Hoe kan ik in delphi het aantal comm. poorten in windows opvragen (COM: en LPT:)?

edit:

never mind, ik check wel in de registry

[Ariejan]

[evermind]
Je zou es kunnen kijken naar bepaalde opensource components die system info geven. Misschien dat je daar wat wijzer van wordt.
[/evermind]

[Verwijderd]

code:

function IsPortAvailable(APort: string): boolean;
var
  h: integer;
begin
  Result := False;
  h := CreateFile(PChar(APort), // 'COM1:', 'COM2:', etc.
            GENERIC_READ or GENERIC_WRITE,
            0, // do not share
            nil, // default security attributes
            OPEN_ALWAYS,
            FILE_ATTRIBUTE_NORMAL,
            0);
  if h <> INVALID_HANDLE_VALUE then begin
    Result := True;
    CloseHandle(h);
  end;
end;

Gewoon voor COM1 t/m 64 en LPT1 t/m 8 of zo opvragen. Lijkt me ietsje safer dan checken in de registry.