Haruyuki Mohri Blog(Delphi)

毛利春幸のブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
  1. --/--/--(--) --:--:--|
  2. スポンサー広告

使えるCOMポート一覧を取ってくる

PCのシリアルポート名はレジストリに書かれているので
列挙して表示する
usesにBorland.Vcl.Registryを追加する
ComboBoxをフォームに置いて

procedure TForm1.FormCreate(Sender: TObject);
var
slValueNames: TStringList;
reg: TRegistry;
i: Integer;
begin
slValueNames := TStringList.Create;
reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKey('HARDWAR\EDEVICEMAP\SERIALCOMM', False) then
begin
reg.GetValueNames(slValueNames);
for i := 0 to Pred(slValueNames.Count) do
if reg.GetDataType(slValueNames.Strings[i]) = rdString then
ComboBox1.Items.Append(reg.ReadString(slValueNames.Strings[i]));
end;
finally
reg.Free;
slValueNames.Free;
end;
end;
スポンサーサイト

テーマ:プログラミング - ジャンル:コンピュータ

  1. 2006/04/25(火) 13:22:12|
  2. Delphi

Profile

Twitter...

最近の記事

ブログ内検索

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。