将webbrowser的cookie给idhttp用

2017-10-17 / 0评

网上搜索出来的方法是:Cookie:='Cookie:' +(Web.document as IHtmlDocument2).cookie; 但听说这个方法不能获取全部的Cookie内容,需要借助wininet.dll才可以获取完整。 function GetCookie(url: string):...

获取电脑系统空闲时间

2017-10-17 / 0评

function GetLastInput: integer; //获取闲置时间 var   LInput: TLastInputInfo; begin   Result := 0;   try     LInput.cbSiz...

[转]快速获取文件大小

2017-10-13 / 0评

function GetFileSize(const fName: AnsiString): Int64; var   hFile: THandle; begin   hFile := _lopen(PAnsiChar(fName), OF_READ);   Result := FileSeek(hFile, Int6...

Sublime Text 3 Build 3142 32/64通用注册码

2017-9-3 / 0评

注册码仅仅是为了方便大家试用软件,多春鱼并不鼓励长期使用,这个软件是程序员的利器,功能可以无限扩展,如果条件允许就注册一个吧,作者也不容易。网上有不少人在汉化,其实根本没必要,软件本来就有中文插件下载,当然破解就更没必要了,目前我查到的破解都是会反复显示未注册的。  —– BEGIN LICENSE —–  Twit...

【转】不管什么DateTime日期格式时间格式转换都不会出错了!

2017-7-6 / 0评

在Application.Initialize后面加入对FormatSettings的设置: Application.Initialize; with FormatSettings do begin ShortDateFormat := 'yyyy-mm-dd'; LongDateFormat := 'yyyy-mm...

祝各位2017年新年快乐!

2017-1-27 / 0评

[转]Delphi InterlockedIncrement/InterlockedDecrement

2016-7-13 / 0评

用于增减变量的并不是常用的Inc/Dec过程,而是用了InterlockedIncrement/InterlockedDecrement这一对过程,它们实现的功能完全一样,都是对变量加一或减一。但它们有一个最大的区别,那就是InterlockedIncrement/InterlockedDecrement是线程安全的。即它们在多线程下能保证执行结果正确,而I...

[转]Delphi中释放父控件里的所有子控件

2016-4-9 / 0评

procedure TFrmMain.ClearControls(AParent: TWinControl); var i: Integer; begin for i := AParent.ControlCount - 1 downto 0 do begin if not AParent.Controls[i].InheritsFr...

[转]Unicode 检查字符串是否含中文字

2016-3-8 / 0评

// 字串含中文 by Aone function IsIncludeChinese(Str: String): Boolean; var i: Integer;     UCS4Str: UCS4String; begin      Result := False;     ...

DateUtils所有时间函数

2016-2-5 / 0评

unit DateUtils; interface uses SysUtils, Math, Types; // 把完整时间分解成日期和时间两部分 function DateOf(const AValue: TDateTime): TDateTime; function TimeOf(const AValue: TDateTime...

1 2 3