belegte ComPorts anzeigen, wie?

[Cyberbob]

Es ist ein Unterschied, ob ich meinen USB-Seriell-Wandler a mein Laptop angeschlossen habe oder nicht. Etwas ganz anderes ist es, ob ich in einem meiner Programme dann auch noch den Port nutze.
Dann kommt noch die Frage, was das genau für ein Port ist und von welchem Programm er wofür genutzt wird. (Com-Port, Bluetooth, GPS, etc.)
Ich hab zum beispiel im moment keinen Wandler dran hängen und trotzdem werden mir von Windows 3 Ports als Belebt angezeigt!

[ChrisE]

Hallo,

Zitat von Cyberbob:

...Welche es gibt, müsste doch in der Registry stehen. Alles ausprobieren ist doch etwas overhead und wäre zuviel des guten...

also ich habe mich ja auch schon damit beschäftigt. Und es wird ja auch durchaus so von anderen vorgeschlagen http://www.delphipraxis.net/811647-post3.html in dem Post den ich in #2 vorgeschlagen habe. Also sowohl Registry und SetupAPI als auch Durchprobieren.

Das man schlussendlich per SW schwer sagen kann, ob dieser benutzt werden darf - was ja etwas völlig anderes ist als ob er belegt ist - dass ist tatsächlich schwer

Aber das haben ja hier auch schon ein paar andere Festgestellt

Greez, Chris

[hathor]

Zeigt belegte COMPORTS an:

Delphi-Quellcode:

.
.
  private
    { Private declarations }
    procedure InitializeSerialPorts;
    procedure WMDeviceChange(Var Msg:TMessage); message WM_DEVICECHANGE;
.
.
procedure TForm1.WMDeviceChange(Var Msg:TMessage);
begin
if Msg.Msg=WM_DEVICECHANGE then BEGIN
WindowsBeep(1000,50);
InitializeSerialPorts;
END;
end;

procedure TForm1.InitializeSerialPorts;
var
  port: string;
  i: Integer;
  config: TCommConfig;
  cfsize: DWORD;
begin
  for i := 1 to 16 do  //MAX_NO_OF_SERIAL_PORTS
  begin
    if Components[i] is TCheckbox then TCheckbox(Components[i]).checked:=false;
    port := Format('COM%d', [i]);
    cfsize := sizeof(config);
    if GetDefaultCommConfig(PChar(port), config, cfsize) then
    case i of
    1: Checkbox1.checked:=true;
    2: Checkbox2.checked:=true;
    3: Checkbox3.checked:=true;
    4: Checkbox4.checked:=true;
    5: Checkbox5.checked:=true;
    6: Checkbox6.checked:=true;
    7: Checkbox7.checked:=true;
    8: Checkbox8.checked:=true;
    9: Checkbox9.checked:=true;
    10: Checkbox10.checked:=true;
    11: Checkbox11.checked:=true;
    12: Checkbox12.checked:=true;
    13: Checkbox13.checked:=true;
    14: Checkbox14.checked:=true;
    15: Checkbox15.checked:=true;
    16: Checkbox16.checked:=true;
    end;
  end;
end;