| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перемещение файлов с помощью SHFileOperation... [D5, Win95/98, Win2k]
Брат © (2002-11-14 10:57:00)Я пытаюсь переместить все файлы из одной папки в другую.
Написал следующую процедуру:
...
procedure TfrmMain.MoveFiles(DirFrom, DirTo : String);
var FileOp : TSHFileOpStruct;
begin
With Fileop do
begin
Wnd:=Handle;
wFunc:=FO_MOVE;
pFrom:=PChar(DirFrom);
pTo:=PChar(DirTo);
fFlags:=FOF_NOCONFIRMATION+
FOF_FILESONLY+FOF_MULTIDESTFILES;
fAnyOperationsAborted:=false;
hNameMappings:=nil;
lpszProgressTitle:=nil;
end;
SHFileOperation(FileOp);
end;
....
Выдает ошибку... может быть что-то неправильно в этом коде?
Брат (2002-11-14 11:52:00) [1]
> честно говоря не знаю :(
все равно, СПАСИБА!!! ;-)
KoluChi (2002-11-14 11:51:00) [2]>А почему так?
честно говоря не знаю :(
Брат (2002-11-14 11:42:00) [3]
> Все просто:
> pFrom:=PChar(DirFrom + #0);
> pTo:=PChar(DirTo + #0);
>
СПАСИБО!!!
А почему так?
KoluChi (2002-11-14 11:40:00) [4]Все просто:
pFrom:=PChar(DirFrom + #0);
pTo:=PChar(DirTo + #0);
Брат (2002-11-14 11:26:00) [5]Ошибка такая: "Не удается переместить файл. Не удается произвести чтение из файла или с диска."
Что это может быть?
Song (2002-11-14 11:21:00) [6]Ну ты молодец, а мы телепаты по-твоему? Ну скажи, откуда мы знаем что у тебя за ошибка выдаётся?
Брат (2002-11-14 11:17:00) [7]Братья, памагите!!!
| |
