FExcelApp := CreateOleObject('Excel.Application');
FWorkBook := CreateOleObject('Excel.Sheet');
处理调用 的 Excel
现在有个这样的了要求，就是用户点击右上角的关闭时，要给用户提示，并且使用关闭功能失效
只能通过程序来关闭，怎么做。
-
等级
本版专家分：744结帖率 100% -
有个问题。利用 FExcelApp, FWorkBook, FWSheet: Variant;
FExcelApp := CreateOleObject('Excel.Application');
FWorkBook := CreateOleObject('Excel.Sheet');
处理调用 的 Excel
现在有个这样的了要求，就是用户点击右上角的关闭时，要给用户提示，并且使用关闭功能失效
只能通过程序来关闭，怎么做。展开阅读全文
-
等级
本版专家分：744
-
右上角的关闭“X”不能没有
-
等级
本版专家分：15348勋章
-
-
红花
2011年11月 Delphi大版内专家分月排行榜第一
2011年10月 Delphi大版内专家分月排行榜第一
-
-
黄花
2014年4月 Delphi大版内专家分月排行榜第二
2011年12月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2012年1月 Delphi大版内专家分月排行榜第三
2011年9月 Delphi大版内专家分月排行榜第三
-
-
用全局钩子捕获excel的窗体关闭消息？
-
等级
本版专家分：744
-
怎么整。。给点代码。。嘿嘿
-
等级
本版专家分：15348勋章
-
-
红花
2011年11月 Delphi大版内专家分月排行榜第一
2011年10月 Delphi大版内专家分月排行榜第一
-
-
黄花
2014年4月 Delphi大版内专家分月排行榜第二
2011年12月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2012年1月 Delphi大版内专家分月排行榜第三
2011年9月 Delphi大版内专家分月排行榜第三
-
-
我身边没有delphi环境，刚用c#做了个测试可以将标题栏的关闭按钮禁用，你可以参考下
public Form1()
{
InitializeComponent();
IntPtr hMenu = GetSystemMenu(this.Handle, 0);
RemoveMenu(hMenu, SC_CLOSE, MF_BYCOMMAND);
}
[DllImport("USER32.DLL")]
private static extern IntPtr GetSystemMenu(IntPtr hWnd, UInt32 bRevert);
[DllImport("USER32.DLL")]
private static extern UInt32 RemoveMenu(IntPtr hMenu, UInt32 nPosition, UInt32 wFlags);
private const UInt32 SC_CLOSE = 0x0000F060;
private const UInt32 MF_BYCOMMAND = 0x00000000;
至于全局钩子，C#做不了，所以没法帮你测试了
-
等级
本版专家分：15348勋章
-
-
红花
2011年11月 Delphi大版内专家分月排行榜第一
2011年10月 Delphi大版内专家分月排行榜第一
-
-
黄花
2014年4月 Delphi大版内专家分月排行榜第二
2011年12月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2012年1月 Delphi大版内专家分月排行榜第三
2011年9月 Delphi大版内专家分月排行榜第三
-
-
另外你可以上网查下delphi钩子截获消息的例子，很多的思路就是注入后重载wndproc，然后把关闭消息忽略或者修改，而只有你的自定消息传入才会真正关闭窗口，不难的，骚年，现在多动动手，你后你会花现世界是很美好滴
-
等级
本版专家分：744
-
帅哥。。你太强了。。
-
等级
本版专家分：744
-
谢谢。。我原来delphi 加载Excel 宏来实现的。。花了1多时间，不会玩还没有参考资料。。
-
等级
本版专家分：3560 -
用钩子截获关闭消息，然后重载一下就可以！
- delphi 读取excel 两种方法
两种方法,一是用ADO连接,问题是Excel文件内容要规则,二是用OLE打开,但操作就没有象 操作数据库那么方便了. 一、用ADO连接： ...Select or enter a datasorce name -> 选择你要打开Excel文件 User na
- Excel与Sql Server互通导入导出跨语言
1.1、问题的提出从这里开始 1.2、参数的正确写法 1.3、附带说一下Jet 4.0 1.4、附带说一下OLE DB调用数据库存储过程、Select语句、系统表或视图对象 2、获取Excel文件数据库的数据结构 2.1、Excel文件数据库表...
- 嵌入EXCEL到窗体.rar
EXCEL嵌入到主程序中，方式一感觉有点BUG，会影响其他打开的EXCEL 方式二貌似没问题 强制结束主程序后，EXCEL进程还保留着，这个暂时没找到啥好方法处理
- ReportMachine
RM(Report Machine)是一个功能强大的Delphi报表控件包。使用它可以制作出非常复杂的报表。下面讲述最简单的用法： 在Form上放上两个数据库控件：ADOConnection和ADOQuery设置好ADOConnection的ConnectionString。...
- Delphi中打开Excel文件
//Delphi中打开Excel文件 var ExcelApp: Variant; //Excel变量 ExcelFiles: string; //打开的Excel文件名begin inherited; //打开指定的文件 OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0)) + '.\data\';...
- 如何在Delphi打开Excel文档时使用修复功能？
问题：在使用Delphi7操作Excel文档时，当文件直接用excle打开时提示“发现不可读取的内容，是否恢复此工作簿的内容？如果信任此工作簿的来源，请单价是”。此时点击“是”，可以打开，再保存后打开就正常，不再提示...
- Delphi打开Excel文件提示raised exception class EOleSysError with message '服务器出现意外情况。...
使用Delphi7打开Excel文件出现如下错误：解决方法：打开Excel->选择加载项->在管理中选择COM加载项->点击转到按钮->将第二个com Add-in选项去掉勾选，保存即可。...
- Delphi对Excel文件的操作（1）——保存
//保存数据到文件//path：文件所在路径//data：待保存的数据//SheetName：Excel表单的名字function SaveToExcel(path:string;data:Variant;SheetName:string):boolean;varflag:boolean;temp:integer;i:Integer;index...
- Delphi操作Excel大全
Delphi操作Excel大全
- 基于delphi的excel数据导入导出
因为淘宝客户的一个小需求，写了一个“基于delphi 7的excel数据导入导出”小工具。为了抛砖引玉，将这个小工具分享出来。希望对初学者和用得到的朋友有点点小小的帮助。oracle数据库连接，注意中文编码问题。 工具...
- delphi控制excel ,在指定单元格后插入行
delphi控制excel ,查找指定单元格“test1”，在指定单元格后插入行unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComObj,excel2000, StdCtrls;...
- 关于Delphi导出Excel，多标签、多个Sheet导出功能问题
第二种是，在delphi创建excel的时候，就做成多个标签。然后在导出excel。 1.如果不是分多标签，只是单纯的导出excel procedure TFORM1.Button1Click(Sender: TObject); var SFD: TSaveDialog; DateStr, FileName,...
- DELPHI 读取EXCEL 以及将EXCEL写入到ACCESS 数据库
最近准备为公司的项目写一个小工具，要用到EXCEL文件来存放数据，并且要储存到数据，心想用惯了SQL SERVER数据库，何不直接用ACCESS数据，反正同出一家，故上网找到相关的资料，发现ADO的ADOCONNECTION 和ADOQUERY...
- delphi excel 读取和写入
//读excel function TForm1.readExcel(fileName :WideString):TStringList; var I, J ,len,ret: Integer; MaxRow, MaxCol: Integer; List, Strs: TStringList; ExcelApp, Sheet: Variant; ...
- 怎么在delphi中读取Excel数据（各种详细操作）
首先创建 Excel 对象，使用ComObj : Var ExcelApp : Variant ; ExcelApp := CreateOleObject ( '' Excel.Application '' ) ; 1 ) 显示当前窗口： ExcelApp.Visible := True ; 2
- Delphi常用的Excel操作
以下是我在Delphi中用过的Excel操作 ExlApp:=CreateOLEObject('Excel.Application'); //创建对象 ExlApp.Visible :=False;// True; //是否显示 ExlApp.DisplayAlerts := False; //是否显示警告 ExlApp.Caption:=a...
- Delphi 使用ADO连接Excel进行操作
感谢Benson，在网上找了半天都是寥寥几句，终于看到了这篇详细操作的文章： ADO连接字符串: ...Extended Properties=EXCEL 8.0;Persist Security Info=False==================================...
- Delphi对Excel的所有操作
（Delphi对Excel的所有操作）逐个试试！ 一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示...
- Delphi对Excel复制粘贴操作纠错
本人学一下delphi怎么操作excel表格，正好要用到表格的复制粘贴功能，然后在网上找博客学习，结果找了以后发现基本上博客都是一个抄一个的，这样子我都不说什么了，问题是抄的很多都是错误的，误导了我两天。...
- Delphi 打开Excel表的方法演示.rar
Delphi 打开已有的Excel表，本例子可学习Delphi中的CreateOleObject对象中的Excel.Application的使用方法，用此方法可对Excel文件进行简单的操作，代码初始化如下： begin try if f<>'' then begin ...
- DELPHI ADO读取Excel文件范例.rar
DELPHI ADO读取Excel文件范例，进行数据的转换和导入导出。要用DELPHI中的ADO系列控件访问Excel数据文件，首先应该建立一些基本概念。你需要将一个Excel数据文件想象为一个关系数据库，Excel文件中的每个工作表就对...
- 有关 delphi7读取 excel 报错EoleException with message '未找到提供程序，该程序可能未能正确安装' 解决...
安装AccessDatabaseEngine.exe 可以从网上搜索 安装。 如果安装的过程中报错。error 1935 an error occurred during the install of 。。。 ...或者是有问题导致的。 直接卸掉重新安装一个。 ...
- DELPHI中EXCEL组件的使用方法
DELPHI中EXCEL组件的使用方法: 一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口： ExcelApp.Visible...
- delphi导入导出Excel与Sql Server
delphi导入导出MS Excel、MS Access与MS Sql Server 一、关于ACE引擎和Jet引擎 1、Jet引擎（Microsoft.Jet.OLEDB.4.0的简称） 2、ACE引擎（Microsoft.ACE.OLEDB.12.0） 3、Microsoft Access 2010 数据库...
- delphi excel设置字体 createoleobject_33个Excel快捷键，提升工作效率必备
这是一篇关于Excel快捷键的福利文章。同样是处理表格，你笨手笨脚折腾半天，却只能完成80%，反观Excel大神，敲了几个快捷键，就把表格做好了。快捷键的好处不言而喻，今天就跟大家分享4大类，共33个Excel快捷键。01 ...
- Delphi对Excel文件的操作（2）——读取
//读取excel文件，得到数据v，行数rowcount//path：文件所在路径//v：文件内数据//rowcount:文件最大行数//sheetindex:读取的文件sheet序号function ReadFromExcel(path:string;out v:Variant;out rowcount:Integer;...
- 在Delphi中 XLSReadWriteII5如何导出Excel2003或Excel2007版本的问题
引入单元文件XLSReadWriteII5,Xc12Utils5; 在代码中设置属性 XLS := TXLSReadWriteII5.Create(nil); XLS.Version:=xvExcel97; //或 XLS.Version:=xvExcel2007;
- Delphi7 将Excel导入数据库
yi欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题，有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、居右SmartyPants...
- Delphi控制Excel（一）
用Delphi从数据库中取得资料，然后导出到Excel中做成报表是个不错的选择，因为Excel强大的报表功能那可是没话说 前提 Delphi中要 uses comobj; var Excel:Variant; 一、Excel操作 1.创建Excel对象...
- Delphi操作excel说明
打开excel后能真正的退出excel procedure TForm1.Button1Click(Sender: TObject); var ExcelApp1: Variant; begin try ExcelApp1 := CreateOleObject(‘Excel.Application’); //打开excel except exit; end; ...