[serg aka lain]

Продолжим тему Вот так, работает и с кирилицей »

Ценная таки мысль, только в твоём примере будет работать только в ANSI, в Unicode не сработает, так как функция CopyFile
в юникоде выглядит так:

Код:

function CopyFile(ExistingFile,NewFile: String; bFailIfExists: Boolean): Boolean;
  external 'CopyFileW@Kernel32.dll stdcall';

универсальный пример

Код:

#ifdef UNICODE
  #define PChar = "String"
  #define A = "W"
#else
  #define PChar = "PChar"
  #define A = "A"
#endif

function CopyFile(ExistingFile,NewFile: {#PChar}; bFailIfExists: Boolean): Boolean;
  external 'CopyFile{#A}@Kernel32.dll stdcall';