delphi 线程

unit threadutil;

interface
uses classes,windows;
type
TLock=class
  private FLock: TRTLCriticalSection;
  public constructor create;
  public procedure lock;
  public procedure unlock;
end;
TBaseThread=class(TThread)
  public test:integer;
  public onwork:TNotifyEvent;
  procedure execute;override;
end;

implementation
constructor TLock.create;
begin
  InitializeCriticalSection(FLock);
end;
procedure TLock.lock;
begin
  EnterCriticalSection(FLock);
end;
procedure TLock.unlock;
begin
  LeaveCriticalSection(FLock);
end;

procedure TBaseThread.execute;
begin
  if assigned(onwork) then
    onwork(self);
end;

end.