Исходник аудио/видео плеера

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    DragAcceptFiles(Handle,true);
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WmDropFiles(TWMDropFiles& Message)
{
    HDROP drop_handle=(HDROP)Message.Drop;
    char fName[MAXPATH];
    int filenum=DragQueryFile(drop_handle,-1,NULL,NULL);
    for (int i=0;i<filenum;i++)
    {
        DragQueryFile(drop_handle,i,fName,MAXPATH);
        Memo1->Lines->Add(fName);
        ReadFile(fName);
    };
    DragFinish(drop_handle);
};
//---------------------------------------------------------------------------
void __fastcall TForm1::ReadFile(AnsiString FileName)
{
for (int i = 0; i < Memo1->Lines->Count; i++)
{
FP1[i]=Memo1->Lines->Strings[i];
}
    {
    AnsiString s=ExtractFileName(FileName);
    ListBox1->Items->Add(s);
    }
}
//---------------------------------------------------------------------------

private:    // User declarations
    void __fastcall CreateMDIChild(const String Name,bool img);
    void __fastcall WmDropFiles(TWMDropFiles& Message);
public:     // User declarations
void __fastcall ReadFile(AnsiString FileName);
    __fastcall TForm1(TComponent* Owner);
        BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_DROPFILES,TWMDropFiles,WmDropFiles)
    END_MESSAGE_MAP(TForm);