edit获取字符出错

Question

我想把从edit里面的字符获得路径用来执行文件这个是代码
procedure TH_htdc.BitBtn2Click(Sender: TObject);
var
i:string;
begin
i:=edit2.Text;
shellexecute(handle,nil,Pchar('i'),nil,nil,sw_shownormal);
end;
end.
应该字符传递错误,但不知道是那里错了!
能帮我分析一下吗?
谢谢~!

Answer 1

procedure TH_htdc.BitBtn2Click(Sender: TObject);
var
i:string;
begin
i:=edit2.Text;
shellexecute(handle,nil,Pchar('i'),nil,nil,sw_shownormal); //此'i'非彼i:=Edit.Text
end;
end.

Answer 2

晕
shellexecute(handle,nil,Pchar(i),nil,nil,sw_shownormal);

Answer 3

'i'表示字符串'i',而不是字符串变量,应该写成PChar(i)或者PChar(edit2.Text)

Answer 4

Pchar('i')指的是字符‘i’,
而不是从文本框获取的路径

Answer 5

shellexecute(handle,nil,Pchar('i'),nil,nil,sw_shownormal);
改成
shellexecute(handle,nil,Pchar(i),nil,nil,sw_shownormal);

Answer 6

procedure TH_htdc.BitBtn2Click(Sender: TObject);
var
i:string;
begin
i:=edit2.Text;
shellexecute(handle,nil,Pchar(i),nil,nil,sw_shownormal); //此'i'非彼i:=Edit.Text
end;
end.
包好！

Answer 7

procedure TH_htdc.BitBtn2Click(Sender: TObject);
var
i:string;
begin
i:=trim(edit2.Text);
shellexecute(handle,nil,Pchar(i),nil,nil,sw_shownormal); //此'i'非彼i:=Edit.Text
end;
end.

Answer 8

不好意思啊~我是菜鸟~呵呵~刚刚开始学delphi!顺便问一下怎么给分?