Перевод старого кода на D2009

[HellMercenariess]

При попытке компиляции в Delphi 2009 возникают такие ошибки
"несовместимые типы Array and PAnsiChar."

  
var
  FileDestPath:array[0..MAX_PATH] of Char;
  FileNameW: array[0..MAX_PATH] of WideChar;

---------------------------
   OleCheck(SHGetSpecialFolderLocation(0, Folder, ItemIDList));
        SHGetPathFromIDList(ItemIDList, FileDestPath);
        StrCat(FileDestPath, PChar('\' + DisplayName + LinkExt));
        ShellLink.SetPath(PChar(FileName));
        ShellLink.SetIconLocation(PChar(FileName), 0);
        MultiByteToWideChar(CP_ACP, 0, FileDestPath, -1, FileNameW, MAX_PATH);
        OleCheck(PersistFile.Save(FileNameW, True));

не подскажете что на что заменить?

[Delphi_ProGer]

Попробуйте так:

SHGetPathFromIDList(ItemIDList, PAnsiChar(FileDestPath));
MultiByteToWideChar(CP_ACP, 0, FileDestPath, -1, PAnsiChar(FileNameW), MAX_PATH);

[HellMercenariess]

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

Попробуйте так:

SHGetPathFromIDList(ItemIDList, PAnsiChar(FileDestPath));
MultiByteToWideChar(CP_ACP, 0, FileDestPath, -1, PAnsiChar(FileNameW), MAX_PATH);

при попытке Invalid Typecast

[netrino]

Могу ошибаться, делфи не пользуюсь, но вроде бы в новых версиях Char == WideChar, потому первый массив нужно явно объявить как AnsiChar.

...

ADD: или даже просто убрать вызов MultiByteToWideChar...

[Stilet]

SHGetPathFromIDListW(ItemIDList, PWideChar(FileDestPath));

Где FileDestPath:String
Должно быть достаточно