主页
Top.Mail.Ru Yandeks.Metrika
论坛:“WinAPI”;
当前存档:2004.12.12;
下载:[xml.tar.bz2];

向下

如何确定驱动器中是否有磁盘? 找到类似的分支


Кириешки ©   (2004-10-30 13:26) [0]

我先放CD驱动器的字母,再放它们的名称,但我不知道如何确定驱动器中是否有磁盘。 告诉我PLIZ。



ssk ©   (2004-10-30 13:45) [1]

作为一种选择:读取序列号。 如果有东西,那么有一个磁盘:

函数DiscInDrive(D:char):布尔值; 变种 VolumeName,FileSystemName:字符数组[0..MAX_PATH-1]; VolumeSerialNo:DWord; MaxComponentLength,FileSystemFlags:Cardinal; 开始 GetVolumeInformation(PAnsiChar(D +“:\”),VolumeName,MAX_PATH, @ VolumeSerialNo,MaxComponentLength,FileSystemFlags, FileSystemName,MAX_PATH); 结果:= VolumeSerialNo <> 0; 结束

该功能不适用于干净的猪和已擦除的RW



SSSdd   (2004-10-30 14:24) [2]

ssk©谢谢。



Кириешки ©   (2004-10-30 14:26) [3]

SSK
谢谢。



grom   (2004-10-30 16:05) [4]

>飞字母CD驱动器, 然后是他们的名字
飞字母CD驱动器-简单。
然后是他们的名字-但这正是我感兴趣的。
您如何获得CD驱动器的名称。
告诉我是否可以。



abc   (2004-10-30 16:12) [5]

>驱动器中是否有磁盘
{如果磁盘存在/已插入...}
如果GetHDDInfo(S [I],VolumeName,FileSystemName,VolumeSerialNo,
MaxComponentLength,FileSystemFlags),然后{...然后我们收集信息}

http://delphibase.endimus.ru/?action=viewfunc&topic=harddisk&id=10139



OSokin ©   (2004-10-30 17:08) [6]

主持人,您至少在两个月前删除了邮件,否则,人们将无法看到它们……
无论如何,是时候将其放入常见问题解答中了

要检查磁盘是否在驱动器中,需要使用函数“ GetDiskFreeSpace(pchar(disk +“:\”),a,a,a,a);”,其中“ disk”是磁盘的名称,而“ a”是变量输入红衣主教。 如果函数返回false,则驱动器中没有磁盘。



abc   (2004-10-30 18:54) [7]

VAR
q,e:字符数组[0..MAX_PATH-1];
m:红衣主教;
开始
如果GetVolumeInformation(PChar(“ d:\”),q,MAX_PATH,@ m,m,m,e,MAX_PATH)然后...
否则...

从驱动器中删除磁盘时,GetVolumeInformation as GetDiskFreeSpace不会给出错误。



Петрук Игорь   (2004-10-31 09:22) [8]

如果驱动器中没有磁盘,则FindFirst函数将返回一些值。 您可以在帮助中找到该值。 如果没有磁盘,则会出现错误消息。 执行该函数时,最好禁用异常处理。 而且您Kiriyoshki偶然不是来自Kremenchug。



Страницы: 1 整个分支

论坛:“WinAPI”;
当前存档:2004.12.12;
下载:[xml.tar.bz2];

楼上





内存:0.57 MB
时间:0.054 c
1-1101252517
鲍比数码
2004-11-24 02:28
2004.12.12
图标


1-1101208136
恕我直言,
2004-11-23 14:08
2004.12.12
画布不允许绘图


6-1092257951
皮特
2004-08-12 00:59
2004.12.12
建议选择使用TCP的组件


1-1101261730
鲍比数码
2004-11-24 05:02
2004.12.12
检查类型


3-1100166567
Avtor333
2004-11-11 12:49
2004.12.12
添加一列!





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский