使用shellexecute调用外部progrem时,我的delphi代码出错了
procedure TReceiverMainForm.btnSearchClick(Sender: TObject);
var
args:string;
begin
mmoResult.Clear;
// args := ' /d=' + TIdURI.URLEncode(Trim(sSearch)) + ' /t=ReceiverMainForm /s=30 /m=1'
args := ' /q=' + httpencode(Trim(txtSearch.Text)) + ' /t=ReceiverMainForm /s='+Trim(txtS.Text)+' /m='+Trim(txtM.Text);
ShellExecute(Handle, 'open', 'YTD.exe', pWideChar(args), nil, SW_SHOWNORMAL);
end;
我该如何解决此错误?
答案 0 :(得分:7)
ShellExecute
函数定义如此
function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,
Directory: PChar; ShowCmd: Integer): HINST; stdcall;
因此问题是您将args
变量转换为PWideChar
而不是PChar
。
试试此代码
ShellExecute(Handle, 'open', 'YTD.exe', PChar(args), nil, SW_SHOWNORMAL);
请记住,Delphi 7早于Unicode Delphi开发。因此PChar
是8位字符类型的别名PAnsiChar
。