//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TMemo *Memo1;
    void __fastcall FormCreate(TObject *Sender);
private:    // User declarations
public:        // User declarations
    AnsiString Files;
    void __fastcall WmDropFiles(TWMDropFiles DropFiles);
    __fastcall TForm1(TComponent* Owner);
BEGIN_MESSAGE_MAP
  MESSAGE_HANDLER(WM_DROPFILES, TWMDropFiles, WmDropFiles)
END_MESSAGE_MAP(TForm)

};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

위의 내용은 H 파일의 내용입니다....


//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TForm1::WmDropFiles(TWMDropFiles DropFiles)
{
    char buf[MAX_PATH];
    HDROP hDrop = (HDROP)DropFiles.Drop;
    int NumFiles = DragQueryFile(hDrop, -1, NULL, NULL);
    Memo1->Clear();
    for (int i = 0; i < NumFiles ; i++)
    {
        DragQueryFile(hDrop, i, buf, sizeof(buf));
        if (NumFiles == 1)
            Memo1->Lines->LoadFromFile(buf);
        else
            Memo1->Lines->Add(buf);
    }
    DragFinish(hDrop);
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    DragAcceptFiles(Handle, 1);
    Files = ParamStr(1);
//    ShowMessage(Files);
    if (Files !="")
        Memo1->Lines->LoadFromFile(Files);
}
//---------------------------------------------------------------------------


위는 메인 소스 내용입니다....

^^

그럼 즐거운 프로그램 하세요........


김미혜 님이 쓰신 글 :
: 저 탐색기에 있는 파일을 매모장처럼 프로그램을 연상태에서
: 드래그&그롭해거 그 파일에 있는 내용을 보게끔할려면 어떻게 해야하나여????
: