| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Чем заменить ShFileOperation [D7, Win95/98, NT4, Win2k, WinXP]
Stas © (2004-04-20 10:26:00)Мастера !!!
Использую для копирования папок функцию ShFileOperation, но она не работает на NT4. Чем ее можно заменить ?
Заранее благодарен !
VideoLord (2004-04-21 03:41:00) [1]Удаление папки с файлами:
procedure MyRemoveDir(path: string);
var sh: SHFileOPStruct;
begin
if path='' then exit;
FillChar(sh, SizeOf(sh), #0);
sh.wnd:=Handle;
sh.wFunc:=FO_DELETE;
sh.pFrom:=PChar(path+#0+#0);
sh.pTo:=nil;
sh.fFlags:=FOF_NOCONFIRMATION or FOF_SILENT;
sh.hNameMappings:=nil;
sh.lpszProgressTitle:=nil;
SHFileOperation(sh);
end;
Тут основная фигня в том, что в sh.pFrom должно быть два #0 в конце, иначе в NT/XP не работает. Видимо для копирования то же самое нужно сделать.
Anatoly Podgoretsky (2004-04-20 13:50:00) [2]Надо устранить ошибки в программе.
DVM (2004-04-20 13:42:00) [3]
> но она не работает на NT4
А эксплорер чем тогда копирует? Ею и копирует.
Игорь Шевченко (2004-04-20 11:05:00) [4]"Minimum operating systems: Windows NT 4.0, Windows 95 "
Должна работать
Reindeer Moss Eater (2004-04-20 10:34:00) [5]CopyFile
DeleteFile
etc
| |
