摘要：首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );注意程序结束时释放变量 ExcelApp:=unassigned显示当前窗口ExcelApp.Visible := True;更改 Excel 标题栏ExcelApp.Caption:= '应用程序调用 Microsoft Excel';添加新工作簿ExcelApp.WorkBooks.Add;打开已存在的工作簿ExcelApp.WorkBooks.Open('C:ExcelDemo.xls' );设置第 阅读全文

摘要：楼主发表于：2004-04-12 17:58:10我用ADO连接一个EXCEL文件，如果能够取得该EXCEL文件里面有几个SHEET呢，谢谢，分不够可以再加！！！对我有用[0] 丢个板砖[0] 引用 举报 管理 TOP 回复次数：936-- lijinghe1(喜欢没有文化性格泼辣身材高大的)等　级：#1楼 得分：0回复于：2004-04-12 18:13:48procedure TForm1.Button1Click(Sender: TObject); var l : TStringList; begin ADOConnection1.Open; l := TStringLis 阅读全文

摘要：使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口：ExcelApp.Visible := True;2) 更改 Excel 标题栏：ExcelApp.Caption := '应用程序调用 Microsoft Excel';3) 添加新工作簿：ExcelApp.WorkBooks.Add;4) 打开已存在的工作簿：ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );5) 设置第 阅读全文

摘要：如果QQ在托盘显示，则可以在托盘中查找。uses CommCtrl,ShellAPI;var id: array[0..100] of integer;{$R *.dfm}procedure TFrmTray.FormCreate(Sender: TObject);var v_hShellTray: THandle; v_hTrayNotify: THandle; v_hToolBar: THan... 阅读全文

摘要：1.CreateProcess因为使用复杂，比较少用。 2.WinExec主要运行EXE文件。如：WinExec(’Notepad.exe Readme.txt’, SW_SHOW); 3.ShellExecute不仅可以运行EXE文件，也可以运行已经关联的文件。 首先必须引用shellapi.pas单元：uses ShellAPI; 1).标准用法 　　ShellExec... 阅读全文

摘要：{--代码开始--} unit Hintx; interface uses Windows, Messages, Controls; type TIconHintX = class(THintWindow) protected procedure Paint; override;public function CalcHintRect(MaxWidth: Integer; const... 阅读全文

摘要：经常上网的朋友可能早就已经发现，在一些浏览器的底部会在某些情况下动态显示一个进程条，比如在显示网页的时候，如果时间比较长，就会出现一个一格一格前进的，用以提醒用户已经有多少数据被下传下来。它不仅仅出现在浏览器中，还经常被用于下载软件中，比如现在最热门的BT下载软件，都使用了这一技术。技术的改进源于工作的需要，现在编写网络软件那么流行，上面的小技巧应该是每个像我们这样的编程爱好者都需要的吧。 ... 阅读全文

摘要：名称 类型 说明 abort 函数 引起放弃的意外处理 abs 函数 绝对值函数 addexitproc 函数 将一过程添加到运行时库的结束过程表中 addr 函数 返回指定对象的地址 adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列 align 属性 使控件位于窗口某部分 alignment 属性 控件标签的文字位置 allocmem 函数 ... 阅读全文

摘要：1.防止刷新时闪烁的终极解决办法 Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->{ 防止刷新时闪烁的终极解决办法(对付双缓冲无效时) } Perform($000B, 0, 0); //锁屏幕 防止闪烁 // 做一些会发生严重闪烁的事情.... 阅读全文

摘要：虚拟键码 对应值 对应键 VK_LBUTTON 1 鼠标左键 VK_RBUTTON 2 鼠标右键 VK_CANCEL 3 Cancel VK_MBUTTON 4 鼠标中键 VK_XBUTTON1 5 VK_XBUTTON2 6 VK_BACK 8 Backspace VK_TAB 9 Tab VK_CLEAR 12 Clear VK_RETURN ... 阅读全文

摘要：function GetPyChar(const HZ: AnsiString): string; const HZCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077), (2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593),... 阅读全文

摘要：absolute //它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同. var Str: string[32]; StrLen: Byte absolute Str; //这个声明指定了变量StrLen起始地址与Str相同. //由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度. begin Str := 'abc'; Edit1.Text :=... 阅读全文