一、利用ＡＰＩ獲取窗口的標題ば陸ù疤澹疲铮颍恚焙桶磁ィ茫铮恚恚幔睿洌豹ぴ诖疤迥？橹刑砑尤缦麓碼：
ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ
ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＷｉｎｄｏｗＴｅｘｔＬｉｂ＂ｕｓ—
ｅｒ３２＂Ａｌｉａｓ＂ＧｅｔＷｉｎｄｏｗＴｅｘｔＡ＂（ＢｙＶａｌｈｗｎｄＡｓ
Ｌｏｎｇ，ＢｙＶａｌｌｐＳｔｒｉｎｇＡｓＳｔｒｉｎｇ，ＢｙＶａｌｃｃｈＡｓ
Ｌｏｎｇ）ＡｓＬｏｎｇ
＇在窗體聲明節中加入ＡＰＩ函數“ＧｅｔＷｉｎｄｏｗＴｅｘｔ”的說明
＇函數將向ｌｐｓｔｒｉｎｇ中載入要獲得的窗體ｃａｐｔｉｏｎ
ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）
ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ
ＤｉｍｃａｐｔｅｘｔＡｓＳｔｒｉｎｇ
ＤｉｍｃａｐｌｅｎＡｓＬｏｎｇ
ｃａｐｔｅｘｔ＝Ｓｔｒｉｎｇ＄（１００，０）
ｃａｐｌｅｎ＝９９
ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＷｉｎｄｏｗＴｅｘｔ（ＢｙＶａｌｍｅ．ｈｗｎｄ，
ＢｙＶａｌｃａｐｔｅｘｔ，ＢｙＶａｌｃａｐｌｅｎ）
ｐｒｉｎｔｒｅｔｕｒｎｃｏｄｅ
Ｐｒｉｎｔｃａｐｔｅｘｔ
Ｐｒｉｎｔｃａｐｌｅｎ
ＥｎｄＳｕｂ
二、獲取鼠標在當前窗口（客戶區）的屏幕坐標そ立一新項目窗體ｆｏｒｍ１並添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２ぴ诖疤迥？橹惺淙耄邯
ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ
ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＣｕｒｓｏｒＰｏｓＬｉｂ＂ｕｓｅｒ３２＂
（ｌｐＰｏｉｎｔＡｓＰＯＩＮＴＡＰＩ）ＡｓＬｏｎｇ
ＰｒｉｖａｔｅＴｙｐｅＰＯＩＮＴＡＰＩ
ＸＡｓＬｏｎｇＹＡｓＬｏｎｇ
ＥｎｄＴｙｐｅ
ＤｉｍｐｔＡｓＰＯＩＮＴＡＰＩ
ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）
Ｔｅｘｔ１．Ｔｅｘｔ＝＂＂
Ｔｅｘｔ２．Ｔｅｘｔ＝＂＂
ＭａｘＢｕｔｔｏｎ＝Ｆａｌｓｅ
ＭｉｎＢｕｔｔｏｎ＝Ｆａｌｓｅ
Ｆｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ＝２
ＥｎｄＳｕｂ
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿ＭｏｕｓｅＭｏｖｅ（ＢｕｔｔｏｎＡｓＩｎｔｅｇｅｒ，
ＳｈｉｆｔＡｓＩｎｔｅｇｅｒ，ＸＡｓＳｉｎｇｌｅ，ＹＡｓＳｉｎｇｌｅ）
＇注意ｐｔ結構是按引用傳遞的
ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＣｕｒｓｏｒＰｏｓ（ｐｔ）
Ｔｅｘｔ１．Ｔｅｘｔ＝ｐｔ．Ｘ
Ｔｅｘｔ２．Ｔｅｘｔ＝ｐｔ．Ｙ
ＥｎｄＳｕｂ
三、記錄Ｗｉｎｄｏｗｓ使用時間
建立新項目窗口ｆｏｒｍ１，輸入代碼：
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）
ｆｏｒｍ１．ｖｉｓｉｂｌｅ＝ｆａｌｓｅ
Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１
Ｐｒｉｎｔ＃１，＂啟動ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ＃１
ＥｎｄＳｕｂ
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｕｎｌｏａｄ（ＣａｎｃｅｌＡｓＩｎｔｅｇｅｒ）
Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１
Ｐｒｉｎｔ＃１，＂關閉ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ＃１
Ｅｎｄ
ＥｎｄＳｕｂ
最後將此程序加入啟動組即可。（->
