第一个问题：<br>function EnumFontsProc(var lonfont : tlogfont;var textmetric : ttextmetric;fonttype : integer;data : pointer) : integer;stdcall;<br>begin<br> tstrings(data).add(logfont.lffacename);<br> result :=1;<br>end;<br><br>procedure Tform1.Button1Click(Sender : tobject);<br>var<br> tempDC : Hdc;<br>begin<br> tempdc :=getdc(0);<br> try<br> enumfonts(tempdc,nil,@enumfontsproc,pointer(combobox1.items));<br> finally<br> releasedc(0,tempdc);<br> end;//finally<br>end;
