[v1s2222]

Код:

S:=IncludeTrailingPathDelimiter(GetSpeci alFolderLocation($1a)) + '\file.txt';
CopyFile(PChar(S), PChar('C:\Windows\file.txt'), true);