掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
文字化けを防止するには？？ (ID：49270)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
X-RAYさん、お礼言うのを忘れてすみませんでした。 確認ですが、KEY_READ だけでは正常な値は取得できなかったんですよね？ KEY_READ→KEY_READ or KEY_WOW64_64KEYは、私のメモに残しておきますので。 ありがとうございました。 通りすがりさん、ありがとうございます。 「そのクラスや型の定義がされているユニット」の中で、クラス？？ 型？？ユニット？？という感じですので、ご理解ください。 実は、私も紹介していただいたのと同じようなところを検索したのですが、 どこをusesに書いたらいいのか分からなくて、質問しました。 例えば、TRegistryの前にあるRegistryを書けばいいんですよね？ igyさん、ありがとうございました。 お蔭で、無事に動きました。15年以上も正常に動いていたものが、 急に動かくなるのでは困るので、次のを使うようにします。 var WindowsID: TWindowsID; m:string; implementation uses Registry; {$R *.dfm} procedure TWindowsID.OnCreate(Sender: TObject); var AppKey:string; Reg:TRegistry; begin AppKey:='\SOFTWARE\Microsoft\Windows NT\CurrentVersion'; Reg:=TRegistry.Create(KEY_READ or KEY_WOW64_64KEY); with Reg do begin try RootKey:=HKEY_LOCAL_MACHINE; if OpenKey(AppKey,false) then begin m:=ReadString('ProductId'); end; finally Free; end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.