在DELHPI编程过程中用什么样的方法判断是否放了光盘、软盘。
解决方案 »
- 大家讨论一下,做类似flash播放器的播放画布,用什么技术好?
- 上传文件,把本地的图片,word文档,pdf文件上传
- Tdatabase控件中的一个属性值的问题
- 自定义组件问题,请诸位大侠帮忙!
- 简单问题,如何限制一个MEMO控件的每一行只能输入<30个字符,超过就换行?
- 关于ado 和sql在不同机器上的问题
- POSTSCRIPT格式(*.ps)的文件要用什么工具才能打开?
- Formula one 6.1 复制和粘贴不能用,怎么回事啊?
- 求援!!如何获得ACCESS数据库的密码?
- 如何将程序最小化至系统托盘并可通过热键击活?
- interface是起什么作用?
- tvapithing是什么东西?哪里可以找到?
procedure GetDiskInfo(const Drv:string;var Name:string;Var Sn:integer);
var
VolumeName : array[0..255] of char;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
Serial:DWord;
s:string;
begin
s:=Drv;
if s[Length(s)] =':' then s := s + '\';
GetVolumeInformation(pChar(s),
VolumeName,
256,
@serial,
MaximumComponentLength,
FileSystemFlags,
nil,
0);
name:=volumename;
sn:=integer(Serial);
end;var
s:string;
n:integer;
....
getdiskinfo('G:\',s,n);
if n<>0 then showmessage(s);