如下代码:HDC是个什么类型 function mythreadfunc(p:pointer):longint;stdcall; var i:integer; DC:HDC; S:string; begin DC:=getdc(form1.Handle); for i:=0 to 100000 do begin S:inttostr(i); textout(DC,10,10,Pchar(S),length(S); end; releaseDC(form1.Handle,DC); end;
----------------------------------------------
中流一壶,千金争挈。宁为铅刀,毋为楮叶。错节盘根,利器斯别。识时务者,呼为俊杰!