一个线程的优先级取决于创建线程的进程的优先级（priority class）和线程本身相对的优先级（relative priority）。
1、进程优先级：
不同操作系统 优先级数目不同。Windows2000以上的版本列表如下：
Idle：（标志：IDLE_PRIORITY_CLASS，值为$40）；
Below Normal：（标志：BELOW_NORMAL_PRIORITY_CLASS，值为$4000）；
Normal：（标志：NORMAL_PRIORITY_CLASS，值为$20）；
Above Normal：（标志：ABOVE_NORMAL_PRIORITY_CLASS，值为$8000）；
High：（标志：HIGH_PRIORITY_CLASS，值为$80）；
Realtime：（标志：REALTIME_PRIORITY_CLASS，值为$100）。
进程的缺省优先级为Normal，几乎所有场合都不应将优先级设为Realtime。
创建进程时给定优先级，只要在CreateProcess中，将优先级标志做“OR”操作，填入dwCreationFlags参数中。
取得活动进程的优先级：
function GetPriorityClass(hProcess:THandle):DWORD;stdcall;
设置活动进程的优先级：
function SetPriorityClass(hProcess:THandle;dwPriorityClass:DWORD);BOOL;
（上面两个函数的hProcess由GetCurrentProcess函� ......
ADO多线程数据库查询通常会出现3个问题：
1、CoInitialize 没有调用（CoInitialize was not called）；所以，在使用任何dbGo对象前，必须手 调用CoInitialize和CoUninitialize。调用CoInitialize失败会产生"CoInitialize was not called"例外。
2、画布不允许绘画（Canvas does not allow drawing）；所以，必须通过Synchronize过程来通知主线程访问主窗体上的任何控件。
3、不能使用主ADO连接（Main TADoConnection cannot be used!）；所以，线程中不能使用主线程中TADOConnection对象，每个线程必须创建自己的数据库连接。
Delphi2007安装后在X:\Program Files\Common Files\CodeGear Shared\Data目录下有一个dbdemos.mdb文件，用来作为测试的例子。dbdemos.mdb中的customer表保存了客户信息，orders表中保存了订单信息。
测试程序流程大致是这样的：在主窗体上放TADOConnection和TQuery控件，启动时这个TQuery从Customer表中查出客户编码CustNo和公司名称Company，放到三个Combox框中，分别在三个列表框中选定客户公司名称，按照公司名称所对应的客户代码建立三个线程同时在orders表中查询销售日期Sa ......
上文中，多线程同步主窗体的Label的Caption属性值，发现一个问题：使用Synchronize用于同步的时候，主窗体好像死掉一样；而直接用子程序为Label的引用赋值，则有时会出现“Canvas does not allow drawing”错误。书上说VCL同步一定要用Synchronize，而不能直接访问。
测试：
{主窗体}
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses TestThread;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
TTestThread.Create(Label1);
//TTestThread.Create(Label2);
//TTestThread.Create(Label3);
end;
end.{多线程类}
unit TestThread;
interface
uses
Cla ......
VCL对象不是线程安全的，而且它们的属性和方法必须要从VCL主线程中进行访问或被执行，但有两种VCL对象是例外的情况，它们是线程安全的。一种是任何图形对象，另一种是TThreadList。
这意味着不必非得在主VCL线程中才能设置一个画布的画笔颜色，或画刷类型，可以在另一个线程的环境中完成一点。对于图形对象，使用Lock和UnLock，而对于ThreadList，则使用LockList和UnLockList，这些方法的行为类似于临界区，在调用它们的时候会阻止其他线程的执行。因为Lock会中断所有线程的执行，所以如果使用不正确的话，应用程序性能会有很大下降。比如：
Form1.Canvas.Lock;
For i := 0 to 10000 do
begin
Form1.Canvas.TextOut(20,20,str);
end;
Form1.Canvas.UnLock;上面这个代码中，Lock后再循环，则循环结构过于拥挤，锁定时间过长。所以应该将Lock与UnLock放在循环里面。
下面的例子，通过多线程对窗体画布进行画线。点“开始”菜单创建N个线程同时往窗体画线，点“结束”同时终止N个线程。
{主窗体代码}
unit Main;
interface
uses
Windows, Message ......
关于界面美化方面，一直是一个脑壳疼的问题！以前一直偷懒，使用的三方控件！但是在使用了一段时间之后，都或多或少的有些问题！不是我说三方控件如
何如何的不好！只是三方控件多是庞大的一个肢体，要兼顾的用户群体很多，所以同时它要考虑的问题也增加了很多，然而一个程序出现Bug是在所难免的，所以
三方控件那庞大的肢体在出了问题之后，修改就相当麻烦，首先得捋顺控件的实现过程，才能找到问题所在进而修改，所以虽然很方便，可是再有些时候也是很痛苦
的！我用过的三方皮肤控件还算比较多了，这里重点说两个很流行的，一个VCLSkin，一个BusinessSkinForm，相信多数美化爱好者，对这
两套控件都不陌生，无论使用与自己写皮肤控件时候参考，都是不可多得的好代码！为什么拿这两套控件来做说明，主要原因是这两套控件的实现原理不相同，而皮
肤美化的方法，我所知道的也就这两种方法（当然可能有其他的，不过我不知道，呵呵），先说VCLSkin，此套控件，采用的是Hook，进而子类化，然后
截获各种与界面绘制相关的消息进行控制从而达到界面美化的目的，这个实现起来，就是不必做新控件，直接Hook到窗口过程，处理掉就行，但是由于是
Hook， ......
============================================================================
Windows95是Microsoft公司的第一个真正的多任务操作系统。在每一时刻可以有多个进程同时工作，而每一个进程又包含有多个线程。但只有一个处理器的计算机不可能真正地“同时”执行多个线程，而是操作系统把时间分成若干个时间片，然后把一个个时间片分配给每一个线程。
============================================================================
一个执行了的程序就是一个进程，一个进程则至少有一个主线程。一位高级程序员，绝不会让自己的程序里面只有一个主线程存在（除非只有很少的几十行代码），而是尽量让自己的程序在同一时刻里干更多的事，在比较大一点的应用中尤其如此，象数据库应用程序，在统计的时候我还想做其他事呢！因此，如何有效地利用线程则是每一个程序员都应了解的。本文就此简单地谈一下在Delphi中如何利用线程。
----(一)当使用线程时，我们主要有两个任务：
----（1）创建一个线程。
----（2）创建一个能作为线程入口的函数。
----WindowsAPI调用CreateThread函数来创建一个线程。函数如下：
HANDLE CreateThread(LPSECURITY_
ATTRIBUTESlpThr ......
最新文章 : delphi