[Electronic_Arts]

Что то не разобрался вот я хотел использывать вот это
но оно тож не помогает Трабла в том что при вставке оно не заменяет старые а добавляет новые с добавлением в названии файлов слово "Копия"

Код:

var
  OpStruc: TSHFileOpStruct;
  frombuf, tobuf: array [0..128] of Char;
begin
  FillChar( frombuf, Sizeof(frombuf), 0 );
  FillChar( tobuf, Sizeof(tobuf), 0 );
  StrPCopy( frombuf, 'C:\my\*.*' );
  StrPCopy( tobuf, edit1.Text );
  with OpStruc do
  begin
    Wnd:= Handle;
    wFunc:= FO_COPY;
    pFrom:= @frombuf;
    pTo:=@tobuf;
    fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
    fAnyOperationsAborted:= False;
    hNameMappings:= nil;
    lpszProgressTitle:= nil;
  end;
  ShFileOperation( OpStruc );
 end;

может поможете. Мне над что бы оно принудительно заменяла все файлы при вставке...