[Jaroslav285]

Решил вопрос путем добавления последнего символа таблицы ASCII перед именем папки, новый код прилагаю.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

procedure TForm1.WMDeviceChange(var Msg: TMessage);  var pDBT:P_DEV_BROADCAST_HDR;  FileOp: TSHFileOpStruct;     vVolumeName, vFileSystemName: array [0..MAX_PATH-1] of Char;  vVolumeSerialNo, vMaxLength, vFileSystemFlags: LongWord;  const  begin     case Msg.WParam of  $8000:  begin  Memo1.Lines.Clear;  for s:= 'D' to 'J' do begin  if (GetDriveType(PChar(s+':\')) = DRIVE_REMOVABLE)  then begin memo1.Lines.Add(s+':\'); //Получение списка вставленных флешек при подключении USB-Flash     pDBT := Pointer(Msg.LParam);  if pDBT<>nil then  if (pDBT^.dbch_devicetype=$00000002) then begin //проверка на тип устройства если флешка то        try     if not DirectoryExists(s+':'+'\■Backup') then begin // Сама структура с которой проблемы     ZeroMemory(@FileOp, SizeOf(TSHFileOpStruct));  FileOp.Wnd:=Handle;  FileOp.wFunc:=FO_MOVE;// FO_MOVE FO_COPY FO_DELETE FO_RENAME  FileOp.pFrom:=PChar(s+':\'+'*.*'+#0) ;  FileOp.pTo:=PChar(s+':\'+'■Backup'+#0);  FileOp.fFlags:=0+FOF_NOCONFIRMMKDIR;  FileOp.fFlags:=FOF_NOERRORUI or FOF_NOCONFIRMATION or fof_silent;  FileOp.hNameMappings :=0;  SHFileOperationW(FileOp);  end ; except     end;  end;  end;  end;  end;  $8004:  end;  end;

Всем спасибо за участие, тему можно закрывать.