Чем заменить ShFileOperation

← →
Stas © (2004-04-20 10:26) [0]

Мастера !!!
Использую для копирования папок функцию ShFileOperation, но она не работает на NT4. Чем ее можно заменить ?

Заранее благодарен !

← →
Reindeer Moss Eater © (2004-04-20 10:34) [1]

CopyFile
DeleteFile
etc

← →
Игорь Шевченко © (2004-04-20 11:05) [2]

"Minimum operating systems: Windows NT 4.0, Windows 95 "

Должна работать

← →
DVM © (2004-04-20 13:42) [3]

> но она не работает на NT4

А эксплорер чем тогда копирует? Ею и копирует.

Надо устранить ошибки в программе.

Удаление папки с файлами:

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 не работает. Видимо для копирования то же самое нужно сделать.

Чем заменить ShFileOperation Найти похожие ветки