关于notify消息处理和status length返回值的问题(20分)

[black][]1、有谁能告诉我，我用mciexecute('play mysound notify')，一曲播放
完后为什么捕获不了消息并进行处理？
2、我用mcisendstring('status mysound length',pchar(result),127,0),为什么在result
中总不能返回有效的值呢。
有劳各位不吝赐教，谢谢。[/black]

各位，为什么没人回答呢，真急啊

正常应该用回调函数才能得到notify消息，你这么做恐怕不行吧

第一个问题我已搞定了，主要是没有指定消息返回的handle
请帮我搞定第二个问题，最好给源码。
hysuser@21cn.com

把你的代码贴出来

如以下代码：
procedure TForm1.button1Click(Sender: TObject);
var mycommand,str:string;
j:integer;
begin

if opendialog1.Execute then

begin

mycommand:='open '+opendialog1.filename+' alias openfile type mpegvideo shareable parent '+inttostr(form1.handle);
j:=mcisendstring(pchar(mycommand),nil,0,0);
if j=0 then

begin

mycommand:='set openfile time format frames';
mcisendstring(pchar(mycommand),nil,0,0);
mycommand:='status openfile length';
mcisendstring(pchar(mycommand),pchar(str),127,0);
form1.caption:=str;
..............
end;

end;

end;

运行后好象str为空。
请指正。

mcisendstring(pchar(mycommand),pchar(str),127,0);

＝＝＝＝＝＝＝》

str := ' '
mcisendstring(pchar(mycommand),pchar(str),127,0);
试一试！

接受答案了.

mcisendstring(pchar(mycommand),pchar(str),127,0);
這句在編譯時沒問題，在運行時出錯，我把127改為0就可以，好像是類型不符