![[smile]](/data/assets/smilies/smile.gif "[smile] [smile]")
awesome. I've updated the download above with it, and instructions etc. But - it's currently causing Internet Explorer to crash when you close it. That's no big deal because you're not losing anything, and it doesn't upset anything else.
![[2thumbsup]](/data/assets/smilies/2thumbsup.gif "[2thumbsup] [2thumbsup]")
[navy]// for automatic syntax highlighting see faq102-6487[/navy]
[b]unit[/b] u_svc_main;
[b]interface[/b]
[b]const[/b] test=[purple]1[/purple];
[b]uses[/b]
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;
[b]type[/b]
TSvc_autoupdater = [b]class[/b](TService)
[b]private[/b]
[navy]{ Private declarations }[/navy]
[b]public[/b]
[b]function[/b] GetServiceController: TServiceController; [b]override[/b];
[navy]{ Public declarations }[/navy]
[b]end[/b];
[b]var[/b]
Svc_autoupdater: TSvc_autoupdater;
[b]implementation[/b]
[navy]{$R *.DFM}[/navy]
[b]procedure[/b] ServiceController(CtrlCode: DWord); stdcall;
[b]begin[/b]
Svc_autoupdater.Controller(CtrlCode);
[b]end[/b];
[b]function[/b] TSvc_autoupdater.GetServiceController: TServiceController;
[b]begin[/b]
Result := ServiceController;
[b]end[/b];
[b]begin[/b]
VarStr:=[teal]'string'[/teal];
VarInt:=[purple]10[/purple];
[b]end[/b].![[wavey]](/data/assets/smilies/wavey.gif "[wavey] [wavey]")
[navy]// for automatic syntax highlighting see faq102-6487[/navy]
[b]function[/b] FeedbackForGriffyn: [b]String[/b]
[b]begin[/b]
Result := [teal]'Excellent job Griffyn! (tested in IE7)'[/teal];
[b]end[/b];
[navy]// for automatic syntax highlighting see faq102-6487[/navy]
[b]function[/b] ForgotToTell: [b]String[/b];
[b]begin[/b]
Result:=[teal]'IE7 works also here'[/teal];
[b]end[/b];![[wiggle]](/data/assets/smilies/wiggle.gif "[wiggle] [wiggle]")
[/ignore] tag would try to be processed, even in text like this.[Colors-VB]
string=navy
comment=green
reserved=
[Formats-VB]
comment=i
reserved=b
[Reserved-VB]
normal=abs,and,appactivate,as,asc,atn,base,beep,begintrans,byval,call,
case,ccur,cdbl,chdir,chdrive,choose,chr,chr$,cint,clng,close,command,
command$,committrans,compactdatabase,compare,const,cos,createdatabase,
csng,cstr,curdir,curdir$,cvar,cvdate,date,date$,dateadd,datediff,datepart,
dateserial,datevalue,day,ddb,declare,deftype,dim,dir,dir$,do,doevents,
double,else,end,environ,environ$,eof,eqv,erase,erl,err,error,error$,exit,
exp,false,fileattr,filecopy,filedatetime,filelen,fix,for,format,format$,
freefile,freelocks,function,fv,get,getattr,global,gosub,goto,hex,hex$,hour,
if,iif,imp,input,input$,inputbox,inputbox$,instr,int,integer,ipmt,irr,is,
isdate,isempty,isnull,isnumeric,kill,lbound,lcase,lcase$,left,left$,len,
let,like,line,load,loadpicture,loc,lock,lof,log,long,loop,lset,ltrim,
ltrim$,me,method,method,method,mid,mid$,minute,mirr,mkdir,mod,month,
msgbox,name,new,next,not,now,nper,npv,oct,oct$,on,open,opendatabase,
operator,option,or,partition,pmt,ppmt,print,private,put,pv,qbcolor,
randomize,rate,redim,registerdatabase,rem,repairdatabase,reset,resume,
return,rgb,right,right$,rmdir,rnd,rollback,rset,rtrim,rtrim$,savepicture,
second,seek,select,sendkeys,set,setattr,setdataaccessoption,
setdefaultworkspace,sgn,shell,sin,single,sln,space,space$,spc,sqr,static,
step,stop,str,str$,strcomp,string,string,string$,sub,switch,syd,tab,tan,
then,time,time$,timer,timeserial,timevalue,to,trim,trim$,true,type,ubound,
ucase,ucase$,unload,unlock,val,variant,vartype,weekday,wend,while,width,
write,xor,year
property=additem,addnew,append,appendchunk,arrange,circle,clear,clone,
close,cls,createdynaset,createquerydef,createsnapshot,delete,
deletequerydef,drag,edit,enddoc,execute,executesql,fieldsize,findfirst,
findlast,findnext,findprevious,getchunk,getdata,getformat,gettext,hide,
line,linkexecute,linkpoke,linkrequest,linksend,listfields,listindexes,
listparameters,listtables,move,movefirst,movelast,movenext,moveprevious,
newpage,openquerydef,opentable,point,popupmenu,print,printform,pset,
refresh,removeitem,rollback,scale,setdata,setfocus,settext,show,textheight,
textwidth,update,updatecontrols,updaterecord,zorder
[IDs-VB]
string="
comment=',REM
[URLs]
tektipsdelphi=Delphi,[URL unfurl="true"]http://www.tek-tips.com/submitpost.cfm?pid=102[/URL]
tektipsvb56=VB,[URL unfurl="true"]http://www.tek-tips.com/submitpost.cfm?pid=222[/URL]
tektipsvba=VB,[URL unfurl="true"]http://www.tek-tips.com/submitpost.cfm?pid=707[/URL]
[Options]
Logging=c:\temp.txtPrivate Sub Form_Click()
Static i As Integer
If i < 4 Then
Unload txtMoney(i + 2)
i = i + 1
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
Const SPACING = 10
With txtMoney(0)
.Move 0, 0
.Text = "Text Box in control array #0."
.Width = TextWidth(" TextBox in control array #0. ")
End With
With txtMoney(1)
.Move 0, txtMoney(0).Top + txtMoney(0).Height + SPACING
.Text = "Text Box in control array #1."
.Width = TextWidth(" TextBox in control array #1. ")
End With
For i = 2 To 5
Load txtMoney(i)
txtMoney(i).Text = "Text Box in control array #" & Str$(i)
txtMoney(i).Move 0, txtMoney(i - 1).Top + txtMoney(i - 1).Height + SPACING
txtMoney(i).Visible = True
Next
End Sub
'Private Sub txtMoney_Change(Index As Integer)
' If Index = 0 Then
' MsgBox "You typed in text box[0]."
' Else
' MsgBox "You typed in text box[1]."
' End If
'
' MsgBox "You typed in text box " & Index
'End Sub