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.