在Delphi 7的Skype的读者聊天

代码说明：

应用背景…/ / --------使twincontrols双缓冲（消除愚蠢的闪烁）程序enabledoublebuffering（父母：来；const aenabled：布尔）；VaR我：整数； ；awincontrol：来；开始 ；与父母做一开始 ； ； ； ； ；如果父母是有有那么aparent.doublebuffered：= aenabled；和公司的； ； ； ； ； ；我：= 0 - 1开始controlcount ； ； ； ； ； ； ；如果控制[我]是有有那么和，和，和，和，和，； ； ； ； ； ； ； ； ； ； ；awincontrol来：=（对照组[我]）； ； ； ； ； ； ； ； ； ； ；awincontrol.doublebuffered：= aenabled； ； ； ； ； ； ； ； ； ； ；如果awincontrol.controlcount & gt；0 enabledoublebuffering（awincontrol，真的）；和，和，和，和，和，；和，和，和，结束；结束了；终点…关键技术型 ；/ / -------参与者 ；tparticipants =记录人：数组[ 1 .. 0 ]的字符串；和，我的身份证：数组[ 0 .. 1 ]的字符串；结束了；并； ；/ / ------- Skype聊天同步文件 ；tskypechatsyncfile =记录文件名：文件名：字符串； ； ； ；filedatetimestamp：整数； ； ； ；filedatetime：TDateTime；结束了； ；/ / -------所有同步文件 ；tskypech