Uso de API SHChangeNotify

[ecfisa]

Hola.

No estaba el post de white_zombie cuando edité el link...
Lo que él te adjunta es mucho mejor, ya que como te dice arriba, podés probarlo sin tener que instalar el package.
Luego decidirás si lo incorporas o no.

Saludos.

[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!!!!