Alle Comports des Systems auslesen

[HaZe]

Hi

ich habs jetz nicht getestet aber müsste schon gehn

Delphi-Quellcode:

function CommExists(Commport: Integer): Boolean;
var
  s         : Array[0..5] of Char;
  i         : LongInt;
  CommConfig: TCommConfig;
begin
  s      := 'COMx' + #0;
  s[3]   := Chr($31 + CommPort);
  i      := SizeOf(CommConfig);
  Result := GetDefaultCommConfig(s,CommConfig, i);
end;

hier hab ich noch ein um die comports aus der registery auszulesen
http://www.delphipraxis.net/viewtopic.php?t=752
mit der suchfunktion findest du noch viele weitere

cYa
HaZe