|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Никак не получается скопировать файлы с диска
Приветствую всех!
Использую функцию: Код:
function WindowsCopyFile(FromFile, ToDir : string) : boolean; var F : TShFileOpStruct; begin F.Wnd := 0; F.wFunc := FO_COPY; FromFile:=FromFile+#0; F.pFrom:=pchar(FromFile); ToDir:=ToDir+#0; F.pTo:=pchar(ToDir); F.fFlags := FOF_RENAMEONCOLLISION or FOF_NOCONFIRMMKDIR; result:=ShFileOperation(F) = 0; end; Пытаюсь скопировать папку с файлами (с CDROM'а) в папку "Windows" Код:
var WinDir : string; Path: string; begin Path:= ExtractFileDrive(ParamStr(0))+'\I386\Tweaks\'; WinDir := GetEnvironmentVariable('WinDir')+'\Config\Tweaks\'; WindowsCopyFile(Path,WinDir); end; Не получается. Что самое интересно, на 7-ке все работает, а вот на XP - Выдает ошибку - "Не удается скопировать файл. Не удается произвести чтение из файла или с диска." Как вы думаете, в чем проблема и как с этим бороться? Последний раз редактировалось Alloc, 23.09.2014 в 23:06. |