★★★★DELPHI 下CMD的操作问题,大家来看看

Question

例如现在程序里面有一个EDIT控件 ,一个按钮EDIT用于给用户输入命令 ,按钮打开操作
如
s2:= edit1.text
  ShellExecute   (Handle,nil,'cmd.exe','/K'+ s2,nil,SW_NORMAL);但是编译不能通过,提示
[错误] Unit1.pas(34): Incompatible types: 'String' and 'PAnsiChar'怎么办呢?我听说好想有个什么"强制转换类型"的,怎么用,大家帮我写两句啊!!!谢谢了!!

Answer 1

var
  s:string
begin
  s:='/k'+s2;
  ShellExecute (Handle,nil,'cmd.exe',Pchar(s),nil,SW_NORMAL);

Answer 2

s2:= edit1.text;
ShellExecute(Handle,nil,pchar('cmd.exe'),pchar('/K'+ s2),nil,SW_NORMAL);