[ChVL]

Чтобы положить файлы в папку "Мои видеозаписи" устанавливаю путь к этой папке:

Код:

[Сode]
const
MAX_PATH = 260; 
CSIDL_MYVIDEO = $0e; 
function SHGetSpecialFolderPath(hwndOwner: HWND; lpszPath: PChar; nFolder: Integer; fCreate: BOOL): BOOL; 
external 'SHGetSpecialFolderPathA@shell32.dll stdcall';  

function GetSpecialPath(CSIDL: Word): string; 
var 
s: string; 
begin 
SetLength(s, MAX_PATH); 
if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, True) then s := ''; 
Result:= PChar(s); 
end;

Скрипт отрабатывает нормально, путь создаётся.
Прописываю путь к этой папке:

Код:

[Files]
Source: {code_GetSpecialPath}\MyProg; DestDir: {code:GetSpecialPath}\MyProg

Компилятор, однако, ругается на ошибку в строке:
function GetSpecialPath(CSIDL: Word): string;
пишет:
Invalid prototype for 'GetSpecialPath'

Как правильно прописать?