CreateThread(nil, 0, @New_Thread, nil, 0, Tid);
function New_Thread(P:pointer):DWORD;stdcall;
访问主线程
USES SyncObjs 命名空间
CS: TcriticalSection; 定义
CS:=TcriticalSection.Create; 创建
子线程内
CS.Enter; 进入
访问主线程代码
CS.Leave;离开
CreateThread(nil, 0, @New_Thread, nil, 0, Tid);
function New_Thread(P:pointer):DWORD;stdcall;
访问主线程
USES SyncObjs 命名空间
CS: TcriticalSection; 定义
CS:=TcriticalSection.Create; 创建
子线程内
CS.Enter; 进入
访问主线程代码
CS.Leave;离开