每一张光盘都有个唯一的id
你可以利用这个id
你可以利用这个id
解决方案 »
- Dephi中能否对bit进行操作,如果能,如何操作?
- DELPHI编译时为何报错呢?
- 100分求Recordset.Find的用法,在线等!马上结贴!
- 如何处理读一个文件的一行时ReadLn时,这行超长而导致读不下去的问题?????
- 总统泡妞记
- 几个关于AdvStringGrid的问题。
- 求DELPHI6的两个补丁下载地址,谢谢!
- delphi中有没有类似c中htons转换函数
- [求助]Windows右键批量打开文件的实现问题!
- 请问大家有没有从exe文件中找出一个窗口中写入数据与数据库中表的字段相对应的工具???
- linux下如何安装delphi?
- 如何对文件操作?请教!!!!!!!!!!!!
var
dw1,dw2:DWORD;
p:pDWORD;
begin
try
getmem(p,80);
getvolumeinformation(pchar(DrvName+':\'),nil,0,p,dw1,dw2,nil,0);
result:=p^
finally
freeMem(p);
end;
end;
DrvName为光盘的盘符,
如:cdid=GetCDInfo('f')就获得了cd号