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

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