WIN32下DELPHI中的多线程【变量存储】(三)

线程中的变量
    由于每个线程都代表了一个不同的执行路径，因此，最好有一种只限于一个线程内部使用的数据，
    要实现上述目的有以下几种方式：
    1、局部变量（基于栈），很简单，在你的线程函数中你定义的变量既是如此。由于每个线程都在各自的栈中，各个线程将都有一套局部变量的副本，这样，就不会相互影响。对于那些只在过程或函数的生存期有意义的变量，应当把它们声明为局部变量。
    2、存储在线程对象中。还记得CreateThread函数中的lpParameter参数吗，它可以接受一个无类型的指针。结合本文第一章的内容，你应该还记得，它被存储在线程内核对象的上下文结构中，你可以通过CONTEXT结构中的CONTEXT_INTEGER部分的ebx来读取它的地址。
    下面是一段示例代码，用来演示读取CONTEXT结构，这段代码一般用不到，但它可以说明CrateThread函数中的lpParameter被存储的位置

... {
    作者：wudi_1982
    联系方式:wudi_1982@hotmail.com
    转载请著名出处，本代码为演示代码，只贴出了一些关键部分
}

type
   // 传递给线程函数的结构和指针的声明
  Tinfo  =  record
    count : integer;
    x : integer;
    y : integer;
  end;
  Pinfo =   ^ Tinfo;

var
MyThreadHad : THandle; // 一个全局变量，用来保存线程的句柄

// 线程函数
function MyThread(info : Pointer):DWORD; stdcall;
var
  i : integer;
begin
   // 根据传递来信息决定在窗口的那个位置输出什么信息
   for  i : =   0  to Pinfo(info)<