unit hiKE_DetectDevices;

interface

uses windows,Kol,Share,Debug;

type
  THIKE_DetectDevices = class(TDebug)
   private
   public  
    _event_onSearch:THI_Event;
    _event_onEndSearch:THI_Event;

    procedure _work_doSearch(var _Data:TData; Index:word);
  end;

implementation

procedure THIKE_DetectDevices._work_doSearch;
var
    hk:HKEY;
    List,devs:PStrList;
    i,c:smallint;
    s:string;
    dt,d:TData;
    f:PData;
begin
   hk := kol.RegKeyOpenRead(HKEY_LOCAL_MACHINE,'SYSTEM\ControlSet001\Enum\USB');
   List := NewStrList;
   devs := NewStrList;
   kol.RegKeyGetSubKeys(hk,List);
   kol.RegKeyClose(hk);
   c := 0;
   for i := 0 to List.Count-1 do
    begin
      s := 'SYSTEM\ControlSet001\Enum\USB\' + List.Items[i]; 
      hk := kol.RegKeyOpenRead(HKEY_LOCAL_MACHINE,s);
      kol.RegKeyGetSubKeys(hk,devs);
      kol.RegKeyClose(hk);
      
      hk := kol.RegKeyOpenRead(HKEY_LOCAL_MACHINE,s + '\' + devs.Items[0]);
      if kol.RegKeyGetStr(hk, 'ClassGUID') = '{4d36e978-e325-11ce-bfc1-08002be10318}' then
       begin
         dtString(dt, kol.RegKeyGetStr(hk, 'FriendlyName'));
         kol.RegKeyClose(hk);
         hk := kol.RegKeyOpenRead(HKEY_LOCAL_MACHINE,s + '\' + devs.Items[0] + '\Device Parameters');
         s := kol.RegKeyGetStr(hk, 'PortName');
     delete(s,1,3);
         dtInteger(d, str2int(s));
         AddMTData(@dt, @d, f);
         _hi_OnEvent(_event_onSearch, dt);
         FreeData(f);
         inc(c);
       end
      else kol.RegKeyClose(hk); 
    end;
   List.Free;
   devs.free;
   _hi_OnEvent(_event_onEndSearch, c);
end;

end.

Add(MainForm,2953706,56,70)
{
 link(onCreate,12839125:doData,[])
}
Add(Charset,9621626,210,84)
{
 link(onCharset,6056519:doAdd,[])
}
Add(WinExec,13023946,161,70)
{
 FileName="powershell"
 Mode=0
 Point(doConsoleExec)
 Point(onConsoleResult)
 link(onConsoleResult,9621626:doCharset,[])
}
Add(DoData,12839125,112,84)
{
 Data=String(Get-WmiObject Win32_PnPEntity | Where Name -match 'COM\d+')
 link(onEventData,13023946:doConsoleExec,[])
}
Add(Memo,6056519,266,84)
{
 Left=550
 Top=160
 Align=5
 ScrollBars=3
}

Add(MainForm,1998830,343,147)
{
 Width=504
 Height=83
}
Add(Button,15347235,399,147)
{
 Left=12
 Top=10
 Width=75
 Caption="Порты"
 link(onClick,14810329:doString,[])
}
Add(FormatStr,13519124,539,63)
{
 Mask="%1 COM%2"
}
Add(ComboBox,861826,609,147)
{
 Left=110
 Top=9
 Width=363
 Height=21
 Text=""
 DataType=1
 ReadOnly=0
}
Add(KE_DetectDevices,10942688,462,63)
{
 link(onSearch,13519124:doString,[])
}
Add(Charset,9621626,560,147)
{
 link(onCharset,861826:doAdd,[])
}
Add(WinExec,13023946,511,133)
{
 FileName="powershell"
 Mode=0
 Point(doConsoleExec)
 Point(onConsoleResult)
 link(onConsoleResult,9621626:doCharset,[])
}
Add(FormatStr,14810329,455,147)
{
 Mask="Get-WmiObject Win32_PnPEntity | Where Name -match 'COM\d+' |  Select-Object -Property Name | fl"
 link(onFString,13023946:doConsoleExec,[])
}

Add(MainForm,1998830,315,175)
{
 Width=504
 Height=83
}
Add(Button,15347235,371,175)
{
 Left=12
 Top=10
 Width=75
 Caption="Порты"
 link(onClick,13023946:doConsoleExec,[])
}
Add(ComboBox,861826,497,154)
{
 Left=110
 Top=9
 Width=363
 Height=21
 Text=""
 DataType=1
 ReadOnly=0
}
Add(WinExec,13023946,434,161)
{
 FileName="powershell"
 Param="-nologo -noprofile -command "& {(Get-PnpDevice -PresentOnly -Class 'Ports').Name }""
 Mode=0
 Point(doConsoleExec)
 Point(onConsoleResult)
 link(onConsoleResult,861826:doText,[])
}

Add(MainForm,1998830,301,175)
{
 Width=504
 Height=83
}
Add(Button,15347235,357,175)
{
 Left=12
 Top=10
 Width=75
 Caption="Порты"
 link(onClick,13023946:doConsoleExec,[])
}
Add(ComboBox,861826,483,154)
{
 Left=110
 Top=9
 Width=363
 Height=21
 Text=""
 DataType=1
 ReadOnly=0
 link(onClick,15123142:doSearch,[])
}
Add(WinExec,13023946,420,161)
{
 FileName="powershell"
 Param="-nologo -noprofile -command "& {(Get-PnpDevice -PresentOnly -Class 'Ports').Name }""
 Mode=0
 Point(doConsoleExec)
 Point(onConsoleResult)
 link(onConsoleResult,861826:doText,[])
}
Add(Debug,10118881,595,161)
{
 LogCount=100
}
Add(BlockFind,15123142,539,161)
{
 IncludeBlock=1
 StartBlock="("
 EndBlock=")"
 link(onSearch,10118881:doEvent,[])
}