02 2012 档案

Delphi中destroy, free, freeAndNil, release用法和区别
摘要：经过这段时间对delphi中free 和 release 的仔细学习，先总结如下：1。form.free直接释放资源后，调用OnDestroy事件，但是没有将form指针改为nil2。form.release 等待资源不再使用后释放资源，同样不修改form指针为nil，所以在destroy中最好使用 release进行资源释放操作。3。局部变量释放资源时，可以考虑用freeandnil()释放资源，这样效率会高些，能提高内存的利用率4。在对窗体操作时，单纯通过assigned(form1)判断窗体是否已经创建是不够的，因为如果窗体通过free /release进行资源释放的话，form1指向的 阅读全文

posted @ 2012-02-29 11:28 jxgxy 阅读(2154) 评论(0) 推荐(1)

屏蔽WebBrowser页面中传出来的声音
摘要：procedure CloseSound;var hWinmm: Cardinal; pwaveOutWrite: Pointer; lp: Cardinal;begin hWinmm := LoadLibrary('Winmm.dll'); if hWinmm > 0 then pwaveOutWrite := GetProcAddress(hWinmm, 'waveOutOpen'); if pwaveOutWrite <> nil then begin VirtualProtect(pwaveOutWrite, 3, PAGE_EXECU 阅读全文

posted @ 2012-02-13 11:38 jxgxy 阅读(650) 评论(0) 推荐(0)

Webbrowser中模拟连接点击（非鼠标模拟）
摘要：usesmshtml,ActiveX;//初始加载网易主页procedureTForm1.FormCreate(Sender:TObject);beginWebbrowser1.Navigate('http://www.163.com/');end;procedureTForm1.Button1Click(Sender:TObject);varI:Integer;Document:IHTMLDocument2;Element:IHTMLElement;Anchors:IHTMLElementCollection;sLink:string;begin//查找网易新闻页面链接sLi 阅读全文

posted @ 2012-02-12 20:25 jxgxy 阅读(570) 评论(1) 推荐(0)

导航