Удаление файлов

← →
Skif (2002-08-28 09:07) [0]

Доброе время суток, Дамы и Господа!
Кто подскажет, почему не работает данный код.

From := ExtractFilepath(Application.ExeName) + "WorkObmen\*.*"; with SHFileOpStruct do begin Wnd := Handle; wFunc := FO_DELETE; pFrom := PChar(From); fFlags := FOF_NOCONFIRMATION; fAnyOperationsAborted := False; hNameMappings := nil; lpszProgressTitle := nil; end; SHFileOperation(SHFileOpStruct);

← →
Ученик (2002-08-28 09:21) [1]

Если не ошибаюсь, FO_DELETE не поддерживает *.*, только по одному файлу

← →
Lord Warlock (2002-08-28 09:30) [2]

Надо добавить строчку
pTo := PChar(From);

← →
Ученик (2002-08-28 09:53) [3]

>Skif © (28.08.02 09:07)
Забыл еще добавить
FillChar(SHFileOpStruct, SizeOf(SHFileOpStruct), 0);
with SHFileOpStruct do
begin

иначе был Access Violation

>Lord Warlock © (28.08.02 09:30)
???

← →
Lord Warlock (2002-08-28 09:58) [4]

> Ученик © (28.08.02 09:53)

а ты попробуй с исходным кодом, все удаляет

← →
Ученик (2002-08-28 10:02) [5]

>Lord Warlock © (28.08.02 09:58)
Пробовал

procedure TForm1.Button1Click(Sender: TObject);
var
From : string;
SHFileOpStruct : TSHFileOpStruct;
begin
From := "c:\temp\*.*";
FillChar(SHFileOpStruct, SizeOf(SHFileOpStruct), 0);
with SHFileOpStruct do
begin
Wnd := Handle;
wFunc := FO_DELETE;
pFrom := PChar(From);
pTo := PChar(From);
fFlags := FOF_NOCONFIRMATION;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end;
SHFileOperation(SHFileOpStruct);
end;

Ошибка при выполнении

← →
Lord Warlock (2002-08-28 10:05) [6]

> Ученик © (28.08.02 09:53)

С FillChar тоже все работает и естественно грамотнее :)

← →
Lord Warlock (2002-08-28 10:06) [7]

> Ученик © (28.08.02 10:02)

а попробуй без FillChar

← →
Ученик (2002-08-28 10:10) [8]

>Lord Warlock © (28.08.02 10:06)
Какая операционка ?

← →
Ученик (2002-08-28 10:14) [9]

Насчет одного файла неправ, в MSDN написано, что может быть много файлов - каждое имя должно заканчиваться #0, в конце два #0

← →
Ученик (2002-08-28 10:27) [10]

>Lord Warlock
Работает на Win95 (наверно на 98, ME), на NT, 2000, XP не работает, pTo := PChar(From) не нужно.

← →
RV (2002-08-28 10:36) [11]

а папку всю она не удаляет?
From := "c:\temp"

← →
Skif (2002-08-28 13:03) [12]

Господа, файлы *.* удаляет шустро и быстро. А как насчет *.!!! или *.?0?. Это к примеру. Масок м.б. очень много.

Удаление файлов Найти похожие ветки