Пмагите найти ошибку! С removedir

← →
hooky-mars © (2002-06-10 20:55) [0]

Вот код:
procedure TMainForm.DelFile;
var
i,p:integer;
q:string;
begin
for i:=0 to s.Count do
begin
//Считаем процесс
p:=i+1;
p:=round((p/(s.Count+1))*100);
q:=s.Strings[i];
//Ищем по строке путь к файлу
if pos("File:",q)<>0 then
begin
Delete(q,1,5);
DeleteFile(q);
//Если нет файла удалить папку
end else
begin
RemoveDir(q);
end;
Gauge1.Progress:=p;
end;
end;

Переменная s типа TStringList. При событии формы onActivate этот лист загружается так:
S.LoadFromFile("text.txt");
Сначала проблема заключалась в том, что папка не уничтожалась пока она не очищена (что и приходится делать), а с недавних пор винда стала ругаться на user32.dll. Помагите, пожалуйста.

← →
hooky-mars © (2002-06-11 13:04) [1]

Что, нет ошибки?

← →
Внук © (2002-06-11 13:26) [2]

Во-первых
for i:=0 to s.Count-1 do
Запомните это раз и навсегда :)

← →
Kaban (2002-06-11 13:27) [3]

for i:=0 to s.Count - 1 do
По крайней мере в этом точно ошибка

← →
Kaban (2002-06-11 13:32) [4]

и еще не "пмагите", а помогите

← →
hooky-mars © (2002-06-11 13:48) [5]

> Внук © (11.06.02 13:26)
> Во-первых
> for i:=0 to s.Count-1 do
> Запомните это раз и навсегда :)
>
>
>
> Kaban (11.06.02 13:27)
> for i:=0 to s.Count - 1 do
> По крайней мере в этом точно ошибка

А почему RemoveDir(q); непашет?
Папка то не удаляется! А она должна удалитсь до ошибки:
for i:=0 to s.Count do

← →
Kaban (2002-06-11 13:52) [6]

а кто ж знал,
какая ошибка-то?

← →
Kaban (2002-06-11 13:52) [7]

if pos("File:",q)<>0 then
begin
Delete(q,1,5);
DeleteFile(q);
//Если нет файла удалить папку
end else

а это что-такое?
а если файлов несколько?

← →
hooky-mars © (2002-06-11 13:53) [8]

> Kaban (11.06.02 13:52)
> а кто ж знал,
> какая ошибка-то?

А теперь когда знаете, почему?

← →
hooky-mars © (2002-06-11 13:55) [9]

> Kaban (11.06.02 13:32)
> и еще не "пмагите", а помогите

Ачиплятки бывают разные

← →
Внук © (2002-06-11 14:19) [10]

Хотелось бы увидеть пример строки из TStringList, а также где располагаются удаляемые файлы (относительно текущего каталога программы)

← →
hooky-mars © (2002-06-11 17:09) [11]

Содержимое листа: File:D:\Documents and Settings\Администратор\Рабочий стол\Graphics.lnk File:D:\Documents and Settings\Администратор\Главное меню\Программы\Graphics2\hooky-mars\Graphics.lnk File:D:\Documents and Settings\Администратор\Главное меню\Программы\Graphics2\hooky-mars\Graphics Help.lnk D:\Documents and Settings\Администратор\Главное меню\Программы\Graphics2\hooky-mars D:\Documents and Settings\Администратор\Главное меню\Программы\Graphics2 D:\Program Files\Graphics\
Вот эту папку (D:\Program Files\Graphics\) и неполучается удалить.

← →
Внук © (2002-06-11 17:23) [12]

А остальные каталоги удаляются?
Проверьте его аттрибуты

← →
Внук © (2002-06-11 17:24) [13]

И потом, последний каталог непустой, он содержит подкаталоги :)))

← →
Внук © (2002-06-11 17:26) [14]

На сообщение (11.06.02 17:24) не обращайте внимания, запарился :)

← →
hooky-mars © (2002-06-11 17:27) [15]

> Внук © (11.06.02 17:23)
> А остальные каталоги удаляются?
> Проверьте его аттрибуты

Этот католог создаю я. И этот католог не пустой внём находятся файлы

Так другие каталоги удаляются?

> Внук © (11.06.02 17:29)
> Так другие каталоги удаляются?

Другие удаляются (кроме рабочего стола), но предварительно приходиться удалять ихсодержимое

Два варианта - либо каталог создается с "хитрыми" атрибутами,
либо он заблокирован (Вашей же программой :))). Смотрите код ошибки

> Внук © (11.06.02 17:34)
> Два варианта - либо каталог создается с "хитрыми" атрибутами,
> либо он заблокирован (Вашей же программой :))). Смотрите
> код ошибки

Ни каких атрибутов Я этой папке не даю, а програ работает в другом катологе. И как она может заблакировать данную папку?

IOResult в студию! :-)

А может просто ShFileOperation() и нет никаких проблем и дискуссий ?

Пмагите найти ошибку! С removedir Найти похожие ветки