引言： 在自己的程序中使用过WebBrowser控件的朋友都知道，WebBrowser控件定义了诸如BeforeNavigate、DownloadComplete 等事件，我们可以通过编写事件处理代码实现对WebBrowser控件的操作。
摘要： 最近读到《计算机世界》的文章《用vb给商品软件加密的方法》，对此我也有比较多的实际体验，和大家探讨一下。
---- 我曾经参与了一些小商品软件的开发工作，每次的加密工作总是让人头痛。既然是商品软件，在目前的情况下，就不得不考虑防止非法拷贝的问题。加密的方法很多，最终目的无非都是确认用户具有合法的软件使用权。所以，必须给合法用户一个使用软件的授权凭证，这种凭证是难以复制的。确实，采用加密狗做......
摘要： delphi发展至今，已经是第五版本了。尽管各个版本有大大小小的bug,但疵不掩暇，她还是赢得了广大程序员和编程爱好者的追随和爱戴。随着2000年的逼近， y2k的一系列问题和各种解决方案也就随之提到日程上来。对编程者来说，我们现在关心的焦点是：delphi系列有没有y2k问题呢？
---- 答案当然是肯定的。从 delphi4 起，inprise 公司就在系统单元 sysutils. p......
用Delphi编写IE扩展上一页 ...
namecount, localeid: integer; dispids: pointer): hresult; stdcall;
function invoke(dispid: integer; const iid: tguid; localeid: integer; 【程序编程相关:
避免驱动器A没有准备好错误】 【推荐阅读:
如何获得当前系统正在运行的所有程序的名字】
flags: word; var params; varresult, excepinfo, argerr: pointer): hresult; stdcall; 【扩展信息:
如何用delphi读取网卡物理号】
function setsite(const punksite: iunknown): hresult; stdcall;
function getsite(const riid: tiid; out site: iunknown): hresult; stdcall;
private
ie: iwebbrowser2;
cookie: integer;
end;
const
class_iehelper: tguid = {3d898c55-74cc-4b7c-b5f1-45913f368388};
implementation
uses comserv, registry, sysutils;
procedure dostatustextchange(const text: widestring);
begin
end;
procedure doprogresschange(progress: integer; progressmax: integer);
begin
end;
procedure docommandstatechange(command: integer; enable: wordbool);
begin
end;
procedure dodownloadbegin;
begin
end;
procedure dodownloadcomplete;
begin
end;
procedure dotitlechange(const text: widestring);
begin
end;
procedure dopropertychange(const szproperty: widestring);
begin
end;
...
下一页 摘要：发软件时经常需要加入各种图形的特效显示效果，这样可以使画面变得更为生动活泼，增加软件的趣味性，使软件更加受欢迎。本文将探讨如何在delphi编程中实现移动、交错、瀑布状、百叶窗和积木堆叠等各种图形特效显示效果。
基本原理
在delphi中，实现图像的显示是非常简单的，我们只要在form中定义一个timage组件，设置其picture属性，然后选择任何有效的.ico、.bmp、.emf或.wm......
