如何读光盘的盘符?(50分)

I

ilook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #1

如何自动地读出光盘的盘符。用什么语句实现？

 

I

ilook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #2

不会吧。这个问题都没有人回答吗？是不是分太少了？[]

 

I

ilook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #3

再up一下。

 

L

leezero

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #4

什么意思？

 

W

WangBingBing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #5

UP

 

I

ilook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #6

程序中有一部份需要从光盘里读一些文件。想启动程序后。可以自动读到光盘的盘符。
如f:/ ？？这个还不清楚吗？每台机子的光盘盘符不大一样。这样可以比较方便。当然也
可以通过路径选择对话框选择。不过那样麻烦了一点

 

I

ilook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #7

晕~~~
就是
在delphi中如何获得光盘盘符？？？？[][][]

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #8

procedure TForm1.Button5Click(Sender: TObject);
var
c:char;
begin
combobox1.clear;
for c:='A' to 'Z' do
if GetDriveType(pchar(''+c+':'))=DRIVE_CDROM
then combobox1.items.add(''+c+':');
if combobox1.items.Count>0 then combobox1.ItemIndex:=0;
end;

 

I

ilook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #9

呵呵，就是嘛.jsxjd。我发现你问的几个问题。你都答得很好呀。。在此多谢了。[][]

 

I

ilook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #10

谢谢