运行以下程序,出现错误。
procedure TForm2.Button1Click(Sender: TObject);
var
cmdChr:string;
begin
// cmdChr:='c:\mypro\runmain.exe '+form1.query1.fieldByName('oper_cd').AsString+' '+form1.query1.fieldByName('pwd_cd').AsString ; cmdChr:='c:\mypro\runmain.exe' ;
winexec(cmdChr,SW_Normal);
end;end.错误是:"Error 26:Type mismatch.",请问该问题该如何解决啊???
procedure TForm2.Button1Click(Sender: TObject);
var
cmdChr:string;
begin
// cmdChr:='c:\mypro\runmain.exe '+form1.query1.fieldByName('oper_cd').AsString+' '+form1.query1.fieldByName('pwd_cd').AsString ; cmdChr:='c:\mypro\runmain.exe' ;
winexec(cmdChr,SW_Normal);
end;end.错误是:"Error 26:Type mismatch.",请问该问题该如何解决啊???
解决方案 »
- delphi 关于文件管理简单小问题
- 有谁知道 TRzNavigatorButton 对应的几个按钮值是如何定义的
- 我窗体最小化时会在桌面的左下角出现一个小窗口,而不是完全隐藏,怎么办呢?
- 对《SQL数据库设计经验》一文的讨论
- ADOTABLe与oracle连接后的简单问题?
- 请问一下有谁知道在EDIT控件得到焦点时执行指定的程序![在线等待]
- 如何禁止TWebbrowser弹出安全警告
- 谁能说说IdTelnetServer这个控件怎么用?急啊
- 模拟windows伸缩菜单
- [Fatal Error] CoolUtilsPro.pas(56): Internal error: URW3010是什么意思?
- 为什么BDE 的路径不能更改? 十万火急呀...多多分都送.
- 如何解决????
???
cmdChr:pchar;
这样ok?
谢谢各位,分不够可加。
var
cmdChr:string;
begin
cmdChr:='notepad.exe' ;
winexec(pchar(cmdChr),SW_Normal);
end;我测试过