目的:连库的地方如果没有库就执行一个安装程序,
思路大概是下面这个意思,由于我对delphi不熟悉所以怎么都捕捉不到这个错误try
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Program Files\aaa\db.mdb;Persist Security Info=False';
except
begin ShowMessage('因为第一次运行或删除了必要文件,必须安装部分程序在硬盘中。');
ShellExecute(Handle, 'open', PChar(ExtractFilePath(application.ExeName)+'setup.exe'), nil, nil, SW_SHOW);
f.Close;
end;
end;
思路大概是下面这个意思,由于我对delphi不熟悉所以怎么都捕捉不到这个错误try
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Program Files\aaa\db.mdb;Persist Security Info=False';
except
begin ShowMessage('因为第一次运行或删除了必要文件,必须安装部分程序在硬盘中。');
ShellExecute(Handle, 'open', PChar(ExtractFilePath(application.ExeName)+'setup.exe'), nil, nil, SW_SHOW);
f.Close;
end;
end;
解决方案 »
- 请问有谁能做出这种效果吗?
- 帮忙给软件取个好听的中文及英文名字!!!
- HWnd 是个什么东西啊(急!!!)
- 请推荐一些DELPHI7.0的优秀控件,尤其是界面和皮肤的,高分相送!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 请问怎样按发卡器的地址顺序从大到小地打开串口?已完成排序代码,谢谢!
- 如何建立word表格
- 各位:你们好!我想做一个类似word中的公式编辑器,选择某个公司,输入相关数据后生成图片!将它做成插件的形式,能给点思路吗?
- 错误提示:“尚未调用 coinitialize”是什么意思????如何解决
- delphi中的ole控件为什么不能这样用???
- 在delphi集成環境中,如何配置默認的工作路徑 . 比如開啟文檔,直接我自定義的目錄下..
- calcfield计算字段如何保存下来?
- 极有难度问题,这种功能怎么实践?
没有加 ADOConnection1.Connected := True;//打开数据库连接。
beginShowMessage('因为第一次运行或删除了必要文件,必须安装部分程序在硬盘中。');
ShellExecute(Handle, 'open', PChar(ExtractFilePath(application.ExeName)+'setup.exe'), nil, nil, SW_SHOW);
end;