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));

暂时保存还未进行测试。计划：由于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

方法一：先CLOSE，再更换ConnectionString，现OPEN。

例一：

function GetConnectionString: string;
var
SYSINI: TINIFile;
ServerName, UserName, Password, tmpstr: string;
begin
SYSINI := TIniFile.Create(ExtractFilePath(Application.ExeName)+'DB.INI');
try
ServerName := SYSINI.ReadString('Database', 'ServerName', '');
UserName := SYSINI.ReadString('Database', 'UserName', '');
tmpstr