掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Windows7で、プロダクトIDを取得するには？ (ID:43188)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
お世話になっております。 Delphi2007,Windows7です。 WindowsのプロダクトIDを取得しようとしていますが、できません。 調べたところ、レジストリの HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductId の値を取得すればいい、とのことでしたが、取得できません。 試しに、ProductId ではなく、RegisteredOwner を取得しようとしたら、できました。 ProductIdは、特別な方法があるのでしょうか？ よろしくお願いします。 以下がコードです。 ------------------------------------------------------- （Button1とMemo1を配置しました） procedure TForm1.Button1Click(Sender: TObject); var AppKey:string; Reg:TRegistry; begin AppKey:='\SOFTWARE\Microsoft\Windows NT\CurrentVersion'; Reg:=TRegistry.Create; Reg.Access:=KEY_READ; with Reg do begin try RootKey:=HKEY_LOCAL_MACHINE; if OpenKey(AppKey,false) then begin memo1.text:=ReadString('ProductId'); end; finally Free; end; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.