удаление файла из listview

← →
гость (2004-12-02 11:57) [0]

как удалить файлы из listview (checkboxes=true)в корзину или совсем с диска. нужен 100% рабочий пример.
спасибо.

← →
begin...end © (2004-12-02 12:34) [1]

> гость (02.12.04 11:57)

1. В корзину:

var
S: String;
Structure: TSHFileOpStruct;

begin
with ListView do
for I := 0 to Items.Count - 1 do
if Items[I].Checked then
S := S + Items[I].Caption + #0;
if S <> "" then
begin
S := S + #0;
ZeroMemory(@Structure, SizeOf(Structure));
with Structure do
begin
pFrom := PChar(S);
wFunc := FO_DELETE or FOF_ALLOWUNDO;
fFlags := FOF_NOCONFIRMATION + FOF_SILENT;
end;
SHFileOperation(Structure)
end
end.

2. Не в корзину:

var
I: Integer;

begin
with ListView do
for I := 0 to Items.Count -1 do
if Items[I].Checked then
DeleteFile(Items[I].Caption)
end.

P.S. Не проверял.

← →
гость (2004-12-02 13:08) [2]

Не работает ни один из предложенных примеров.

← →
begin...end © (2004-12-02 13:20) [3]

> [2] гость (02.12.04 13:08)

Не работает - в смысле "не компилируется" или "компилируется, но не работает"?

← →
гость (2004-12-02 13:31) [4]

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

← →
begin...end © (2004-12-02 13:45) [5]

> [4] гость (02.12.04 13:31)

Ну а имена файлов указаны в ListView.Items[X].Caption ? Там полные имена? Файлы эти вообще существуют? Если да, то, может быть, они заняты.

← →
гость (2004-12-02 13:51) [6]

Нет только название файла например 2.txt, а в следующей колонке путь например C:\proba\

>Нет только название файла например 2.txt, а в следующей колонке путь >например C:\proba\
Орех !

← →
гость (2004-12-02 13:57) [8]

Все я разобрался Спасибо.

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