SetPriorityClass(ProcessHandle, REALTIME_PRIORITY_CLASS);

优先级：HIGH_PRIORITY_CLASS
含义：指示这个进程将执行时间临界的任务，所以它必须被立即运行以保证正确。这个优先级的程序优先于正常优先级或空闲优先级的程序。一个例子是Windows任务列表，为了保证当用户调用时可以立刻响应，放弃了对系统负荷的考虑。确保在使用高优先级时应该足够谨慎，因为一个高优先级的CPU关联应用程序可以占用几乎全部的CPU可用时间。

优先级：IDLE_PRIORITY_CLASS

SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or

                                                                   WS_EX_TRANSPA

1、窗口半透明：

SetWindowLong(hwnd, GWL_EXSTYLE,
GetWindowLong(hwnd, GWL_EXSTYLE) | WS_EX_LAYERED)   
SetLayeredWindowAttributes(hwnd, 0, (255 * 70) / 100, LWA_ALPHA)  

2、用自定义过程MyProc的地址代替正常消息处理程序的地址：

OldWinProc:= GetWindowLong(FrmState.hWnd, GWL_WNDPROC)   

SetWindowLong(hWnd, GWL_WNDPROC,   @MyProc   )

3、自定义消息处理过程：

if (msg=WM_MOUSEMOVE) OR

function EnumWndProc(AWnd: HWND; AlParam: LPARAM): Boolean; stdcall;
var
    szText: array[0..254] of char;
begin
    if IsWindowVisible(awnd) then
    begin
        GetWindowText(awnd, @szText, 255);
        if szText<>'' then
          Form1.listBox1.Items.Add(strPas(@szText));

//声明:
SetLayeredWindowAttributes(
Hwnd: THandle;   {窗口句柄}
crKey: COLORREF; {透明色}
bAlpha: Byte;    {Alpha 值}
dwFlags: DWORD   {LWA_COLORKEY(=1

函数功能：该函数能在显示与隐藏窗口时能产生特殊的效果。有两种类型的动画效果：滚动动画和滑动动画。

函数原型：BOOL AnimateWindow（HWND hWnd，DWORD dwTime，DWORD dwFlags）；
参数：
hWnd：指定产生动画的窗口的句柄。
dwTime：指明动画持续的时间（以微秒计），完成一个动画的标准时间为200微秒。

dwFags：指定动画类型。这个参数可以是一个或多个下列标志的组合。
AW_HOR_POSITIVE （0x00000001） '从左到右打开窗口
AW_HOR_NEGATIVE （0x00000002 ） '从右到左打开窗口

暂时保存还未进行测试。计划：由于64！大约为1.3*e89条排列记录，计划每张表存10万条记录，分表存放。中断执行后，下次从中断点后开始继续执行。

var
a:Array[1..64] of Integer;
i,j,n,tmp:Integer;
s:String;
Qry1:TADOQery;
strSQL:String;
begin
Qry1.close;
Qry1.SQL.Clear;
Qry1.SQL.add('select * from tb1');
Qry1.open;
a:=TranQryToA(Qry1);
while(flag) do
    begin
      //从右向左找到第一个右边数大

rocedure TForm1.Button1Click(Sender: TObject);
var
h:Thandle;
R:TRect;
x,y,lpara:Integer;
begin
h:=FindWindow('TForm1','Form1');
//h:=FindWindowEx(h,0,'TButton','Button1');
GetWindowRect(h,R);
x:=r.Left+120;
y:=r.Top+120;
lpara:=x+(y shl 16);
setforegroundwindow(h);

//setwindowpos(hwnd(h),HWND_TOP,r.Left,r.Top, r.Right-r.Left,r.Bottom-r.Top,SWP_SHOWWINDOW);
//SendMessage(h,WM_LBUTTONDOWN,MK_LBUTTON,MakeLong(20,20));
//S

//两个 MemoryStream比较是否相等。

function StreamEqu(s1,s2:Tmemorystream):Boolean;
begin
result:=(s1.Size=s2.Size) and CompareMem(s1.Memory,s2.Memory,s1.Size);
end;

//取得第一个鼠标指针

procedure TForm1.Button1Click(Sender: TObject);
var
CI: TCursorInfo;
begin
CI.cbSize := SizeOf(CI);
GetCursorInfo(CI);
Image1.Picture.Icon.Handle := CI.hCursor;
bit1.Width:=Image1.Picture.Icon.Width;
bit1.Height:=Image1.Pictur