delphi - 不兼容的类型 pwidechar 和 string ShellExecute

Question

我尝试使用 winrar 命令行压缩文件，但是当我在命令行中添加变量时，我收到这些错误类型“PWideChar”和“字符串”不兼容!

我将 sdate 变量转换为 WideChar 但它不起作用!!

我该如何解决它!

procedure TForm1.Button1Click(Sender: TObject);
var
mydate : TDateTime;
sdate : string;
begin
mydate:= Now-7;
sdate := FormatDateTime('YYYY/mm/dd',mydate);
  ShellExecute(0, 'open', PChar('C:\Program Files\WinRAR\WinRar.exe'),
    'a -r -ta'+ PChar(sdate) +' D:\xlsFiles.rar D:\*.xls*', nil, SW_SHOW);
end;

Answer 1

ShellExecute 的文本参数的类型为 PChar。但是您为参数号 4 提供了一个字符串。

错误信息非常清楚。通过检查 ShellExecute 的声明，您可以知道有问题的参数属于 PChar 类型(PWideChar 的别名)。错误消息告诉您正在传递一个字符串。

而不是

'a -r -ta'+ PChar(sdate) +' D:\xlsFiles.rar D:\*.xls*'

通过

PChar('a -r -ta'+ sdate +' D:\xlsFiles.rar D:\*.xls*')