スポンサーサイト

--------

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

GetIDEDiskDriveInfo

2009-07-14

NotUsed: DWORD; //[url=http://www.aion-navi.jp]AION NAVI[/url]
VolumeFlags: DWORD; //[url=http://www.aion-navi.jp]アイオン(AION) 情報[/url]
VolumeInfo: array[0..MAX_PATH] of Char;
VolumeSerialNumber: DWORD;
begin
try
GetVolumeInformation(PChar(Drive + ':\'),
VolumeInfo, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
VolumeFlags, nil, 0);
case InfoID of
1: Result:= Format('%8.8X', [VolumeSerialNumber]);
2: Result:= VolumeInfo;
else
result:='!';
end;
except on E: Exception do
end;
end;
スポンサーサイト

トラックバック

コメントの投稿

非公開コメント

カテゴリ
最新記事
最新コメント
最新トラックバック
検索フォーム
ブロとも申請フォーム

この人とブロともになる

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