[TCriticalSection] Kann ich in D7 testen ob "entern"?

[sirius]

(Wieviele Beiträge hast du bereits )

Delphi-Quellcode:

type TCriticalSectionEx=class(TCriticalSection)
       public
         function TryEnter:boolean;
     end;



function TCriticalSectionEx.TryEnter:Boolean;
begin
  result:=TryEnterCriticalSection(FSection);
end;