Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];

Вниз

SHFileOperation   Найти похожие ветки 

 
HrUsT   (2002-06-04 20:47) [0]

Помогите найти ошибку! Не удаляет ни файлы, ни директории, хотя должен по идее
var
i: integer;
lpFileOp: TSHFILEOPSTRUCT;
Result : Boolean;
begin
for i:=0 to ShellListView1.Items.Count-1 do
begin
if ShellListView1.Items[i].selected then
with lpFileOp do
begin
Wnd:=form1.handle;
wFunc:=FO_DELETE;
pFrom:=PChar(String(ShellListView1.Folders[i].PathName)+#0); //#0 needed
fFlags:=0;
fFlags:=FOF_NOCONFIRMATION;
end;
end;
end;


 
Song   (2002-06-04 21:30) [1]

:)))
А кто же будет саму ф-ию вызывать ?


 
HrUsT   (2002-06-05 01:13) [2]

Да-да, это я пропустил :) НО! Все-равно не работает,
и проблема в строке присвоения значения pFrom.
Если задавать путь "c:\test.tst", то удаление работает!
Что интересно, при копировании использовалась та же строка
pFrom:=PChar(String(ShellListView1.Folders[i].PathName)+#0),
и операция копирования успешно работала!!!


 
Song   (2002-06-05 10:01) [3]

А какого типа ShellListView1.Folders[i].PathName ?


 
HrUsT   (2002-06-05 21:44) [4]

Стринг, полагаю :)
На самом деле ощущаю себя, как засыпавшийся первак на экзамене! Ну да, и тут, профессор, накосячил :) Не надо было PChar от String от String делать... но так ведь все равно не работает! :(


 
Anatoly Podgoretsky   (2002-06-05 21:59) [5]

По крайней мере неполная инициализация структуры и не видать обработки ошибок. Какая ошибка возникает?


 
HrUsT   (2002-06-05 22:06) [6]

Просто после нажатия УДАЛИТЬ как была, так и остается структура файлов и папок нетронутой. Не выдается никакого предупреждения об ошибке :(


 
app   (2002-06-05 22:22) [7]

Так это твоя обязанность проверить результат операции (хинт - это функция) и в зависимости от результата опросить код ошибки.
Еще один вопрос, кроме ошибки, которую ты не читаещь, а хелп то хоть прочитал? Он для этого тебе и дан.


 
HrUsT   (2002-06-05 22:34) [8]

Ну супер! Результат, возвращаемый функцией - 1 или 0 !
Если не выполняется она, то ясно абсолютно и без проверки, что будет НОЛЬ!
Хелп прочитал, в соответствии с ним флаги и пути расставил.


 
Anatoly Podgoretsky   (2002-06-05 22:46) [9]

Ну так какой результат возвращается и какая ошибка?



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.024 c
14-35465
igorr
2002-07-17 13:06
2002.08.12
Как научить бабку программированию?


1-35341
SS1
2002-07-29 12:05
2002.08.12
A call to an OS......


3-35146
RDA
2002-07-22 09:25
2002.08.12
Прикол с паролем к базе Firebird


3-35166
Natalie
2002-07-22 21:40
2002.08.12
сохранение данных в таблице


3-35139
Oduvan
2002-07-21 17:31
2002.08.12
Проблема с кодировками в InterBase6





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский