Uso de API SHChangeNotify

[diego007]

Gracias por la ayuda [white_zombie] y ecfisa, el programa trabaja super bien Una ultima pregunta, como podria hacer para que automaticamente con un boton copie los archivos "Creados" a una carpeta X?
De nuevo gracias por toda su ayuda

[[white_zombie]]

Puedes crear una lista (Tstringlist) y en el evento Oncreate del componente TSHChangeNotify añades todas las rutas de los archivos creados.

Mas o menos algo asi.

Código Delphi [-]
procedure TForm1.cnCreate(Sender: TObject; Flags: Cardinal; Path1: String);
begin
  List.Add(Path1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Cfiles: TSHFileOpStructA;
  I:integer;
begin
  for I:=0 to List.Count -1 do
  begin
    with Cfiles do
    begin
      wnd   := Application.Handle;
      wFunc := FO_copy;
      pFrom := PChar(List[i]);
      pTo   := PChar('Carpeta Destino');
      fFlags := FOF_NOCONFIRMATION;
    end;
    SHFileOperation(Cfiles);
  end;
end;

Un Saludo.

[diego007]

ok Gracias por toda la ayuda!!!!