线程问题

[cysh]

delphi中的CreateThread这个API中线程函数的参数怎么传？给个例子吧。
HANDLE CreateThread(
LPSECURITY_ATTRIBUTES lpThreadAttributes, // pointer to thread security attributes
DWORD dwStackSize, // initial thread stack size, in bytes
LPTHREAD_START_ROUTINE lpStartAddress, // pointer to thread function
LPVOID lpParameter, // argument for new thread
DWORD dwCreationFlags, // creation flags
LPDWORD lpThreadId // pointer to returned thread identifier
);
如果有多个参数，要怎么传？

[beyondtkl]

LPVOID lpParameter, // argument for new thread

--

type
YourParamRecord = record
item1: integer;
item2: array[0..10] of char;
item3: Double;
end;

r: YourParamRecord;
CreateThread(..., Pointer(@r),...);

[linzhengqun]

其实你只要看一下Delphi的TThread怎么样封装的，就大概怎么样了。
我只简单说明：
HANDLE CreateThread(
LPSECURITY_ATTRIBUTES lpThreadAttributes, // 一般为Nil
DWORD dwStackSize, // 一般为0
LPTHREAD_START_ROUTINE lpStartAddress, // 设你的线程函数，赋给它
LPVOID lpParameter, // 线程函数所带的参数，TThread中是带了对象本身。
DWORD dwCreationFlags, // 指定是否先挂起
LPDWORD lpThreadId // 返回一个线程ID
);

[cysh]

谢谢两位！我先试试看。

[taoyypp]

顶