|
|
Регистрация | << Правила форума >> | 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. |
#2
|
||||
|
||||
во-первых:
Цитата:
Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Alloc (28.09.2014)
|
#3
|
||||
|
||||
Цитата:
Заранее спасибо. |
#4
|
|||
|
|||
попробуй так
Код:
Path:= ExtractFileDrive(ParamStr(0))+'\I386\Tweaks\*.*'; |
Этот пользователь сказал Спасибо icWasya за это полезное сообщение: | ||
Alloc (28.09.2014)
|
#5
|
||||
|
||||
Да просто имена файлов должны разделяться нулевым байтом (#0),а в конце таких пара
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Alloc (28.09.2014)
|
#6
|
||||
|
||||
Спасибо за ответы, все работает. Просто меня удивило то, что этот код без проблем работает на 7-ке а на ХР нет.
|