Курсовая работа: Файловый менеджер
}
void TForm1::PasteFileFromClipboard() //Вставить из буфера
{
if(CurrentDir=="") return;
char *frombuf, *temp;
char tobuf[MAX_PATH+1]={'\0'};
int nCount,i; //Число копируемых объектов
Pointer Data;
char * lpDroppedFile;
OpenClipboard(NULL); //Открывает clipboard для текущего процесса
if (IsClipboardFormatAvailable(CF_HDROP))
{
Data=GetClipboardData(CF_HDROP); //Получение указателя на данные
if(Data==0) { CloseClipboard(); return; } //Нечего забирать
nCount= DragQueryFile(Data, 0xFFFFFFFF, NULL, 0); //Получение количества
temp=frombuf=new char[MAX_PATH*nCount];
if (nCount > 0)
{
lpDroppedFile=(char *)AllocMem(MAX_PATH + 1); //Выделение памяти под массив
for (i= 0;i<nCount;i++) //с названиями копирумых объектов
{
DragQueryFile(Data, i, lpDroppedFile, MAX_PATH); //Собственно получение имен этих объектов
if(i!=0)
strcat0(temp,lpDroppedFile); //Добавление к frombuf
else
strcpy(temp,lpDroppedFile);
}
finstr(temp);
free(lpDroppedFile); //Освобождение
strcpy(tobuf,CurrentDir.c_str());
}
long lngEffect;
long lngFormat = RegisterClipboardFormat(CFSTR_PREFERREDDROPEFFECT);
HANDLE hGlobal = GetClipboardData(lngFormat);
if(hGlobal)
MoveMemory(&lngEffect,hGlobal, 4);
if((lngEffect & DROPEFFECT_COPY) == DROPEFFECT_COPY)
FileAndFolderOperation(frombuf,tobuf , FO_COPY);
if((lngEffect & DROPEFFECT_MOVE) == DROPEFFECT_MOVE)
FileAndFolderOperation(frombuf,tobuf , FO_MOVE);
UpdateAll(false);
}
CloseClipboard();
}
void TForm1::CopyFileToClipboard(bool Copy)
{
if(CurrentDir=="") return;
char *frombuf;
unsigned int uDropEffect, uBufLen;
DROPFILES dropFiles;
unsigned int uGblLen,uDropFilesLen;
HGLOBAL hGblFiles,hGblEffect;
char *szData,*szFileList;
DWORD *dwDropEffect;
uDropEffect=RegisterClipboardFormat("Preferred DropEffect"); //Регистрация формата
//для указания типа копирования
hGblEffect=GlobalAlloc(GMEM_ZEROINIT|GMEM_MOVEABLE|GMEM_DDESHARE,sizeof(DWORD));
dwDropEffect=(DWORD*)GlobalLock(hGblEffect); //Выделение памяти под хранение
if(Copy) //инфы о виде перемещения
*dwDropEffect=DROPEFFECT_COPY; //Запись этой инфы
else
*dwDropEffect=DROPEFFECT_MOVE;
GlobalUnlock(hGblEffect); //Разлочивание памяти
uDropFilesLen=sizeof(DROPFILES); //Заполнение структуры содержащей инфу
dropFiles.pFiles =uDropFilesLen; //о строке с именами перемещаемых файлов
dropFiles.pt.x=0;
dropFiles.pt.y=0;
dropFiles.fNC =FALSE;
dropFiles.fWide =FALSE;//TRUE;
if(ListView1->ItemFocused==NULL)
{
if(TreeView1->Selected!=NULL) //Если в фокусе находится treeview
if(TreeView1->Selected->Level>1)
{
AnsiString sourcestr=*((AnsiString *)(TreeView1->Selected->Data));
sourcestr.SetLength(sourcestr.Length()-1);
frombuf=new char[MAX_PATH+1];
strcpy(frombuf,sourcestr.c_str());
finstr(frombuf);
}
else
return; //Выход в том случае если в фокусе Диск или Мой компьютер
}
else if((ListView1->Selected)!=NULL)
PrepareBufForOperationInListView(frombuf);
uBufLen=lengthfinstr(frombuf);
uGblLen=uDropFilesLen+uBufLen+2;
hGblFiles= GlobalAlloc(GMEM_ZEROINIT|GMEM_MOVEABLE|GMEM_DDESHARE, uGblLen);
szData=(char*)GlobalLock(hGblFiles);
memcpy(szData,&dropFiles,uDropFilesLen);
szFileList=szData+uDropFilesLen;
memcpy(szFileList,frombuf,uBufLen);
/*MultiByteToWideChar(CP_ACP,MB_COMPOSITE,
frombuf,uBufLen,(WCHAR *)szFileList,uBufLen*2+8);*/
GlobalUnlock(hGblFiles);
if( OpenClipboard(NULL) )
{
EmptyClipboard();
SetClipboardData( CF_HDROP, hGblFiles );
SetClipboardData(uDropEffect,hGblEffect);
CloseClipboard();
}
}
void TForm1::CreateFol() //Создает папку в текущем каталоге
{
if(CurrentDir=="") return;
AnsiString c="Новая папка",dir; //Производит поиск отсутствующей папки
for(int i=1;(GetFileAttributes((dir=CurrentDir+c+i).c_str()))!=-1;i++);
if(ListView1->Selected!=NULL) //Если есть выделенные узлы
for(int i=0;i<ListView1->Items->Count;i++) //отменяем выделение
ListView1->Items->Item[i]->Selected=false;
if(CreateDir(dir)) //Создает ее
{
TSearchRec sr;
FindFirst(dir,faDirectory,sr);
TListItem *p=AddItemInListView(sr,ExtractFilePath(dir));
ListView1->ItemFocused=p;
p->Selected=true;
p->EditCaption();
}
UpdateAll(false);
}
//*************************************************************************
//------------------------------------------------------------------------
//***********************************************************************
__fastcall TForm1::TForm1(TComponent* Owner) //Конструктор формы
: TForm(Owner)
{
ShortDateFormat="dd/mm/yy";
DateSeparator = '/';
TimeSeparator=':';
ShortTimeFormat="h:nn";
AnsiString *a=new AnsiString("");
TreeView1->Items->Item[0]->Data=a;
head=TreeView1->Items->Item[0]; //Сохранение корня
GetDrives(); //Загрузка дисков
ShowDrives(); //Отображение в treview
TreeView1->AlphaSort();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TreeView1Expanding(TObject *Sender,
TTreeNode *Node, bool &AllowExpansion)//Событие - открытие узла
{
DragnDrop=false; //Запрещение перемещения
TreeView1->Items->BeginUpdate();
tpItem=TreeView1->TopItem; //Сохранение верхнего узла
if(!CheckExpandedChild(Node)) //Если ни один из потомков не расширен
ViewChild(Node);
TreeView1->AlphaSort(); //Сортировка
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TreeView1Compare(TObject *Sender, TTreeNode *Node1,
TTreeNode *Node2, int Data, int &Compare) //Функция сравнения
{
if(Node1->Level==1) //Для упорядочивания treeview
Compare=Node1->Text[Node1->Text.Length()-2]>Node1->Text[Node1->Text.Length()-2]?1:-1;
else
Compare=Node1->Text.AnsiCompare(Node2->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TreeView1Expanded(TObject *Sender, TTreeNode *Node)
{ //Сообщение об окончании
TTreeNode * temp=TreeView1->TopItem; //Раскрытия списка
TreeView1->TopItem=tpItem; //Проверка выхода конца открытой ветви за экран
if((TreeView1->GetNodeAt(TreeView1->Width/2,TreeView1->ClientHeight-1))!=NULL)
{ //Если это так то сдвигаем всю ветвь вверх автоматом
int p=(TreeView1->GetNodeAt(TreeView1->Width/2,TreeView1->ClientHeight-1))->AbsoluteIndex;
if(p<=Node->GetLastChild()->AbsoluteIndex) TreeView1->TopItem=temp;
} //если нет то ставим первым сохранненый ранее первый элемент
TreeView1->Items->EndUpdate();
DragnDrop=true; //Разрешение перемещения
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TreeView1Collapsing(TObject *Sender,
TTreeNode *Node, bool &AllowCollapse) //Событие - перед свертыванием
{
DragnDrop=false;
TreeView1->Items->BeginUpdate();
if(!CheckExpandedChild(Node)) //Если ветвь ни одного из потомков не расширена
DeleteChild(Node); //Удаление детей детей
TreeView1->Items->EndUpdate();
DragnDrop=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TreeView1Editing(TObject *Sender, TTreeNode *Node,
bool &AllowEdit)
{
if(Node->Level<2) AllowEdit=false; //Запрет на редактирование Мой комп и названий дисков
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListView1Compare(TObject *Sender, TListItem *Item1,
TListItem *Item2, int Data, int &Compare)
{
bool temp1=false, temp2=false;
if(((FileGetAttr(*((AnsiString *)Item1->Data))) & faDirectory)!=0)
temp1=true;
if(((FileGetAttr(*((AnsiString *)Item2->Data))) & faDirectory)!=0)
temp2=true;
AnsiString s1,s2;
switch(ColumnToSort)
{
case 0:
if(temp1==temp2)
Compare=(Item1->Caption).AnsiCompare(Item2->Caption);
else
Compare=temp2?1:-1;
break;
case 2:
if(temp1==temp2)
Compare=(Item1->SubItems->Strings[1]).AnsiCompare(Item2->SubItems->Strings[1]);
else
Compare=temp2?1:-1;
break;
case 1:
if(temp1) s1="0 ";
else s1= Item1->SubItems->Strings[0];
if(temp2) s2="0 ";
else s2= Item2->SubItems->Strings[0];
s1=s1.SubString(1,s1.Pos(" ")-1);
s2=s2.SubString(1,s2.Pos(" ")-1);
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9
