Watch, Follow, &
Connect with Us

Please visit our new home
community.embarcadero.com.


Welcome, Guest
Guest Settings
Help

Thread: ハードディスクのGUIDを取得したいのですが


This question is not answered. Helpful answers available: 2. Correct answers available: 1.


Permlink Replies: 3 - Last Post: May 7, 2017 4:45 PM Last Post By: Hideyuki Oya
Hideyuki Oya

Posts: 87
Registered: 6/6/07
ハードディスクのGUIDを取得したいのですが  
Click to report abuse...   Click to reply to this thread Reply
  Posted: May 4, 2017 10:46 PM
お世話になります。
ハードディスクのGUIDを取得したいのですが、どんなコードを書けばいいのでしょうか?
Delphi 10 Professinal、Windows10を使っています。
Makoto Saito

Posts: 26
Registered: 12/5/04
Re: ハードディスクのGUIDを取得したいのですが  
Click to report abuse...   Click to reply to this thread Reply
  Posted: May 5, 2017 7:37 PM   in response to: Hideyuki Oya in response to: Hideyuki Oya
ハードディスクのGUIDを取得したいのですが、どんなコードを書けばいいのでしょうか?
他にも方法があるかも知れませんが,以下のどちらかの方法で取得できます.
具体的なコードは自分で調べるか考えてください.

(1) MountVol コマンドの実行結果から取得
   このコマンドで取得できるかは,ググるとすぐ見つかります.多分.
(2) WMI の win32_volume クラスを使用する
   WMI なら取得できるのではないかという予想する.
   コマンドが MoustVol なので Volume 関係と予想する
Makoto Saito

Posts: 26
Registered: 12/5/04
Re: ハードディスクのGUIDを取得したいのですが  
Click to report abuse...   Click to reply to this thread Reply
  Posted: May 7, 2017 3:06 PM   in response to: Hideyuki Oya in response to: Hideyuki Oya
MountVol と WMI の Win32_Volume による方法では DeviceID の GUID が取得てきますが,
SetupAPI 関係の関数を使用すると ClassiD の GUID が取得できるようです.
SetupAPI が実装されていない Delphi でも,JEDI API を使用すると使えます.
JEDI API に利用については以下を参考にしてください.

[475] [パフォーマンスカウンタで CPU の使用率 - JEDI API の準備]
http://mrxray.on.coocan.jp/Delphi/plSamples/475_CpuUsageRate.htm#00

この記事の方法では,以下にライブラリのパスを通す必要があります.
そして,uses に JwaWindows, SetupApi を追加します.

[Common]
[Win32API]
[SaCMAPI]
[includes]
Hideyuki Oya

Posts: 87
Registered: 6/6/07
Re: ハードディスクのGUIDを取得したいのですが  
Click to report abuse...   Click to reply to this thread Reply
  Posted: May 7, 2017 4:45 PM   in response to: Makoto Saito in response to: Makoto Saito
Saitoさん、回答ありがとうございます。
自作アプリのライセンス認証に使用しようと思っています。

紹介していただいた方法(DeviceID の GUID取得方法)を今調べているところです。
わからないところがあればまた質問します。
Legend
Helpful Answer (5 pts)
Correct Answer (10 pts)

Server Response from: ETNAJIVE02