Test=record
a: Integer;
b: Integer;
end;
function MyThreadFun(var Param: Test): Integer; stdcall;
begin
EnterCriticalSection(CriticalSection);
Form1.Button1.Enabled:=False;
form1.Memo1.Text := IntToStr(Param.a);
form1.Memo1.Lines.add(IntToStr(Param.b));
// Result := 0;
Sleep(500);
Form1.Button1.Enabled:=true;
LeaveCriticalSection(CriticalSection);
ExitThread(4);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Id: Dword;
P: test;
begin
p.a:=5;
p.b:=6;
Button1.Enabled:=false;
if CriticalSection.RecursionCount<>0 then
DeleteCriticalSection(CriticalSection);
InitializeCriticalSection(CriticalSection);
Createthread(nil, 0, @MyThreadFun, @p, 0, Id);
end;
我明明传递过去的是,a=5,b=6,memo1中显示的是其他值,按钮按一次,值都不相同