07 2011 档案

使用全局热键显示隐藏窗体
摘要：unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs;typeTForm1=class(TForm)procedureFormCreate(Sender:TObject);procedureWMHotKey(varMsg:TWMHotKey);messageWM_HOTKEY;private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;HotKeyId:Cardina 阅读全文

posted @ 2011-07-29 15:29 jxgxy 阅读(326) 评论(0) 推荐(0)

Delphi下遍历文件夹下所有文件的递归算法
摘要：{-------------------------------------------------------------------------------过程名: MakeFileList 遍历文件夹及子文件夹参数: Path,FileExt:string 1.需要遍历的目录 2.要遍历的文件扩展名返回值: TStringListUSE StrUtils Eg：ListBox1.Items:= MakeFileList( 'E:\极品飞车','.exe') ; ListBox1.Items:= MakeFileList( 'E:\极品飞车' 阅读全文

posted @ 2011-07-25 22:11 jxgxy 阅读(1357) 评论(0) 推荐(0)

passcal try嵌套
摘要：一般这样嵌套：trytry//...finally//...end;except//...end; 阅读全文

posted @ 2011-07-06 11:06 jxgxy 阅读(248) 评论(0) 推荐(0)

[最新]Visual Assist X 破解版下载(10.6.1850)
只有注册用户登录后才能阅读该文。

posted @ 2011-07-05 22:52 jxgxy 阅读(139) 评论(1) 推荐(1)

passcal 多线程例子，线程管理，创建，暂停，中止，等待等。。。
摘要：/Files/jxgxy/KillThreadTest.rar 阅读全文

posted @ 2011-07-03 01:42 jxgxy 阅读(305) 评论(0) 推荐(0)

导航