Kopiowanie plików

W tym artykule po krótce zostaną wyjaśnione sposoby na skopiowanie plików w języku Delphi, jak i również sposób na utworzenie oraz usunięcie katalogu.

Zacznijmy od kopiowania. Najprościej to zrobić za pomocą funkcji CopyFile. Kopiuje ona pojedynczy plik.

CopyFile('C:\main.exe', 'D:\main.exe', False);

Pierwszy parametr określa źródło kopiowania, drugi cel.
Ostatni parametr określa jak program ma się zachować jeżeli plik o takiej nazwie już istnieje: True - nie robić nic; False - podmienić.

Takie zastosowanie ma jednak wadę - nie można kopiować całego katalogu.
W takim wypadku można skorzystać z modułu ShellApi. Dodaj to słowo do listy Uses. Teraz możesz już korzystać z funkcji TSHFileOpStruct. Oto przykład kopiowania pliku:

var
  R : TSHFileOpStruct;
begin
 with R do
 begin
   Wnd:=Handle; // oznaczenie uchwytu
   lpszProgressTitle := 'Skopiuj plik....';// tutuł okienka
   wFunc:=FO_COPY;// opcja
   pFrom:='c:\system.zip'; // z pliku
   pTo:='c:\Windows\Pulpit\system.zip';// do pliku
   fFlags:=FOF_NOCONFIRMMKDIR;
 end;
SHFileOperation(R);

W ten sposób wywołane zostanie okienko, które kopiować będzie dany plik. Ta funkcja może też wykonywać inne operację. Wystarczy, że zmienisz parametr wFunc oznaczający opcję. Może to być także:

FO_RENAME - zmienia nazwę pliku lub katalogu z "wFrom" do "pTo".
FO_DELETE - kasuje nazwę katalogu. Parametr "wTo" zostaje ignorowany.
FO_MOVE - przenosi nazwę katalogu lub pliku z "wFrom" do "wTo".

Jeżeli chcesz skasować katalog lub plik, możesz użyć następujących funkcji:

• DeleteFile - kauje plik;
• RemoveDirectory - kasuje katalogi;
• RmDir - również kasuje katalog;
• RemoveDir - kasuje katalog;

Jeżeli chcesz natomiast utworzyć nowy katalog, należy skorzystać z takiego kodu:

MkDir('C:\katalog');

lub

CreateDirectory('C:\katalog', nil);

Drugim parametrem tej funkcji jest atrybut. Na razie możemy pozostawić go jako pusty (Nil).

Istnieje jeszcze problem usuwania katalogu. Jeżeli nie jest on pusty do usuwanie się nie powiedzie. Można temu zapowiedz pisząc własną funkcję, której nagłówek może wyglądać w ten sposób;

function DeleteDirectory( const dir, path : String) : Boolean;

Cialo funkcji:

var
  SR : TSearchRec;
  Found : Integer;
  source : String;
begin
 source := dir + path;

  Found := FindFirst( source+'\*.*', faAnyFile, SR );
    try
      while  (Found = 0)  do
        begin
          if (SR.Name<>'.') and (SR.Name <> '..') then
          begin
           if (SR.Attr and faDirectory) <> 0 then
           begin
             DeleteDirectory( dir, path+'\'+SR.Name );
           end
          else
          begin
           FileSetAttr(
           source+'\'+SR.Name, FileGetAttr(source+'\'+SR.Name) 
                 and
           not (faReadOnly or faHidden) );
            if not DeleteFile( source+'\'+SR.Name ) then
              Result := False;
            end;
         end;
          Found := FindNext( SR );
        end;
    finally
      FindClose(SR);
    end;
    RemoveDir( source );
end;

Teraz jeżeli chcesz usunąć katalog, wystarczy wywołać naszą funkcję:

DeleteDirectory('C:\', 'Perl');