getclassname函数怎么用?(10分)

  • 主题发起人 主题发起人 sxlyq
  • 开始时间 开始时间
&nbsp;Text: string;<br><br>&nbsp; SetLength (Text, 100);<br>&nbsp; GetClassname(hwd,pchar(text),100);<br>
 
var P: Pchar;<br>getmem(p,100);<br>getclassanem(handle,P,100)<br>Caption=StrPas(P)<br>......<br>freemem(P);
 
后退
顶部