Když máme přidány všechny komponenty a nastaveny jejich vlastnosti, je vhodné projekt uložit. Unit1 uložíme pod jménem FMXWin a Project1 pod FilManEx. K projektu dále přidáme následující programovou jednotku (nazveme ji FMXUtils). Obsahuje různé pomocné funkce pro práci se soubory (prostudujte si je a zjistěte co a jak dělají). Jsou zde také použity deklarace tříd výjimek. Nejprve je uveden hlavičkový soubor a následuje jeho programová jednotka:
#ifndef FmxUtilsHPP
#define FmxUtilsHPP
#include <consts.hpp>
#include <Classes.hpp>
#include <Windows.hpp>
#include <SysUtils.hpp>
#include <System.hpp>
class __declspec(delphiclass) EInvalidDest;
class __declspec(pascalimplementation) EInvalidDest:public EStreamError
{
 typedef EStreamError inherited;
public:
  __fastcall EInvalidDest(const AnsiString Msg) : EStreamError(Msg) { }
  __fastcall EInvalidDest(const AnsiString Msg, const TVarRec *Args,
      const int Args_Size) : EStreamError(Msg, Args, Args_Size) { }
  __fastcall EInvalidDest(int Ident) : EStreamError(Ident) { }
  __fastcall EInvalidDest(int Ident, const TVarRec *Args,
      const int Args_Size) : EStreamError(Ident, Args, Args_Size) { }
  __fastcall EInvalidDest(const AnsiString Msg, int AHelpContext) :
      EStreamError(Msg, AHelpContext) { }
  __fastcall EInvalidDest(const AnsiString Msg, const TVarRec *Args,
      const int Args_Size, int AHelpContext) : EStreamError(Msg, Args,
      Args_Size, AHelpContext) { }
  __fastcall EInvalidDest(int Ident, int AHelpContext) :
      EStreamError(Ident, AHelpContext) { }
  __fastcall EInvalidDest(int Ident, const TVarRec *Args,
      const int Args_Size, int AHelpContext) : EStreamError(Ident,
      Args, Args_Size, AHelpContext) { }
public:
  __fastcall virtual ~EInvalidDest(void) { }
};
class EFCantMove : public EStreamError
{
  typedef EStreamError inherited;
public:
  __fastcall EFCantMove(const AnsiString Msg) : EStreamError(Msg) { }
  __fastcall EFCantMove(const AnsiString Msg, const TVarRec *Args,
      const int Args_Size) : EStreamError(Msg, Args, Args_Size) { }
  __fastcall EFCantMove(int Ident) : EStreamError(Ident) { }
  __fastcall EFCantMove(int Ident, const TVarRec *Args,
      const int Args_Size) : EStreamError(Ident, Args, Args_Size) { }
  __fastcall EFCantMove(const AnsiString Msg, int AHelpContext) :
      EStreamError(Msg, AHelpContext) { }
  __fastcall EFCantMove(const AnsiString Msg, const TVarRec *Args,
      const int Args_Size, int AHelpContext) : EStreamError(Msg, Args,
      Args_Size, AHelpContext) { }
  __fastcall EFCantMove(int Ident, int AHelpContext) :
      EStreamError(Ident, AHelpContext) { }
  __fastcall EFCantMove(int Ident, const TVarRec *Args,
      const int Args_Size, int AHelpContext) : EStreamError(Ident,
      Args, Args_Size, AHelpContext) { }
public:
  __fastcall virtual ~EFCantMove(void) { }
};
extern void __fastcall CopyFile(const AnsiString FileName,
  const AnsiString DestName);
extern void __fastcall MoveFile(const AnsiString FileName,
  const AnsiString DestName);
extern long __fastcall GetFileSize(const AnsiString FileName);
extern TDateTime __fastcall FileDateTime(const AnsiString FileName);
extern bool __fastcall HasAttr(const AnsiString FileName,
  unsigned short Attr);
extern int __fastcall ExecuteFile(const AnsiString FileName,
  const AnsiString Params, const AnsiString DefaultDir, int ShowCmd);
#endif

#include <vcl.h>
#pragma hdrstop
#include <shellapi.h>
#include <stdio.h>
#include "FmxUtils.h"
TDateTime __fastcall FileDateTime(const AnsiString FileName)
{
  return (FileDateToDateTime(FileAge(FileName)));
}
long __fastcall GetFileSize(const AnsiString FileName)
{
  TSearchRec SearchRec;
  if(FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec)==0)
    return SearchRec.Size;
  else
    return -1;
}
void __fastcall MoveFile(const AnsiString FileName,
  const AnsiString DestName)
{
  AnsiString Destination;
  char FName[255];
  bool ckmove;
  Destination=ExpandFileName(DestName);
  GetFileTitle(FileName.c_str(),FName,255);
  if(HasAttr(FileName, faReadOnly)) {
    char buffer[255];
    sprintf(buffer, "Error: Can not move the file '%s'.",
      FileName.c_str());
    throw EFCantMove(buffer);
  }
  if (HasAttr(Destination,faDirectory))
    Destination=Destination+AnsiString(FName);
  ckmove= MoveFile(FileName.c_str(), Destination.c_str());
  if(!ckmove)
    ShowMessage("Please give the destination filename");
}
void __fastcall CopyFile(AnsiString FileName,AnsiString DestName)
{
  bool   ckcopy;
  AnsiString Destination;
  char   FName[255];
  GetFileTitle(FileName.c_str(),FName,255);
  Destination = ExpandFileName(DestName);
  if(HasAttr(Destination,faDirectory))
    Destination=Destination+FName;
  ckcopy= CopyFile(FileName.c_str(),Destination.c_str(),false);
  if(!ckcopy)
    ShowMessage("Please give the destination filename");
}
bool __fastcall HasAttr(const AnsiString FileName,
  const unsigned short Attr)
{
  int attribtest;
  attribtest=FileGetAttr(FileName);
  if(attribtest & Attr)
    return true;
  else
    return false;
}
int __fastcall ExecuteFile(const AnsiString FileName,
  const AnsiString Params, const AnsiString DefaultDir, int ShowCmd)
{
  char zFileName[79], zParams[79], zDir[79];
  return (int) ShellExecute(Application->MainForm->Handle, NULL,
    strcpy(zFileName, FileName.c_str()),
    strcpy(zParams, Params.c_str()),
    strcpy(zDir, DefaultDir.c_str()), ShowCmd);
}
K našemu formuláři přidáme i nabídku. Na formulář přidáme komponentu MainMenu a pomocí Návrháře nabídky vytvoříme nabídku podle následující tabulky (jsou zde uvedeny i zkracovací klávesy):
&File
&Open
&Move...        F7
&Copy...        F8
&Delete...      Del
&Rename...
&Properties...
------------
&Exit
Nyní již můžeme vytvořit obsluhu události OnClick pro volbu File | Exit, která uzavírá hlavní formulář aplikace. Vytvořte ji sami.

Podle následujícího obrázku na formulář přidáme další ovladače (jména tří komponent Label jsou uvedena na obrázku a značky nazveme ReadOnly, Archive, System a Hidden):

Pro nastavení souborových atributů, předáme jméno souboru a atributy funkci FileSetAttr. Následující kód čte souborové atributy do proměnné, nastaví značky v dialogovém okně na současné hodnoty atributů a dialogové okno provede. Jestliže uživatel některý z atributů změní, pak v případě uzavření dialogového okna pomocí tlačítka OK, jsou jejich hodnoty předány souboru (následující příkazy tvoří obsluhu volby File | Properties):
unsigned short  Attributes,  NewAttributes;
FileAttrDlg->FileDirName->Caption =
  FileList->Items->Strings[FileList->ItemIndex];
FileAttrDlg->FilePathName->Caption = FileList->Directory;
FileAttrDlg->ChangeDate->Caption =
  DateTimeToStr(FileDateTime(FileList->FileName));
Attributes = FileGetAttr(FileList->Items->Strings[FileList->ItemIndex]);
FileAttrDlg->ReadOnly->Checked = Attributes & faReadOnly;
FileAttrDlg->Archive->Checked = Attributes & faArchive;
FileAttrDlg->System->Checked = Attributes & faSysFile;
FileAttrDlg->Hidden->Checked = Attributes & faHidden;
if (FileAttrDlg->ShowModal()!= mrCancel){
  NewAttributes = Attributes;
  if (FileAttrDlg->ReadOnly->Checked)
    NewAttributes = NewAttributes | faReadOnly;
  else NewAttributes = NewAttributes & ~faReadOnly;
  if(FileAttrDlg->Archive->Checked)
    NewAttributes=NewAttributes|faArchive;
  else NewAttributes = NewAttributes & ~faArchive;
  if(FileAttrDlg->System->Checked)NewAttributes=NewAttributes|faSysFile;
  else NewAttributes = NewAttributes & ~faSysFile;
  if(FileAttrDlg->Hidden->Checked)NewAttributes=NewAttributes|faHidden;
  else NewAttributes = NewAttributes  & ~faHidden;
  if (NewAttributes != Attributes)
    FileSetAttr(FileAttrDlg->FileDirName->Caption, NewAttributes);
}
Přesun, kopírování a přejmenování souborů jsou podobné operace, všechny vytvářejí soubor z jiného souboru. Liší se pouze tím, co zbude z původního souboru. Knihovna běhu programu poskytuje funkci RenameFile, která provádí přejmenování. Programová jednotka FMXUtils poskytuje podobné funkce nazvané MoveFile a CopyFile pro další operace. Všechny tyto funkce přebírají dva řetězce jako své parametry: jméno původního souboru a jméno cílového souboru. Následující kód zobrazuje soukromou metodu nazvanou ConfirmChange, která zobrazí potvrzovací dialogové okno:
void __fastcall TFMForm::ConfirmChange(const AnsiString ACaption,
                AnsiString FromFile, AnsiString ToFile)
{
  char buffer[700];
  sprintf(buffer,"%s %s to %s?",ACaption, FromFile, ToFile);
  if(MessageDlg(buffer, mtConfirmation,
     TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes){
    if (ACaption == "Move") MoveFile(FromFile, ToFile);
    else if (ACaption == "Copy") CopyFile(FromFile, ToFile);
    else if (ACaption =="Rename") RenameFile(FromFile, ToFile);
   FileList->Update();
  }
}
Protože všechny tři operace jsou si podobné, může aplikace správce souborů sdílet většinu použitého kódu. Vytvoříme dialogové okno, ve kterém uživatel zadá původní jméno a cílové jméno a použijeme jej v těchto operacích. Na obrázku je toto okno zobrazeno (horní editační ovladač nazveme FromFileName a spodní ToFileName).

Formulář dialogového okna nazveme ChangeDlg a jeho jednotku uložíme do souboru FChngDlg.CPP. Po vytvoření dialogového okna jej můžeme otevírat z obsluhy události sdílené prvky nabídky Move, Copy a Rename (nazveme ji FileChange). Tato obsluha je tvořena příkazy (funkce _c_exit je definována v hlavičkovém souboru Process.h):
if (dynamic_cast<TMenuItem *>(Sender) == Move1 )
  ChangeDlg->Caption = "Move" ;
else if (dynamic_cast<TMenuItem *>(Sender) == Copy1)
  ChangeDlg->Caption = "Copy";
else if (dynamic_cast<TMenuItem *>(Sender) == Rename1)
  ChangeDlg->Caption = "Rename";
else _c_exit();
ChangeDlg->CurrentDir->Caption = DirectoryOutline->Directory;
ChangeDlg->FromFileName->Text = FileList->FileName;
ChangeDlg->ToFileName->Text = "";
if((ChangeDlg->ShowModal()!=mrCancel)&&(ChangeDlg->ToFileName->Text!=""))
  ConfirmChange(ChangeDlg->Caption, ChangeDlg->FromFileName->Text,
                ChangeDlg->ToFileName->Text);
Aplikace nyní zobrazuje dialogové okno se správným titulkem a provádí požadovanou operaci. Aplikace někdy potřebuje provést jinou aplikaci. API Windows poskytuje funkci ShellExecute, která provádí aplikaci, ale tato funkce vyžaduje několik parametrů. Programová jednotka FMXUtils obsahuje její snadněji použitelnou alternativu, nazvanou ExecuteFile. ExecuteFile pracuje dvěma způsoby. Je-li ji předáno jméno proveditelného souboru, ExecuteFile spustí tuto aplikaci. Je-li ji předáno jméno dokumentu přiřazeného aplikaci, ExecuteFile spustí aplikaci a automaticky otevře tento dokument. ExecuteFile přebírá tři parametry typu AnsiString a čtvrtý parametr indikující způsob zobrazení okna aplikace. Tři řetězce reprezentují jméno souboru, parametry předané aplikaci a adresář použitý jako pracovní adresář aplikace. Poslední parametr může být jedna z konstant používaná API funkcí ShowWindow. Např. SW_SHOW zobrazí okno normálně, SW_SHOWMINIMIZED zobrazí okno minimalizované apod. Okno seznamu souborů obsahuje všechny informace potřebné k provedení souboru. Stejné příkazy můžeme připojit k události OnDblClk okna seznamu souborů, což umožní spouštět programy dvojitým kliknutím na jejich jménu v seznamu. Jestliže ale vybraný prvek je adresář, potom pravděpodobně chceme tento adresář otevřít (přejít na tento adresář). Obsluha události volby File | Open bude vypadat takto:
if (HasAttr(FileList->FileName, faDirectory))
  DirectoryOutline->Directory = FileList->FileName;
else ExecuteFile(FileList->FileName," ", DirectoryOutline->Directory, SW_SHOW);
a obsluha dvojitého kliknutí na seznamu souborů je tvořena příkazem:
Open1Click(Sender);
HasAttr je funkce typu bool z FMXUtils, která vrací true, když soubor uvedený jako její první parametr má atribut určený druhým parametrem; jinak vrací false. Nastavení vlastnosti Directory seznamu adresářů, způsobí změnu adresáře. Dvojitým kliknutím na adresáři v seznamu souborů lze nyní měnit adresář. Vývoj aplikace dokončíme v následující kapitole.