//---------------------------------------------------------------------------
void __fastcall TForm1::DropFile(TWMDropFiles &Msg)
{
AnsiString FileName; //文件名
AnsiString Extension; //文件扩展名
FileName.SetLength(256);
DragQueryFile((HDROP)Msg.Drop,0,FileName.c_str(),FileName.Length());
Extension=ExtractFileExt(FileName);
Extension=Extension.UpperCase();
//限制字符串长度为4,以便于随后同".TXT"的比较
Extension.SetLength(4);
if(Extension==".TXT")
{
Caption=FileName;
RichEdit1->Lines->LoadFromFile(FileName);
}
else
ShowMessage(Extension);
DragFinish((HDROP)Msg.Drop);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
DragAcceptFiles(Handle,true);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DropFile(TWMDropFiles &Msg)
最新推荐文章于 2022-08-18 17:45:18 发布