SHFileOpStruct не перемещает папки на флешке в NTFS

[Jaroslav285]

Здравствуйте, столкнулся со следующей проблемой, программа должна перемещать файлы папки на флешке в папку Backup.
Когда флешка в файловой системе FAT32 все работает правильно, а если флешка в файловой системе NTFS, то файлы перемещаются без проблем, а папки названия которых в кириллице или в верхнем регистре английской раскладки не перемещаются никак, перечитал много статей на тему shfileopstruct, но по своей проблеме вразумительного ответа так и не нашел, поэтому прошу Вас помочь разобраться в данной проблеме, свой код добавляю ниже.

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;

Жду Ваших ответов, буду рад любой помощи, заранее спасибо.

[ZuBy]

Или Юникодную делфи использовать или юникодный вариант TSHFileOpStruct + соответственно данные тоже в юникоде в него передавать

[FaTaL]

А не проще скопировать в папку Backup и потом удалить эти файлы?

[Jaroslav285]

Или Юникодную делфи использовать или юникодный вариант TSHFileOpStruct + соответственно данные тоже в юникоде в него передавать

В моей версии Delphi а это RAD Studio XE5 я могу использовать только WideChar, SHFileOpStructA невозможно использовать в моей версии, доступен только SHFileOpStructW.

Возможно я не прав, направьте пожалуйста в правильное русло, спасибо за совет.

[Stilet]

SHFileOpStructA невозможно использовать в моей версии, доступен только SHFileOpStructW.

Шта?? О_о
Как странно... А у меня Ансишные функции нормально вызываются, несмотря на устаревание.

[Jaroslav285]

А не проще скопировать в папку Backup и потом удалить эти файлы?

Копировать нельзя, нужно именно перемещать, иначе будут затраты времени, и возможно появятся новые проблемы...

Также процесс должен быть скрытым от пользователя, функция SHFileOpStruct прекрасно справляется с этой задачей, но есть трабл который я описал выше, а именно в файловой системе NTFS, но в любом случае спасибо за совет.

Как странно... А у меня Ансишные функции нормально вызываются, несмотря на устаревание.

Значит у меня что-то не так, подскажите как мне исправить в моей версии на Ansi вариант, просто при приведении к Ansi ругается именно на не соответствие, и еще читал о такой проблеме на каком-то форуме при изучении материалов по функции, поэтому так и написал Вам, если можно подскажете как исправить?

Как странно... А у меня Ансишные функции нормально вызываются, несмотря на устаревание.

Значит у меня что-то не так, подскажите как мне исправить в моей версии на Ansi вариант, просто при приведении к Ansi ругается именно на не соответствие, и еще читал о такой проблеме на каком-то форуме при изучении материалов по функции, поэтому так и написал Вам, если можно подскажете как исправить?

Привел к SHFileOperationА, хорошего из этого ничего не вышло, не только не переместило ничего, а даже папку для перемещения не создает ни в той ни в той ФС.

[Stilet]

Привел к SHFileOperationА

Код в студию )

[FaTaL]

Копировать нельзя, нужно именно перемещать, иначе будут затраты времени, и возможно появятся новые проблемы...

А разве перемещение работает без копирования? Мне кажется так и происходит в винде. Сначала копирование, потом удаление - это и есть перемещение.

[Stilet]

разве перемещение работает без копирования?

Работает в рамках одного раздела. Физически файл не меняет местоположение, перезаписывается только его путь в файловой таблице.
Сам попробуй - файл гиг на 100 перемести в другой каталог. Он быстро туда попадет несмотря на размер.

[Jaroslav285]

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

 
 
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;

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