レジストリ

TRegistryクラスでサクサク。下はCOMポート一覧を取り出しているところ。

var
i: Integer;
reg: TRegistry;
st: TStringList;
begin
reg := TRegistry.Create;
st := TStringList.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
if(reg.OpenKey('\HARDWARE\DEVICEMAP\SERIALCOMM\', False))then
begin
reg.GetValueNames(st);
for i := 0 to st.Count - 1 do
begin
if(reg.GetDataType(st.Strings[i]) = rdString)then
COMCombo.Items.Append(reg.ReadString(st.Strings[i]));
end;
reg.CloseKey;
end;
st.Free;
reg.Free;

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です