Не всегда работает удаление файла/каталога через SHFileOperationA

[3D Hunter]

Код:

function RemFF(const ARemPath:AnsiString):Boolean;
var
  LShellInfo:TSHFileOpStructA;
begin

//TODO - не всегда срабатывает! разобраться!

  with LShellInfo do
  begin
    Wnd:=0;
    wFunc:=FO_DELETE;
    pFrom:=PAnsiChar(ARemPath);
    pTo:=nil;
    fAnyOperationsAborted:=False;
    fFlags:=FOF_NOCONFIRMATION;
    hNameMappings:=nil;
    lpszProgressTitle:=nil;
  end;
  Result:=SHFileOperationA(LShellInfo)=0;
end;

Удаляет указанный файл/каталог, но отнюдь невсегда! функция работает вообще хаотично с переменным успехом. В чем дело, не подскажете?

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

Учтите это на будущее.

Модератор.

[GunSmoker]

Во-первых, при неудаче функция возвращает код ошибки, который указывает причину, почему нельзя выполнять операцию. Вы этот код глушите. Почему? Почему бы не показать в чём причина через хотя бы ShowMessage?

Далее, F1:

pFrom

Note: This string must be double-null terminated.

...

Although this member is declared as a single null-terminated string, it is actually a buffer that can hold multiple null-delimited file names. Each file name is terminated by a single NULL character. The last file name is terminated with a double NULL character ("\0\0") to indicate the end of the buffer.

[3D Hunter]

Не смотрел в справке и мсдне, сорри... т.е. если я даже вызываю анси-вариант этой функции, то в pFrom должен передавать

pFrom:=PAnsiChar(ARemPath+#0#0);

Просто если PAnsiChar дает только указатель pFrom'у, то нужно предварительно добавить два нулевых символа к строке-параметру метода? Я правильно понял?

[GunSmoker]

Да.

Функция принимает список файлов, а не один файл. Конец списка указывается двойным терминатором.

В оригинальном коде у вас терминатор был одинарным (скрытый, от внутренней реализации строк). А за ним мог идти и ноль и не ноль - там мусор.

[3D Hunter]

Спасибо большое!