Question

我想复制一个文件从自我定位到另一个地点类似:

var
NewFile        : WideString;
MyOwnLocation  : WideString;
begin
NewFile   :=  C:mycopy.exe ;
// CopyFileW (PWideChar(paramstr(0)), PWideChar(NewFile), false); // ===> doesn t work
MyOwnLocation := paramstr(0);
CopyFileW  (PWideChar(MyOwnLocation), PWideChar(NewFile), false); // ===> works but not sure if Unicode supported...    
end;

当我把Pramstr(0)复制到宽链条时,它有效,但我仍然不确定paramstr(0)是否已经是UNICODE。也许有一个 WindowsAPI 返回我文件在宽链条中的当前位置吗?

感谢帮助:)

Answer 1

当然。您可以使用 GetModuleFileNameW , 内部使用的 ParamStr(0) 内部使用的 Unicode api 版本:

var
  NewFile: WideString;
  MyOwnLocation: WideString;
  Len: DWORD;
begin
  NewFile :=  C:mycopy.exe ;
  SetLength(MyOwnLocation, 260);
  Len := GetModuleFileNameW(0, PWideChar(MyOwnLocation), Length(MyOwnLocation));
  Win32Check(Bool(Len));
  if GetLastError <> ERROR_INSUFFICIENT_BUFFER then begin
    SetLength(MyOwnLocation, Len);
    CopyFileW (PWideChar(MyOwnLocation), PWideChar(NewFile), false);
  end else
    // handle fail due to insufficient buffer

Answer 2

用 ParamStr(0) 直接调用 CopyFileW 和 ParamStr(0) 不起作用,因为在德尔菲7中 ParamStr(0) 返回 AnsiString ( string 的默认类型),因此它不符合预期的第一个参数类型( PWideChar )。

唯一的方法就是使用您的方式 - 将 ParamStr(0) 的内容指派给 WideString 变量,然后将它用作 CopyFileW 的参数。

在使用非统一代码 API ( CopyFileA , 由德尔斐 7 s Windows 单位地图 CopyFile ) 来使用非统一代码 API ( CopyFileA ) 时, Windows 以透明方式在 Unicode 和 ANSI 之间进行大多数转换,而无需你任何努力,所以你应该代之使用它。

友情链接