游子日月长

笑渐不闻声渐悄，多情却被无情恼！

导航

10 2016 档案

[重点]delphi删除部分字符串（不区分大小写）
摘要：type TDelFlags = set of (dfDelBefore, dfDelAfter); //删除ms字符串中endstr子字符串前面或后面的部分字符串 procedure Delstr(var ms: String; endstr: String; Flags: TDelFlags; 阅读全文

posted @ 2016-10-21 09:05 游子日月长 阅读(3281) 评论(0) 推荐(0)

delphi删除整个目录及目录下的文件
摘要：//删除整个文件夹及其下的所有文件function DelDirAll(aDir: string): Boolean; var vSearch: TSearchRec; vRet: integer; vKey: string;begin if aDir[Length(aDir)] <> '\' th 阅读全文

posted @ 2016-10-21 08:59 游子日月长 阅读(8369) 评论(0) 推荐(0)

delphi注册热键方法（一）
摘要：uses windows,menus; ..... //声明 HotKey_Key: Word; HotKey_Shift: Word; procedure WMHotKey(var msg : Tmessage); message WM_HOTKEY; ...... function ShiftS 阅读全文

posted @ 2016-10-21 08:53 游子日月长 阅读(1656) 评论(0) 推荐(0)

[Self]js零碎代码片断收集(3)
该文被密码保护。

posted @ 2016-10-18 16:01 游子日月长 阅读(6) 评论(0) 推荐(0)

［原创］delphi在win7下创建共享文件夹源代码
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,AclApi, AccCtrl, StdCtrls; type PShareIn 阅读全文

posted @ 2016-10-18 15:08 游子日月长 阅读(1034) 评论(1) 推荐(0)

［原创］纯JS实现网页中多选复选框checkbox和单选radio的美化效果
摘要：图片素材： 最终效果图： <html><title> 纯JS实现网页中多选复选框checkbox和单选radio的美化效果</title><head><style> BODY { FONT-FAMILY: "Segoe UI", Frutiger, Tahoma, Helvetica, "Helve 阅读全文

posted @ 2016-10-14 10:52 游子日月长 阅读(1909) 评论(0) 推荐(0)

[Self]js零碎代码片断收集(2)
该文被密码保护。

posted @ 2016-10-13 17:37 游子日月长 阅读(6) 评论(0) 推荐(0)

[Self]js零碎代码片断收集(1)
该文被密码保护。

posted @ 2016-10-13 17:34 游子日月长 阅读(7) 评论(0) 推荐(0)