想问几个函数问题:)

1）getmem是在内存中申请一个名为mybuffer的255字节的空间，freemem则是把它释放
3）你可以看一看shell类的函数，用命令，  也可以定义一个MEDIAPLAYER控件，让它不可见
来控制光驱

解决方案 »

  1.   

    (2)reset(f)和reset(f,1)的区别是当f为无类型文件时，第二个参数用于指定传输块的大小默认为128,读无类型文件时用BlockRead(var F: File; var Buf; Count: Integer [; var AmtTransferred: Integer]);传递到缓冲区中的大小为Count*第二个参数值
    (3)好像是mciSendString吧
      

  2.   

    mcisendstring('set cdaudio door open wait',nil,0,handle);
    mcisendstring('set cdaudio door close wait',nil,0,handle);
      

  3.   

    谢谢各位的答复!请问第三个问题中如果用
    mcisendstring('set cdaudio door open wait',nil,0,handle);
    mcisendstring('set cdaudio door close wait',nil,0,handle); 
    要引用什么单元文件吗???
      

  4.   

    mcisendstring('set cdaudio door open wait',nil,0,handle);
    mcisendstring('set cdaudio door close wait',nil,0,handle); 
    要引用什么单元文件吗??? 
      

  5.   

    HAHA ,大家都讲得这么详细拉。
    MMSYSTEM.PAS