[Alloc]

Приветствую всех!

Использую функцию:

Код:

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 - Выдает ошибку - "Не удается скопировать файл. Не удается произвести чтение из файла или с диска."

Как вы думаете, в чем проблема и как с этим бороться?

[NumLock]

во-первых:

pFrom
Pointer to a buffer that specifies one or more source file names. Multiple names must be null-separated. The list of names must be double null-terminated.

[Alloc]

Сообщение от NumLock

во-первых:

будьте любезны, расшифруйте пожалуйста, как быть и что делать? Я не зря написал в этот раздел (для Начинающих).

Заранее спасибо.

[icWasya]

попробуй так

Код:

 Path:= ExtractFileDrive(ParamStr(0))+'\I386\Tweaks\*.*';

[Alegun]

Да просто имена файлов должны разделяться нулевым байтом (#0),а в конце таких пара

[Alloc]

Спасибо за ответы, все работает. Просто меня удивило то, что этот код без проблем работает на 7-ке а на ХР нет.