我一直使用Delphi6开发软件，看到CSDN上的OPhone手机开发，又去Google一番，听说编写手机软件
能赚钱，所以要学习Java ME，读了几天博文，大多数概念搞清楚了。
要学JavaME就得先学JavaSE，所以装了很多软件(不装那么多，OPhone就装不上去)。
推荐一篇优秀的文章：
在 NetBeans IDE 中设计 Swing GUI
读完这篇文章，初学者就入门了！ ......

如何在Delphi里面利用Word的VBA代码进行一些总结。
1、  生成VBA代码。Word本身具有很强的可扩展性，尤其是支持用户自定义功能，其实现
的主要方式就是通过VBA代码来实现的。在“工具->宏->Visual Basic编辑器”里面就可以看
到具体的宏代码，可以直接进行编辑。而且还可以使用录制宏的功能自动生成宏代码。方法是
选择“工具->宏->录制新宏”，然后执行自己想通过程序实现的功能，如存盘、打印等功能，
此时Word一边执行你要实现功能，一边将你的操作生成了一个宏，在实现功能后，可以选择
“工具->宏->VisualBasic编辑器”，查看生成的宏代码。
例如：我们要将文档中的“讨论”全部替换成“研讨”。
a．  点击“工具->宏->录制新宏”，直接点击确定，默认的宏保存到了Normal.dot系统公
用模板里面。
b．  点击“编辑->查找”，出现弹出对话框，输入查找和替换的字，点确定。进行替换。
c．  结束宏的录制，点击结束按钮。
d．  按F11或者“工具->宏->Visual Basic 编辑器”，查看宏代码。缺省查看Nor ......

 Delphi 7事件的多处理机制
Allen Tao
2007-08-19
　　首先解释一下这个题目。在我使用Delphi 7的过程中发现，一个对象的事件只能被一个过程处理。如果多次给这个对象的事件赋给处理事件的过程，最后真正处理事件的将是最后赋值的那个过程。例如，有类TMyClass中定义了一个事件OnSomeFired，在类TClientClass中该类被实例化，它的事件被处理。如下所示：
constructor TClientClass.Create;
var
  myObj: TMyClass;
begin
  //…
  myObj:= TMyClass.Create;
  myObj.OnSomeFired:= SomeFired1;
  myObj.OnSomeFired:= SomeFired2;
　　这里的SomeFired1与SomeFired2都是TClientClass中定义的处理过程。其最终的结果是当OnSomeFired事件发生时，只有SomeFired2被调用。
　　但在编程的实际中，往往需要一个事件被多个方法所处理。为此，我参考了一些对这个问题的解决办法，总结得出了一个自己的方法，称为事件的多处理机制。
原理
　　Delphi 7中的事件本质上是一种过程指针。但事件类型在定义时要比一般过程指针在最后多一个“of object”，如常用的TNotifyEvent的定义是：
TNotifyEvent = procedure(Send ......

转:DELPHI 中如何提升进程令牌
近一段时间在用DELPHI写个程序,当我写到一个结束其他进程的模块的时候有时不成功,那是因为其他进程,如病毒进程的权限高,通过常规的结束进程的函数行不通,要首先提高自身程序的权限,再结束其他进程
在网上也看到了一些提升进程令牌的函数但都不怎么好用,最后我还是从一个黑客后门程序的源代码中提取出了一个好的提升进程令牌的函数,不敢独享,跟大家分享下
头部请加入:Tlhelp32
//提升进程权限为DEBUG权限
procedure SetPrivilege;
var
  OldTokenPrivileges, TokenPrivileges: TTokenPrivileges;
  ReturnLength: dword;
  hToken: THandle;
  Luid: int64;
begin
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken);
  LookupPrivilegeValue(nil, 'SeDebugPrivilege', Luid);
  TokenPrivileges.Privileges[0].luid := Luid;
  TokenPrivileges.PrivilegeCount := 1;
  TokenPrivileges.Privileges[0].Attributes := 0;
  AdjustTokenPrivileges(hToken, False, TokenPrivileges, SizeOf(TTokenPrivileges), OldTokenPrivileges, ReturnLength);
&n ......

WinExec主要运行EXE文件。如：
WinExec("Notepad.exe Readme.txt", SW_SHOW);
ShellExecute不仅可以运行EXE文件，也可以运行已经关联的文件。
首先必须引用shellapi.pas单元：uses ShellAPI; 
1.标准用法 
　　 ShellExecute函数原型及参数含义如下： 
function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,Directory: PChar; ShowCmd: Integer): HINST; stdcall; 
●hWnd：用于指定父窗口句柄。当函数调用过程出现错误时，它将作为Windows消息窗口的父窗口。例如，可以将其设置为应用程序主窗口句柄，即Application.Handle，也可以将其设置为桌面窗口句柄（用GetDesktopWindow函数获得）。 
●Operation：用于指定要进行的操作。其中“open”操作表示执行由FileName参数指定的程序，或打开由FileName参数指定的文件或文件夹；“print”操作表示打印由FileName参数指定的文件；“explore”操作表示浏览由FileName参数指定的文件夹。当参数设为nil时，表示执行默认操作“open”。 
●FileName：用于指定要打开的文件名、要执行的程序文件名或要浏览的文件夹名。  ......

  在项目中，需要做一个日期的提醒功能，挺郁闷的，对日期的计算:
很幸运的是在delphi 中有现有的计算函数，DateUtils单元；
  路径:*\Delphi7\Source\Rtl\Common 目录下。
贴出一部分:
function IncYear(const AValue: TDateTime;
  const ANumberOfYears: Integer = 1): TDateTime;
// function IncMonth is in SysUtils
function IncWeek(const AValue: TDateTime;
  const ANumberOfWeeks: Integer = 1): TDateTime;
function IncDay(const AValue: TDateTime;
  const ANumberOfDays: Integer = 1): TDateTime;
function IncHour(const AValue: TDateTime;
  const ANumberOfHours: Int64 = 1): TDateTime;
function IncMinute(const AValue: TDateTime;
  const ANumberOfMinutes: Int64 = 1): TDateTime;
function IncSecond(const AValue: TDateTime;
  const ANumberOfSeconds: Int64 = 1): TDateTime;
function IncMilliSecond(const AValue: TDateTime;
  const ANumberOfMilliSeconds: Int64 = 1): TDateTime;
参考地址:http://info.52z.com/html/24801.html ......