delphi 程序代码建表且插入数据

创建表 begin if edit1.Text='' then begin end else begin if name<>'' then begin with adoquery1 do begin closeSQL.Text:='select MSysObjects.Name from MsysObjects where name='+quotedstr(trim(edit1.text))Openif RecordCount=0 then begin closesql.text:='Create Table '+trim(edit1.text)+' (id counter,name string(10),pass string(10))'execsqlShowMessage('创建表：'+trim(edit1.text)+'成功！')end else begin ShowMessage('该数据表已经存在，请重新添加！')endendend else begin endendend

Delphi程序里用Shellexecute调用abc.exe，然后获取abc.exe登陆框的句柄，然后用Win-Api函数Sendmessage。

或者，你在abc.exe程序里把登陆框的内容和程序的参数绑定，这样，直接用Shellexecute调用abc的时候，可以直接传进参数

---