Delphi7_VCL线程的使用（一）

1 var
2     SecondProcess:TMyThread; 
3 begin 
4     SecondProcess:= TMyThread.Create(True);        
5     SecondProcess.Proroty:= tpLower;
6     SecondProcess.Resumer;;
7 end

1 Property ReturnValue:Integer;

1 Property Suspended:Boolean;

1 Property Terminated:Boolean;

 1 while(not Terminated) and (ClientSocket1.Active)do
 2     begin
 3         try
 4             GetNextRequest(buffer);
 5             TheStream.Write(buffer,Length(buffer) + 1);
 6            except
 7             if not(ExceptObject is EAbort) then
 8                 Synchronize(Handle ThreadException);
 9            end;
10     end;

1 Property ThreadID:Thandle;

1 Property Handle:Thandle;