判断光驱状态(50分)

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #21

这个问题我已解决，有须要的朋友可以跟我来信
xxz007@yeah.net

 

C

cdh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-22

• #22

if mciSendString('Set cdaudiodo
or closed wait',
nil, 0, Handle)=0 then
begin
showmessage('关闭状态');
end
else
begin
showmessage('打开状态');
end;

原见你的方案：
email: wzcdh@yeah.net

 

C

Chenlili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-24

• #23

有一个消息wm_device_change

 

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-10

• #24

to CDH:
我的程序没你的那么简单，是把以前找到的几个函数组合到一块判断状态的!谢谢你的提示!

 

E

elan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-10

• #25

哎呀，我不是做了一个控件放上来了吗？可以监视是否有盘放进或取出，还能
锁定光驱呀。怎么就没人给我分呢。
去 http://www.gislab.ecnu.edu.cn/delphibbs/dispq.asp?LID=186334
看看把

 

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-14

• #26

to CDH:
你好!你的方法我试了一下，如果光驱是关闭它弹出对话框并打开，如果是打开的什么动静都没有!还有些Bug,你可以再试一下。
to elan:
你的程序我还没试，让我来度一下!

 

E

elan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-14

• #27

原来dos底下可以用中断来判断是否光驱的开关状态,以及是否有光盘,95、98下好像
就不起作用了。我的那个控件能够实现光驱的锁定、（LOck unloack）以及光盘放
入取出的通告。因为我没有使用nt ，所以目前在 nt 下的光驱锁定还没实现，但是
只要安 pipi 说得做就行了，

 

S

samecaoyh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-16

• #28

elan兄:
我用1个真光驱,8虚拟光驱,您的程序好像不起作用.

 

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-21

• #29

to elan:
能否把你的源码给我寄来？
xlf007@yeah.net

 

E

elan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-21

• #30

最主要的东西都在这里了，
http://www.gislab.ecnu.edu.cn/delphibbs/dispq.asp?LID=186334
你再改改就可以支持多个光驱了。我一直想添加这个功能，但是很忙，没办法，只好拜托你了。

 

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-10

• #31

这么长时间没人回答了
我现在还有一个问题，如何把string类型转换成char类型的

 

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-29

• #32

不会吧!这么长时间还没人回答？

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-14

• #33

>>如何把string类型转换成char类型的
问题变成这个了？？
var ch:char;
s:string;
ch:=string[1];

 

X

xf_xia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-26

• #34

如何把string类型转换成char类型的
var ch:array[0...1024] of char;
ss:string;
strpcopy(ch,ss);

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-21

• #35

接受答案了.