Detektering af antal comporte

Jeg ved godt det er en lidt fake løsning.
Anyway, here we go

function ComPortAvailable(Port: PChar): Boolean;
var
  DeviceName: array[0..80] of Char;
  ComFile: THandle;
begin
  StrPCopy(DeviceName, Port);

  ComFile := CreateFile(DeviceName, GENERIC_READ or GENERIC_WRITE, 0, nil,
    OPEN_EXISTING,
    FILE_ATTRIBUTE_NORMAL, 0);

  Result := ComFile <> INVALID_HANDLE_VALUE;
  CloseHandle(ComFile);
end;

procedure TForm1.Button1Click(Sender: TObject);

begin


  if ComPortAvailable('COM1:') then
  listbox1.Items.Add('COM1');
  if ComPortAvailable('COM2:') then
  listbox1.Items.Add('COM2');
  if ComPortAvailable('COM3:') then
  listbox1.Items.Add('COM3');
  // osv



end;

Stoney

Hej Stoney!

Ja nu har jeg rodet rundt for at finde en løsning, og jeg tror faktisk ikke at din løsning er så fake. For så vidt jeg har fundet ud af så er det da vist den eneste måde, og som du jo nok kender overser man noglegange løsningen selvom den er lige foran en. Takker

Pointene er dine