学步园

        在临界区实际使用过程中发现，多个子线程进入临界区都正常，但当别的子线程进入临界区后，此时主线程要进入临界区则程序会挂起，就造成程序的未响应，该问题造成的原因是：当多个操作进入到临界区之后，只有一个操作在执行，其他操作都处于挂起状态，在第一个操作执行完毕之后后面再执行一个操作，依次类推执行，此时如果主线程进入到临界区则主线程也就处于挂起状态，从而程序就会未响应，直到主线程操作执行完毕。

        从上面分析可知，主线程是不能进入到临界区来执行的，但如果主线程必须要执行操作类似于进入临界区效果，可以通过检测临界区是否正在被使用，如果正在被使用则等待，视情况而定看是否设置超时时间，如果没有使用则直接执行操作。

G_bMainWaitLock: boolean;	//全局变量，看是否有主线程操作是否已经处于等待排队状态

procedure MainWaitLock; //主线程等待临界区执行完毕
var
  i: integer;
begin
  G_bMainWaitLock := true;
  for i:=0 to 600 do //超时时长，可根据实际情况进行设置
  begin
    if CSOperationPhone.LockCount<>-1 then	//CSOperationPhone设置的临界区变量
    begin
      Application.ProcessMessages;
      sleep(100);
    end
    else
      break;
  end;
  G_bMainWaitLock := false;
end;

        上述代码只适合一个主线程操作处于等待状态，如果需要多个可自己修改。