将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...