Scalabium Software

SMExport advertising
Knowledge for your independence'.
Home Delphi and C++Builder tips


#95: How can I receive a modem list, which is installed in Win95/98?

If you needs to retrieve a list of modems which was installed in MS Windows, you can use the next procedure:

function EnumModems: TStrings;
var
  R: TRegistry;
  s: ShortString;
  N: TStringList;
  i, j: integer;
begin
  Result:= TStringList.Create;
  R:= TRegistry.Create;
  try
    with R do
    begin
      RootKey:= HKEY_LOCAL_MACHINE;
      if OpenKey('\System\CurrentControlSet\Services\Class\Modem', False) then
        if HasSubKeys then
        begin
          N:= TStringList.Create;
          try
            GetKeyNames(N);
            for i := 0 to N.Count-1 do
            begin
              CloseKey;
              OpenKey(N[i], False);
              s:= ReadString('AttachedTo');
              for j := 1 to 4 do
                if Pos(Chr(j+Ord('0')), s) > 0 then
                  Break;
              Result.AddObject(ReadString('DriverDesc'), TObject(j));
              CloseKey;
            end;
          finally
            N.Free;
          end;
        end;
    end;
  finally
    R.Free;
  end;
end;


Published: September 18, 2000

See also
 
Metafile Convert
DBExport tools
SMMsg suite
Protected Storage Viewer
DBISAM Viewer
Paradox to Text converter
SMExport suite
Paradox Viewer
ABA Database Convert
Paradox Password Recovery
 
 


Contact to webmaster

 

Borland Software Code Gear Scalabium Delphi tips

Copyright© 1998-2017, Scalabium Software. All rights reserved.
webmaster@scalabium.com

SMExport/SMImport suites