Operacja na plikach (WinAPI)

Jeśli chodzi o operacje na plikach to Delphi udostępnia nam te możliwości, lecz są one ubogie. Moduł ShellAPI udostępnia nam znacznie bardziej rozbudowany arsenał poleceń i funkcji. Na początek zajmiemy się kopiowaniem.

Konieczne jest utwotzenie zmiennej typu TSHFileOpStruct. Zobaczcie:

var
     P : TSHFileOpStruct;
begin
   P.Wnd := Handle;
   P.wFunc := FO_COPY;
   P.pFrom := 'C:\plik.xxx';
   P.pTo := 'C:\katalog\plik.xxx';
   P.fFlags := FOF_RENAMEONCOLLISION or FOF_SIMPLEPROGRESS;
   p.fAnyOperationsAborted := True;
   P.lpszProgressTitle := 'Trwa kopiowanie pliku...';
   SHFileOperation(P);
end;

Pierwsza linijka jest to uchwyt. Druga linijka jest odpowiedzialna za czynność jaka zostanie wykonana. Mamy cztery opcje do wyboru:

• FO_COPY - kopiuje z pFrom do pTo
• FO_DELETE - usuwa plik z pFrom
• FO_RENAME - zmienia nazwę
• FO_MOVE - przemieszcza plik z pFrom do pTo
  Kolejne dwie linijki są chyba jasne po wyjaśnieniu drugiej linijki, więc oszczędzę sobie pisania.

W poleceniu fFlags ustawiamy właściwości przeprowadzanej operacji. Możemy zastosować następujące komendy:

• FOF-ALLOWUNDO - możliwe jest cofnięcie operacji
• FOF_FILESONLY - przenosi tylko pliki z folderu, a nie z podfolderu
• FOF_NOCONFIRMATION - w razie konieczności nie jest wyświetlana informacja (np. w przypadku istnienia pliku o tej samej nazwie)
• FOF_NOCONFIRMMKDIR - nie tworzy nowego folderu, jeżeli operacja tego wymaga
• FOF_SILENT - okno kopiowania nie zostanie wyświetlone
• FOF_SIMPLEPROGRESS - wyświetla wybrany przez Ciebie tekst w polu lpszProgressTitle, a nie wyswietla kopiowanego pliku
• FOF_RENAMEONCOLLISION - w przypadku istnienia pliku o tej samej nazwie, jego nazwa jest zmieniona
  Przedostatnie polecenie fAnyOperationsAborted określa możliwość anulowania danego procesu i jak łatwo się domyślić przyjmuje wartość Boolean, czyli True lub False.
  Bez ostatniej linijki SHFileOperation(P) program nic by nie zrobił. Jest to jakby polecenie WYKONAJ, które należy zawsze stosować przy takich operacjach na plikach jak te, które opisałem powyżej.