VPF::Проблема с SHFileOperation - Форум программистов

xf1700

Дата 20.4.2006, 12:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 25.3.2006

Репутация: нет
Всего: нет

Добрый день,

Код

Код


 sh.Wnd := 0;
 sh.wFunc := FO_DELETE;

 sh.pFrom := pchar(paramstr(1));//  =  c:\\temp\1.zip;

 sh.pTo := nil;
 sh.fFlags := FOF_NOCONFIRMATION {or FOF_SILENT};
 sh.hNameMappings := nil;
 sh.lpszProgressTitle := nil;
 SHFileOperation (sh);

Выдает ошибку "... Не удается произвести чтение с файла или диска ... "

изменяем строку так:
sh.pFrom := 'c:\\temp\1.zip';

и все отлично работает

Как сделать, чтобы работало с paramstr ???

Romikgy

Дата 20.4.2006, 12:13 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

Цитата(xf1700 @ 20.4.2006, 11:06

)

c:\\temp\1.zip

c:\temp\1.zip
может так надо?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 20.4.2006, 12:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Цитата(xf1700 @ 20.4.2006, 12:06

)

Как сделать, чтобы работало с paramstr

Судя по коду - нужно передать в него значение...
Ты уверен, что у тебя в ParamStr(1) что-то есть? А если есть, то что?

Rouse_

Дата 20.4.2006, 13:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 469
Регистрация: 23.4.2005

Репутация: 18
Всего: 29

Struct.pFrom - должен заканчиваться двумя терминирующими нулями
т.е.

Код


 sh.Wnd := 0;
 sh.wFunc := FO_DELETE;
 sh.pFrom := pchar(paramstr(1) + #0);
 sh.pTo := nil;
 sh.fFlags := FOF_NOCONFIRMATION {or FOF_SILENT};
 sh.hNameMappings := nil;
 sh.lpszProgressTitle := nil;
 SHFileOperation (sh);

Если интересуют все подробности - то смотри аттач...

Присоединённый файл ( Кол-во скачиваний: 6 )

rbin.zip 42,02 Kb

--------------------

Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »