Uso de API SHChangeNotify

[diego007]

Gracias por tu pronta respuesta ecfisa, tienes razon, no instale el pack. Pero yo considero que en este caso se refiere al componente original que tiene el delphi 7 que esta dentro de la pestaña "Samples" -> "TShellChangeNotifier"; revisando el texto no encuentro ningun link para descargar algun nuevo package. Por si acaso tu no lo encontraste?

[ecfisa]

Hola diego.

Aca podés descargar la versión 1.5.

Saludos.

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