2009 年 7月 22 日随笔档案 - martian6125

2009年7月22日

摘要：关键代码:function TForm1.GetSysFocus: Integer; var hOtherWin,OtherThreadID,hFocusWin:integer; begin hOtherWin:=Get... 阅读全文

posted @ 2009-07-22 07:56 martian6125 阅读(148) 评论(0) 推荐(0)

摘要：方法一:Boris Kumparfunction ExtractBasePath(const Path1,Path2:string):string;const PATH_DELIMITER = '\'; DRIVE_DELIMITER = ':';var P1,... 阅读全文

posted @ 2009-07-22 07:49 martian6125 阅读(194) 评论(0) 推荐(0)

摘要：拖动TTimer组件TTimer组件事件如下： const {$J+} animatedTitle : string = ' Animated Application''s TaskBar Title '; {$J-}var cnt: Integer;begi... 阅读全文

posted @ 2009-07-22 07:46 martian6125 阅读(140) 评论(0) 推荐(0)