У диалапера спрашивают:
- А что ты тестируешь, качество связи с новым провайдером?
- Нет, свои нервы... сколько они еще смогут выдержать этот коннект!!!
unit PortInfo;
interfaceuses
Windows, SysUtils, Classes, Registry;
function EnumModems: TStrings;
implementationfunction EnumModems : TStrings;
var
R : TRegistry;
s : ShortString;
N : TStringList;
i : integer;
j : integer;
begin
Result:= TStringList.Create;
R:= TRegistry.Create;
trywith R dobegin
RootKey:= HKEY_LOCAL_MACHINE;
if OpenKey('\System\CurrentControlSet\Services\Class\Modem', False) thenif HasSubKeys thenbegin
N:= TStringList.Create;
try
GetKeyNames(N);
for i:=0 to N.Count - 1 dobegin
closekey; { + }
openkey('\System\CurrentControlSet\Services\Class\Modem', false);
OpenKey(N[i], False);
s:= ReadString('AttachedTo');
for j:=1 to 4 doif 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;
end.
Статья Получить список установленных модемов в Win95-98 раздела Интернет и Сети Dial-up может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.