请教高手!

Question

>>有无函数可在程序中实现文件拷贝功能(即COPY)?
CopyFile可以实现

Answer 1

CopyFile(pchar('原文件'),pchar('目标文件'),false);
//参数false是‘目标文件’存在时自动替换

Answer 2

下面是一段 ascii to unicode  的代码 我手边没有delphi 无法试
  MultiByteToWideChar函数 你可以查查她的用法 然后反过来
   希望对你能又帮助
  function StrToWideStringCodeStr(Str: String): String;
var
  WideStr: WideString;
  I, L: Integer;
begin
  Result := '';
  L:= MultiByteToWideChar(CP_ACP, 0, PChar(@Str[1]), - 1, nil, 0);
  SetLength(WideStr, L - 1);
  MultiByteToWideChar(CP_ACP, 0, PChar(@Str[1]), - 1, PWideChar(@WideStr[1]), L - 1);
  for I := 1 to L do
    Result := Result + IntToHex(Ord(WORD(WideStr[I])), 4);
end;

Answer 3

用:StringToWideChar 函数 将ANSI字符串转换为UNICODE字符串
================================================================
一颗红心向前看，为了革命两茫然，不好意思才囊尽，只能说上一点点。
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
★    我踢  我踢   我踢  我踢  我踢  我踢  我踢  我踢  我踢   ★
★    你UP  你UP   你UP  你UP  你UP  你UP  你UP  你UP  你UP   ★
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
================================================================

Answer 4

还有几个函数参考：
WideCharLenToString 函数 将ANSI字符串转换为UNICODE字符串
WideCharLenToStrWar 函数 将UNICODE字符串转换为ANSI字符串变量
WideCharToString 函数 将UNICODE字符串转换为ANSI字符串
WideCharToStrVar 函数 将UNICODE字符串转换为ANSI字符串变量
================================================================
一颗红心向前看，为了革命两茫然，不好意思才囊尽，只能说上一点点。
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
★    我踢  我踢   我踢  我踢  我踢  我踢  我踢  我踢  我踢   ★
★    你UP  你UP   你UP  你UP  你UP  你UP  你UP  你UP  你UP   ★
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
================================================================