Delphi/끄적이기
procedure를 Thread로 호출하기
var .., System.Classes;type IMyThread = interface function Handle: THandle; procedure Start; end; TMyThread = class(TInterfacedObject, IMyThread) private Thread : TThread; FHandle : THandle; public function Handle: THandle; procedure Start; constructor Create(AProc: TProc; isStart: Boolean = True); destructor Destroy; override; end;{ TAutoThread } constructor TMyThread.Create(AProc: TProc; isSta..