06 2011 档案
摘要:View Code {*******************************************************}{ }{ Delphi Thread Sample 2 } { Creation Date 2011.06.30 }{ Created By: ming }{ }{*******************************************************}unit unitWorkThread;interfaceuses Classes,Windows, Messages, SysUtils, Graphics, StdCtrls;type
阅读全文
摘要:View Code {*******************************************************}{ }{ Delphi Thread Sample } { Creation Date 2011.06.29 }{ Created By: ming }{ }{*******************************************************}unit unitWorkThread;interfaceuses Classes,Windows, Messages, SysUtils, Graphics, StdCtrls;type TW
阅读全文
摘要:View Code TCriticalSection = class(TObject) protected FSection: TRTLCriticalSection; public constructor Create; destructor Destroy; override; procedure Enter; procedure Leave; function TryEnter: Boolean; end;{TCriticalSection}constructor TCriticalSection.Create;begin InitializeCriticalSection(FSecti
阅读全文

浙公网安备 33010602011771号