[shnyaga]

Помогите пожалуйста.
Пишу в Delphi

Код:

CopyFile('%SystemRoot%\system32\sqlncli10.dll', 'C:\sqlncli10.dll', true);

Код ошибки 3: Patch not found!!!!.
А когда пишу

Код:

CopyFile('С:\Windows\system32\sqlncli10.dll', 'C:\sqlncli10.dll', true);

Все работает!!!!
Подскажите пожалуйста, почему не работает %SystemRoot%???

[NumLock]

см. CopyFile function For more information, see Naming Files, Paths, and Namespaces

ну или если лень один из вариантов:

Код:

var
  buf: array [0..MAX_PATH-1] of Char;
  l: Integer;
  path: String;
begin
  l:=ExpandEnvironmentStrings('%SYSTEMROOT%', buf, Length(buf));
  path:=Copy(buf, 1, l);
end;

[shnyaga]

Спасибо огромное))))
Ваш метод мне помог)))