摘要：
ShellExecute的功能是运行一个外部程序（或者是打开一个已注册的文件、打开一个目录、打印一个文件等等），并对外部程序有一定的控制。 有几个API函数都可以实现这些功能，但是在大多数情况下ShellExecute是更多的被使用的，同时它并不是太复杂。下面举例说明它的用法。开始一个新的应用程序 ShellExecute(Handle, 'open', PChar('c:\test\app.exe'), nil, nil, SW_SHOW);打开记事本，并打开一个文件(系统能识别记事本应用程序的路径，因此我们不必使用绝对路径） ShellExecute(Handle, 'open' 阅读全文
摘要：
(一) 使用动态创建的方法首先创建 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) 阅读全文
摘要：
{在Delphi中，一个控件上能否成为其它控件的父控件取决于此控件的ControlStyle属性。ControlStyle属性是集合类型的，如果此集合包含csAcceptsControls元素，则它能接受其它控件；否则，它就不能成为其它控件的父控件。ControlStyle属性只能在控件的构造函数（Constructor）中指定，在程序运行时它是不能被改变的。所以如果希望窗口状态条上面能包含其它控件，我们只需要在继承类中重载TStatusBar控件的Constructor函数，并且让控件的集合属性ControlStyle中包含csAcceptsControls即可。 }unit StatusB 阅读全文
摘要：
//与数据库结构有关的一些函数//1、动态改变字段名称uses ComObj;//Access//TableName: 表名; OldColName: 原字段名; NewColName: 新字段名;procedure RenameField(const TableName, OldColName, NewColName: string);var DB, Col: OleVariant;begin DB := CreateOleObject('ADOX.Catalog'); DB.ActiveConnection := ADOConnection1.ConnectionObject; Col : 阅读全文
摘要：
{*******************************************************}{ }{ 定时关闭各种对话框 }{ }{ 版权所有 (C) 2007 咏南工作室（陈新光） }{ }{*******************************************************}unit uTimerDlg;interfaceuses Windows, Messages, SysUtils, Classes, Forms, ExtCtrls;// 如果指定的时间没有操作对话框,则自动关闭procedure ResetDlgAutoClose;pr 阅读全文
摘要：
{*******************************************************}{ }{ 通用打印模块 } { }{ 版权所有 (C) 2008 咏南工作室（陈新光） }{ }{*******************************************************}unit uPrint;interfaceuses DBGridEh,PrnDbgeh,SysUtils,Graphics,Forms,Printers,windows;procedure Prnt(AGrid:TDBGridEh;AOwner:Tform;APageHead 阅读全文
摘要：
{*******************************************************}{ }{ 导出Tdbgrideh数据 }{ }{ 版权所有 (C) 2007 咏南工作室 }{ }{*******************************************************}unit uExport;interfaceuses DBGridEhImpExp, DBGridEh, SysUtils, Dialogs, ComObj, ActiveX, Variants, db, FormWait;procedure ExpDbgridEh(gri 阅读全文
摘要：
{*******************************************************}{ }{ DES加解密算法 }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit DESCrypt;interfaceuses SysUtils;function EnCrypt(aStr: string; acKey: string): string;function DeCrypt(aStr: string; acKey: string): 阅读全文
摘要：
{*******************************************************}{ }{ 公用函数 }{ }{ 版权所有 (C) 2007 咏南工作室 }{ }{*******************************************************}unit uCommFunc;interfaceuses SysUtils, Forms, Windows, Controls, Messages, Dialogs, db, Classes, ComObj,IniFiles,ShellAPI,WinSock;//============== 阅读全文
摘要：
program Project2;$APPTYPE CONSOLE}uses SysUtils, StrUtils, Windows; //注重，要加入这个文件type //CPUID 一共有4组，4组连接成串是世界唯一的，常用于软件注册 TCPUID = array[1..4] of Longint;function GetCPUID: TCPUID; assembler; register;asm PUSH EBX PUSH EDI MOV EDI,EAX MOV EAX,1 DW $A20F STOSD MOV EAX,EBX STOSD MOV EAX,ECX STOSD MOV EA 阅读全文