怎样才能读取一个光盘的卷标？(50分)

xao_hx · 2001-12-29

如题，各位大侠帮忙！

bluerain · 2001-12-29

用GetVolumnInformation函数,和读取硬盘的一样.下面是一个DEmo. Demo中的label就是. function TSysinfo.GetDiskInfo(strDrive : string) : boolean; var   lpLabel : pChar;   LabelSize : cardinal;   SerialNum : cardinal;   MaxLength : cardinal;   lpFileName : pChar;   Filesize : cardinal;   FileFlag : cardinal;   FreeSpace,TotalSpace : int64;   str : string; begin   result := true;   LabelSize := 255;   FileSize := 255;   GetMem(lpLabel,LabelSize);   GetMem(lpFileName,Filesize);   try     if GetVolumeInformation(PChar(strDrive),lpLabel,LabelSize,@SerialNum,                            MaxLength,FileFlag,lpFileName,FileSize) then     begin       DiskInfo.DiskName := strDrive;       DiskInfo.DiskLabel := lpLabel;       DiskInfo.DiskFormat := lpFileName;       str := IntToHex(SerialNum,8);       DiskInfo.DiskSerialNum := Copy(str,1,4)+':'+Copy(str,5,4);     end     else       result := False;   case GetDriveType(PChar(DiskInfo.DiskName)) of     DRIVE_UNKNOWN : DiskInfo.DiskType := '未知驱动器';     DRIVE_NO_ROOT_DIR : DiskInfo.DiskType := '不是驱动器';     DRIVE_REMOVABLE : DiskInfo.DiskType := '软驱';     DRIVE_FIXED :  DiskInfo.DiskType := '本地硬盘';     DRIVE_REMOTE : DiskInfo.DiskType := '网络硬盘';     DRIVE_CDROM : DiskInfo.DiskType := '光驱';     DRIVE_RAMDISK : DiskInfo.DiskType := '虚拟硬盘';   else DiskInfo.DiskType := '未知驱动器';   end;   if GetDiskFreeSpaceEx(PChar(DiskInfo.DiskName),FreeSpace,TotalSpace,nil) then   begin     DiskInfo.DiskTotalSpace := CaculateByte(TotalSpace);     DiskInfo.DiskFreeSpace := CaculateByte(FreeSpace);     DiskInfo.DiskUsageSpace := Trunc((TotalSpace - FreeSpace) / TotalSpace * 100);   end   else     result := false;   finally     FreeMem(lpLabel);     FreeMem(lpFileName);   end; end;

ugvanxk · 2001-12-29

uses mmsystem,mplayer; var:mp:tmediaplayer;msp:tmci_info_parms; mediastring:array[0..255]of char; ret:longint; begin  mp:=tmediaplayer.create(nil); mp.visible:=false; mp.parent:=application.mainform; mp.shareable:=true; mp.devicetype:=dtcdaudio; mp.filename:='d:'; mp.open; application.processmessage; fillchar(mediastring,sizeof(mediastring),#0); fillchar(msp,sizeof(msp),#0); msp.lpstrreturn:=@mediastring; msp.dwretsize; net:=mcisendcommand(mp.deviceid,mci_info,mci_info_media_identity,longint(@msp)); if ret<>0 then begin mcigeterrorstring(ret,@mediastring,sizeof(mediastring)); end mp.close; application.processmessage; mp.free; end;

xdog · 2001-12-30

try this one: uses MMSystem, MPlayer;     procedure TForm1.Button1Click(Sender: TObject);   var     mp : TMediaPlayer;     msp : TMCI_INFO_PARMS;     MediaString : array[0..255] of char;     ret : longint;     begin     mp := TMediaPlayer.Create(nil);     mp.Visible := false;     mp.Parent := Application.MainForm;     mp.Shareable := true;     mp.DeviceType := dtCDAudio;     mp.FileName := 'D:';     mp.Open;     Application.ProcessMessages;     FillChar(MediaString, sizeof(MediaString), #0);     FillChar(msp, sizeof(msp), #0);     msp.lpstrReturn := @MediaString;     msp.dwRetSize := 255;     ret := mciSendCommand(Mp.DeviceId,                           MCI_INFO,                           MCI_INFO_MEDIA_IDENTITY,                           longint(@msp));     if Ret <> 0 then     begin       MciGetErrorString(ret, @MediaString, sizeof(MediaString));       Memo1.Lines.Add(StrPas(MediaString));     end     else       Memo1.Lines.Add(StrPas(MediaString));     mp.Close;     Application.ProcessMessages;     mp.free;   end;

怎样才能读取一个光盘的卷标？(50分)

xao_hx

Unregistered / Unconfirmed

bluerain

Unregistered / Unconfirmed

ugvanxk

Unregistered / Unconfirmed

xdog

Unregistered / Unconfirmed

Similar threads