Cortar y copiar archivos...
 

Buenoooo, tengo un conjunto de funciones y procedimientos para copiar y cortar archivos, el problema es que funcionan "cuando les da la gana" y no se por que.
Bueno, el objeto CutCopy es un objeto propio que tiene dos propiedades, List (la lista de archvios a cortar o copiar) y Func (la función a desempeñar), así que sólo pongo uno.
Antes que nada el código de la función Operation (lo único que hace es llamar a SHFileOperation, la he creado por comodidad)

Código Delphi [-]
procedure Operation(Wnd: HWND; wFunc: UINT; pFrom: PAnsiChar; pTo: PAnsiChar;
  fFlags: FILEOP_FLAGS; lpszProgressTitle: PAnsiChar);
var
  SHFileOpStruct: TSHFileOpStruct;
begin
  ShFileOpStruct.Wnd := Wnd;
  ShFileOpStruct.wFunc := wFunc;
  ShFileOpStruct.pFrom := pFrom;
  ShFileOpStruct.pTo := pTo;
  ShFileOpStruct.fFlags := fFlags;
  ShFileOpStruct.lpszProgressTitle := lpszProgressTitle; 
  SHFileOperation(SHFileOpStruct);
end;

El código de las acciones de Copiar y Cortar son idénticos, sólo cambia el valor de CutCopy.Func (ccCopy o ccPaste), así que sólo pongo una acción:

Código Delphi [-]
procedure TMainFrm.LcCopyActExecute(Sender: TObject);
var
  I: Integer;
begin
  CutCopy.List.Clear;
  for I := 0 to LcList.Items.Count - 1 do
  if LcList.Items[i].Selected then
  CutCopy.List.Add(LcCurrentDir+LcList.Items[i].Caption);
  CutCopy.Func := ccCopy;
end;

Y finalmente el código de la acción Paste, que es la que se encarga de llamar a la función Operation (es decir, SHFileOperation):

Código Delphi [-]
procedure TMainFrm.LcPasteActExecute(Sender: TObject);
var
  I: Integer;
begin
  if CutCopy.Func = ccCut then
  begin
    for I := 0 to CutCopy.List.Count - 1 do
    begin
    Operation(Handle, FO_MOVE, PAnsiChar(CutCopy.List.Strings[i]),
              PAnsiChar(LcCurrentDir+ExtractFileName(CutCopy.List.Strings[i])),
              FOF_SIMPLEPROGRESS+FOF_NOCONFIRMATION,'');
    end;
  end;
  if CutCopy.Func = ccCopy then
  begin
    for I := 0 to CutCopy.List.Count - 1 do
    begin
    Operation(Handle, FO_COPY, PAnsiChar(CutCopy.List.Strings[i]),
              PAnsiChar(LcCurrentDir+ExtractFileName(CutCopy.List.Strings[i])),
              FOF_SIMPLEPROGRESS+FOF_NOCONFIRMATION,'');
    end;
  end;
  LcRefreshAct.Execute;
  CutCopy.Func := ccNone;
end;

Bueno, pues como he dicho, esto me funciona con algunos archivos y carpetas y con otros no, a veces si uno no podia copiarlo cierro el programa y si puedo copiarlo. Por qué sucede esto? Falta algo? Sobra algo?
Muchas gracias de anticipado, y disculpad por haceros leer tan largo post... ;)