关于线程的问题，见者有分！！！！

Question

小弟最近要做线程方面的东东，
但是以前又没用过，想请各位朋友推荐一些
线程资料给在下学习一下，从基础点的开始吧！
区区100分表达谢意！！！！！！！

Answer 1

http://www.csdn.net/develop/author/netauthor/raptor/

Answer 2

运行一下,你就会了.很容易的
function MyThreadFunc(P:pointer):Longint;stdcall;
var
  i:longint;
  DC:HDC;
  S:string;
begin
  DC:=GetDC(Form1.Handle);
  for i:=0 to 500000 do
   begin
     S:=Inttostr(i);
     Textout(DC,10,10,Pchar(s),length(s));  //屏幕上的字符输出
   end;
  ReleaseDC(Form1.Handle,DC);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  hThread:thandle;
  Threadid:DWord;
begin
  hThread:=CreateThread(nil,0,@mythreadfunc,nil,0,ThreadID);
  if hThread =0 then
  messagebox(Handle,'Didn’tCreateaThread',nil,MB_OK);
  end;end.

Answer 3

visit www.codeproject.com about threads!
 u'd better learn more about computer network.

Answer 4

so many warm-hearted men!