Delphi
文章平均质量分 69
emailqjc
这个作者很懒,什么都没留下…
展开
-
根据窗体的标题获得句柄,并设置其控件的值
var hMain:HWND; hChild:HWND; buffer:array[0..255] of char; ss:Pchar;begin hMain:=FindWindow(nil,计算器); hChild:=FindWindowEx(hMain,0,nil,nil); while hChild>0 do begin GetClassName(原创 2009-09-30 17:32:00 · 1244 阅读 · 0 评论 -
枚举指定路径下文件及文件夹复制到指定路径下
function DoCopyDir(sDirName, sToDirName: String): Boolean;var F: TSearchRec; //hFindFile:Cardinal; t,tfile:String; sCurDir:String[255]; FindFileData:WIN32_FIND_DATA;begin //先保存当前原创 2009-10-01 14:17:00 · 1063 阅读 · 0 评论