fanybupt

日出而作，日入而息，凿井而饮，耕田而食，帝力于我何有哉？

导航

2012年5月4日

Delphi版Everything函数

摘要： unit Everything;interfaceuses Windows; const EVERYTHING_OK= 0; EVERYTHING_ERROR_MEMORY=1; EVERYTHING_ERROR_IPC= 2; EVERYTHING_ERROR_REGISTERCLASSEX = 3; EVERYTHING_ERROR_CREATEWINDOW=4; EVERYTHING_ERROR_CREATETHREAD=5; EVERYTHING_ERROR_INVALIDINDEX= 6; EVERYTHING_ERROR_INVALIDCALL = 7; EverythingDLL 阅读全文

posted @ 2012-05-04 16:30 fanybupt 阅读(856) 评论(0) 推荐(0)

窗口管理

摘要： 1、层叠窗口Set objShell = CreateObject("Shell.Application") objShell.CascadeWindows2、平铺窗口Set objShell = CreateObject("Shell.Application") objShell.TileVertically3、最大化所有窗口set htmlfile=createobject("htmlfile")Set objWord = CreateObject("Word.Application") objword.Vis 阅读全文

posted @ 2012-05-04 12:09 fanybupt 阅读(179) 评论(0) 推荐(0)