一个简单问题，大送分。(50分)

N

nzfboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #1

1、pchr 如何转为str<br>2、wmQueryEndSession如何使用？<br>在type中我已经定义了procedure WMQUERYENDSESSION(var message:Tmessage);message WM_QUERYENDSESSION;。<br>在程序中我也写了<br>procedure TForm1.WMQUERYENDSESSION(var message:Tmessage);<br>begin<br>&nbsp; //加上你的代码;<br>&nbsp; message.result:=1;<br>{注：如不加此句，系统便不会关闭｝<br>end;<br>可一执行就报错。不懂为什么。<br>3、两个光驱如何打开其中指定的一个？<br>望请赐教，不胜感激。

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #2

1、直接赋值。<br>3、没动。<br>2、当然了，如果你Messsage.Result=0，表示你反对关机，那就不关了

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #3

1.strpas()

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #4

2、你的代码我实验了一下，没有发现错误呀。<br>&nbsp; &nbsp;能说一下你的错误吗？

 

O

only you

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #5

1,直接赋值给一个STRING类型，或直接用STRING（变量）强制转换<br>2，你的写法是对的，肯定是别的地方出问题了，<br>//加上你的代码;<br>这里你的代码是否有问题，比如释放一些动态变量，对于属于FORM1的变量来说，没必要在这里<br>释放，因为该变量会被FORM1自己释放掉，不许要自己手工释放。<br>3，依次检测驱动器的类型，如果是光盘就记录下盘符，然后按盘符打开或关闭。<br>

 

N

nzfboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #6

在type中我已经定义了procedure WMQUERYENDSESSION(var message:Tmessage);message WM_QUERYENDSESSION;。<br>在程序中我也写了<br>procedure TForm1.WMQUERYENDSESSION(var message:Tmessage);&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;----它出错<br>begin<br>end;<br>我关心的是在begin、end中的代码无法执行。<br>现在我一运行，机器报《《《《《《出错，讲定义与上面的不匹配。

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #7

将procedure WMQUERYENDSESSION(var message:Tmessage);message WM_QUERYENDSESSION;<br>有Type中转移到TForm1类中,做为它的一个方法.

 

N

nzfsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-31

• #8

&nbsp;要写到private中去。

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-31

• #9

string(pchar)

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-31

• #10

gz

 

N

nzfboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-02

• #11

多人接受答案了。