vypis ze spravce zarizeni "com a lpt" ??

[Martin Moštěk]

Jednoducha procedura pro zjisteni vsech COM za pouziti opensourcoveho 
driveru Syn&Ser (http://www.ararat.cz/synapse/doku.php/download) - pouze 
uses (bez instalovani do Delphi).

//Procedura pro zjisteni vsech pritomnych Comportu
procedure NajdiCom();
var
   ser:TBlockSerial;
   i:byte;
   str:string;
   Priznak: Boolean;
   OutStr : String;
begin
   OutStr:='';
   for i:=1 to 15 do	//15 neni nutne posledni
   begin
     str:='COM'+IntToStr(i);
     ser:=TBlockSerial.Create;
     ser.RaiseExcept:=true;
     Priznak:=true;
     try
       ser.Connect(str);
     except
       ser.free;
       Priznak:=false;
     end;
     if (Priznak=true) then
     begin
       ser.free;
       OutStr:=OutStr+'COM '+IntToStr(i)+';';
     end;
   end;
   ShowMessage(OutStr);
end;

Na LPT jsem jej nezkousel, ale melo by to jit taky.


Kubat Tomas napsal(a):
> dobry den.
> potreboval bych nejak "vycucnout" string z polozky "Porty(COM a LPT). v
> podstate potrebuju ten sami vypis udelat v delphi. 
> jeto v XP_ckach. chtel bych to jako pomucku do programu v delphi, ale
> nedari se mi to z registru nejak rozume vyklicovat.
> pletou se tam starsi instalace atd. netusite jak to ty okna slozej
> dohromady, nebo na to existuje nejaky externi nastroj.
> tomik.
>     
> _______________________________________________
> HW-list mailing list  -  sponsored by www.HW.cz
> Hw-list@list.hw.cz
> http://list.hw.cz/mailman/listinfo/hw-list
>