参数是声明的全局变量；
程序大致如下：
//声明结构
type
PMyThread = ^TMyThread
TMyThread = redcord
info_len: integer;
end;
//声明
var
hThread: Thandle;
ThreadID: DWord;
MyThread: PMyThread;
//初始化参数
new(MyThread);
MyThread^.info_len := 100;
//创建现程
//MyThread是要传递给MyThreadFunc线程函数的参数
hThread := CreateThread(nil,0,@MyThreadFunc,MyThread,0,ThreadID);
//线程函数
function MyThreadFunc(MyThread: PMyThread): variant;stdcall;
begin
...
end;
//现在只要把stdcall改成safecall参数值就可以取得；
//原因我不知道；
//我想请问：
stdcall和safecall是什么？？？？
为什么要在函数后加上这个？？？
