Несоответствие типов в CopyFile

[Герасим]

В проекте Delphi этот код компилится и работает:
NewFileName:string;
SourceFileName:string;
....
CopyFile(PChar(SourceFileName), PChar(NewFileName), false);

Портирую в FPC, получаю:
FilesNames.pas(408,12) Error: Illegal type conversion: "ShortString" to "^Char"

Чего он от меня добивается? Пробовал разные варианты преобразования типов (в ascdef.inc функция описана как
function CopyFile(lpExistingFileName:LPCSTR; lpNewFileName:LPCSTR; bFailIfExists:WINBOOL):WINBOOL; external 'kernel32' name 'CopyFileA';
)
ничего не помогает

[Attid]

если портируешь то почитай про волшебную дериктиву
{mode deplhi}

[Sergei I. Gorelkin]

Надо включить режим AnsiStrings, а также, скорее всего, и режим компиляции objfpc или delphi ({$mode delphi}{$H+} в начале файла или -Sdh в командной строке).

[Герасим]

CopyFile(PChar(@SourceFileName), PChar(@NewFileName), false);
вот такая конструкция проверку на синтаксические ошибки прошла, работает или нет даже не могу сказать, так как при портировании возникли уже другие трудности, открываю другую ветку

AnsiStrings тоже помогло

[divinusproject]

Сомневаюсь, что из этого выйдет что-то хорошее

CopyFile(PChar(@SourceFileName), PChar(@NewFileName), false);

[Vlad04]

CopyFile(PChar(@SourceFileName), PChar(@NewFileName), false);

На мой взгляд правильнее будет написать
CopyFile(PChar(@SourceFileName[1]), PChar(@NewFileName[1]), false);

Т.к. в Дельфи короткая строка начинается с количества символов.

[shade]

Код: Выделить всё

procedure MyCopyFile(const s1, s2: AnsiString; FailIfExists: Boolean);
begin
  CopyFile(pchar(s1), pchar(s2), FailIfExists);
end;