问题描述
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,registry,ExtCtrls,shellapi;typeTForm1=class(TForm)Timer1:TTimer;Label1:TLabel;Label2:TLabel;procedureFormCreate(Sender:TObject);procedureTimer1Timer(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;reg:tregistry;hwnd:thandle;implementation{$R*.dfm}procedureTForm1.FormCreate(Sender:TObject);begin//application.showmainform=false//隐藏窗体。这里是演示，就不隐藏了。reg:=Tregistry.create;reg.rootkey:=HKEY_LOCAL_MACHINE;reg.openkey('SOFTWAREMicrosoftWindowsCurrentVersionRun',true);//true应该是覆盖。reg.writestring('scanregistry','ad.exe');//以上三行就是写入注册表的启动项。reg.closekey;reg.free;end;procedureTForm1.Timer1Timer(Sender:TObject);beginhwnd:=findwindow('IEframe',nil);//调用Findwindow函数来查找浏览器是否运行。ifhwnd<>0then//如果浏览器正在运行，那么...shellexecute(0,'open','iexplore.exe','http://www.qq.com,'',SW_SHOWNORMAL);//打开www.hack520.org这个网站，这里shellexecute的用法跟VB的一样。end;end.
解决方案
解决方案二：
这段代码你到底是哪些不明白，也没有个标注。
解决方案三：
这段程序有什么用呢？谢谢。
解决方案四：
应该是程序启动，往注册表启动项里面加入启动'ad.exe'然后，如果浏览器在运行，就打开http://www.qq.com
解决方案五：
引用3楼net_lover的回复:
应该是程序启动，往注册表启动项里面加入启动'ad.exe'然后，如果浏览器在运行，就打开http://www.qq.com
创建窗体然后就是上面的：
解决方案六：
引用楼主xiaosan00000的回复:
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,registry,ExtCtrls,shellapi;typeTForm1=class(TForm)Ti……
上部分是：向注册表中写入“键值”下部分是：打开一个“网址”
解决方案七：
create的时候写注册表，要在开机时候运行ad.exe同时如果IEframe运行，打开http://www.qq.com网站。