掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
USBメモリのドライブ名を取得する方法 (ID：47660)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
どこかから拾ったコードですが（＾＾； これでディスクのタイプが表示されるようです。 これを利用できませんか？ （D5,XP） WbemScripting_TLB, ActiveX, ComObj var Locator: ISWbemLocator; Services: ISWbemServices; OsSet: ISWbemObjectSet; tmpEnum: IEnumVariant; Value: Cardinal; OS: OleVariant; il: Longint; begin Locator := CreateOleObject('WbemScripting.SWbemLocator') as ISWbemLocator; Services := Locator.ConnectServer('.', '', '', '', '', '', 0, nil); OsSet := Services.ExecQuery('SELECT * FROM Win32_DiskDrive', 'WQL', wbemFlagReturnImmediately, nil); tmpEnum:= OsSet._NewEnum as IEnumVariant; while True do begin il := tmpEnum.Next(1, OS, Value); if il <> 0 then Break; try Memo1.Lines.Add(OS.PNPDeviceID); except end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.