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