Копирнуть файл из системно папки

[edmynt]

вот статья http://dumpz.org/654703/
Сделал все как полагается.

Сама функция:

function GetSpecialFolderPath(folder : integer) : string;
const
SHGFP_TYPE_CURRENT = 0;
var
path: array [0..MAX_PATH] of char;
begin
if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path[0])) then
Result := path
else
Result := '';
end;

Код программы:

    createdir('c:\TestDir');
       {opera passwowd}
    Label4.Caption:=GetSpecialFolderPath(CSIDL_APPDATA);
     a:=Label4.Caption+'Roaming\Opera\Opera\wand.dat';
    CopyFile(a,'с:\TestDir1\wand.dat', true);

И ошибка в строке копирования, без нее все нормально

[dcc32 Error] Unit1.pas(150): E2010 Incompatible types: 'PWideChar' and 'string'

Пробывал переводить в строку WideCharToString(); - нефига,

[Streletz]

PWideChar(str)

str - проблемная строка в string.

[edmynt]

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

PWideChar(str)

str - проблемная строка в string.

Рубит, спасибо

Ошибки нет, только файл не капирует

[northener]

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

Ошибки нет, только файл не капирует

А то что CopyFile функция тебе известно?