游子日月长

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

导航

2016年10月21日 #

[重点]delphi删除部分字符串（不区分大小写）

摘要： type TDelFlags = set of (dfDelBefore, dfDelAfter); //删除ms字符串中endstr子字符串前面或后面的部分字符串 procedure Delstr(var ms: String; endstr: String; Flags: TDelFlags; 阅读全文

posted @ 2016-10-21 09:05 游子日月长 阅读(3229) 评论(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 游子日月长 阅读(8272) 评论(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 游子日月长 阅读(1636) 评论(0) 推荐(0) 编辑