G
ggg
Unregistered / Unconfirmed
GUEST, unregistred user!
O
only you
Unregistered / Unconfirmed
GUEST, unregistred user!
function DiskInDrive(const Drive: char): Boolean;stdcall;
var DrvNum: byte;
EMode: Word;
begin
result := false;
DrvNum := ord(Drive);
if DrvNum >= ord('a') then
dec(DrvNum,$20);
EMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
if DiskSize(DrvNum-$40) <> -1 then
result := true
else
messagebeep(0);
finally
SetErrorMode(EMode);
end;
end;
var DrvNum: byte;
EMode: Word;
begin
result := false;
DrvNum := ord(Drive);
if DrvNum >= ord('a') then
dec(DrvNum,$20);
EMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
if DiskSize(DrvNum-$40) <> -1 then
result := true
else
messagebeep(0);
finally
SetErrorMode(EMode);
end;
end;
G
ggg
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
X
xf_xia
Unregistered / Unconfirmed
GUEST, unregistred user!
上面这个函数好象不是确定光驱的，而是确定某个盘符是否VALID的。
G
ggg
Unregistered / Unconfirmed
GUEST, unregistred user!
我已经发现这个问题了,无赖分分已经送给only you 了。覆水难收！
不过这个问题我已经解决了。
打雷了！下雨了！赶快收衣服啊！
不过这个问题我已经解决了。
打雷了！下雨了！赶快收衣服啊！
O
only you
Unregistered / Unconfirmed
GUEST, unregistred user!
不好意思!我本来是要贴判断光驱的代码的,可是我贴错了,今天收到E-MAIL才发现错了,不好
意思,我有判断光驱的方法,我会贴给你!
意思,我有判断光驱的方法,我会贴给你!
O
only you
Unregistered / Unconfirmed
GUEST, unregistred user!
code is in here!!
Function DiskIsCDROM
Char;
var Drivechar;
i:char;
begin
for i:='A' to 'Z' do
begin
drive:=Pchar(i+':/');
if GetDriveType(Drive)=DRIVE_CDROM then
begin
Result:=drive;
break;
end
else
Result:='0';
end;
end;
Function DiskIsCDROM
Char;var Drive
char;i:char;
begin
for i:='A' to 'Z' do
begin
drive:=Pchar(i+':/');
if GetDriveType(Drive)=DRIVE_CDROM then
begin
Result:=drive;
break;
end
else
Result:='0';
end;
end;
