操作系统课程设计--多用户多级目录文件系统的实现 报告+源程序

操作系统课程设计--多用户多级目录文件系统的实现 报告+源程序

//---------------------------------------------------------------------------
 
#include 
#pragma hdrstop

#include “file.h“
#include “newfile.h“
#include “showfile.h“
#include “property.h“
#include “help.h“
//---------------------------------------------------------------------------
#pragma package（smart_init）
#pragma resource “*.dfm“
Tmainfrm *mainfrm;
MFD *root*mpos*cutfolder*copyfolder;
TTreeNode *SelNode;
UFD *opfile*selfile*cutfile*copyfile;
int flag=4;
String addrstr;
bool login = false;
String user = ““;
//---------------------------------------------------------------------------
__fastcall Tmainfrm::Tmainfrm（TComponent* Owner）
        : TForm（Owner）
{
}
//---------------------------------------------------------------------------



void __fastcall Tmainfrm::BtGotoClick（Tobject *Sender）
{
        FindAddr（）;
        ListRefresh（）;
}
//---------------------------------------------------------------------------




void __fastcall Tmainfrm::ListViewDblClick（Tobject *Sender）
{
        TListItem *ListItem;
        String str=Comboaddr->Text;
        ListItem=ListView->Selected;
        if（ListItem==NULL） return;
        if（ListItem->ImageIndex==1）{
          FindAddr（）;
          for（opfile=mpos->file;opfile!=NULL;opfile=opfile->next）
          {
             if（opfile==NULL）  {ShowMessage（“文件打开失败!“）;return;}
             if（opfile->filename==ListItem->Caption）{
                showfrm->Editname->Text=opfile->filename;
                showfrm->Lsize->Caption=IntToStr（opfile->len）+“  （byte）“;
                showfrm->Memo->Text=opfile->text;
                int i=opfile->pt/100;
                int j=（opfile->pt%100）/10;
                int k=（opfile->pt%100）%10;
                if（i==1） showfrm->Lread->Caption=“允许读“;
                else
                        {showfrm->Lread->Caption=“禁止读“;
                        Application->MessageBoxA（“此文件禁止读!““警告“MB_ICONWARNING）;
                        return;}
                if（j==1）{showfrm->Lwrite->Caption=“允许写“;
                         showfrm->Memo->Enabled=true;}
                else
                        {showfrm->Lwrite->Caption=“禁止写“;
                         showfrm->Memo->Enabled=false;}
                if（k==1） showfrm->Lgo->Caption=“可执行“;
                else     showfrm->Lgo->Caption=“不可执行“;
                showfrm->BtSave->Enabled=false;
                showfrm->Show（）;
                return;
             }
            }
            if（opfile==NULL）  {ShowMessage（“文件打开失败!“）;return;}
          }
          else{
           if（ListItem!=NULL）{
           if（str==“root:\\“）  str=str+ListItem->Caption;
           else               str=str+“\\“+ListItem->Caption;
           Comboaddr->Text=str;
           FindAddr（）;
           ListRefresh（）;
          }
        }
}
//---------------------------------------------------------------------------



void __fastcall Tmainfrm::TreeView

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件     759296  2010-01-09 13:55  操作系统课程设计\3106007072杨福裕.doc

     文件      28806  2010-01-09 13:55  操作系统课程设计\项目源文件\file.cpp

     文件         51  2010-01-09 13:55  操作系统课程设计\项目源文件\file.ddp

     文件      44797  2010-01-09 13:55  操作系统课程设计\项目源文件\file.dfm

     文件       4773  2010-01-09 13:55  操作系统课程设计\项目源文件\file.h

     文件     224435  2010-01-09 13:55  操作系统课程设计\项目源文件\file.obj

     文件      28806  2010-01-09 13:55  操作系统课程设计\项目源文件\file.~cpp

     文件         51  2010-01-09 13:55  操作系统课程设计\项目源文件\file.~ddp

     文件      44779  2010-01-09 13:55  操作系统课程设计\项目源文件\file.~dfm

     文件       4773  2010-01-09 13:55  操作系统课程设计\项目源文件\file.~h

     文件       4472  2010-01-09 13:55  操作系统课程设计\项目源文件\FileSystem.bpr

     文件       1559  2010-01-09 13:55  操作系统课程设计\项目源文件\FileSystem.cpp

     文件     844800  2010-01-09 13:55  操作系统课程设计\项目源文件\FileSystem.exe

     文件      18890  2010-01-09 13:55  操作系统课程设计\项目源文件\FileSystem.obj

     文件     123168  2010-01-09 13:55  操作系统课程设计\项目源文件\FileSystem.res

     文件       9532  2010-01-09 13:55  操作系统课程设计\项目源文件\FileSystem.str

     文件    3276800  2010-01-09 13:55  操作系统课程设计\项目源文件\FileSystem.tds

     文件       4472  2010-01-09 13:55  操作系统课程设计\项目源文件\FileSystem.~bpr

     文件        540  2010-01-09 13:55  操作系统课程设计\项目源文件\help.cpp

     文件       1398  2010-01-09 13:55  操作系统课程设计\项目源文件\help.dfm

     文件        782  2010-01-09 13:55  操作系统课程设计\项目源文件\help.h

     文件      35741  2010-01-09 13:55  操作系统课程设计\项目源文件\help.obj

     文件       2432  2010-01-09 13:55  操作系统课程设计\项目源文件\newfile.cpp

     文件       3500  2010-01-09 13:55  操作系统课程设计\项目源文件\newfile.dfm

     文件       1374  2010-01-09 13:55  操作系统课程设计\项目源文件\newfile.h

     文件     163865  2010-01-09 13:55  操作系统课程设计\项目源文件\newfile.obj

     文件       3306  2010-01-09 13:55  操作系统课程设计\项目源文件\property.cpp

     文件       2201  2010-01-09 13:55  操作系统课程设计\项目源文件\property.dfm

     文件       2007  2010-01-09 13:55  操作系统课程设计\项目源文件\property.h

     文件     165914  2010-01-09 13:55  操作系统课程设计\项目源文件\property.obj

............此处省略9个文件信息