高手进来啊，关于文件拖动后缀名的问题(50)

想要实现的功能，当把文件拖动到程序中时，自动检测后缀名，符合则添加，不符合则提示出错信息，代码如下：procedure TForm1.WMDropFiles(var message: TMessage);var p: array[0..255] of Char; i: Word;begin inherited; ButtonedEdit1.Text:=''; i := DragQueryFile(message.Wparam, $FFFFFFFF, nil, 0); for i := 0 to i - 1 do begin DragQueryFile(message.Wparam, i, p, 255); ButtonedEdit1.Text:=StrPas(p); end; if ((ExtractFileExt(buttonededit1.text)<>'.wma')or (ExtractFileExt(buttonededit1.Text)<>'.mp3') or (ExtractFileExt(buttonededit1.Text)<>'.wav') or (ExtractFileExt(buttonededit1.Text)<>'.mid')) then begin Application.MessageBox('请选择后缀名为wma,mp3,wav,mid等类型的音乐文件！', 'MorningCaller 1.0', MB_OK); ButtonedEdit1.Text:=''; end; end;不管我的后缀名是什么，他总是会弹出这个MESSAGEBOX的错误框，当我把代码变成if ((ExtractFileExt(buttonededit1.text)<>'.wma') then....则没有问题，这个怎么解决啊？

怎么能用or呢，要用and才行啊！！！！！

问题解决了，谢谢楼上的，但是还有一个问题，就是当我通过拖曳的方式导入路径名之后，在用打开对话框，使，edit1.text；=opendialog1.filename，好像就不行了吗？根本就不能在EDIT中输入任何的数字和字符。是不是要在打开之前，先设置dragacceptfile 为false ?还是要用其他方法。

高手进来啊

问题已经解决

接受答案了.