这个话题显然已经在这里被反复提及，但现在从我的角度来看，我已经没有选择了。操作系统:WindowsXPSP3所以，这是我在我的应用中使用的RichEdit的拖放示例:procedureTForm1.AcceptFiles(varmsg:TMessage);//orTWMDROPFILESconstcnMaxFileNameLen=255;vari,nCount:integer;acFileName:array[0..cnMaxFileNameLen]ofchar;begin//findouthowmanyfileswe'reacceptingnCount:=DragQueryFile(