[BaseD]

in1975, может и не стоит играться с барами, сделать например отдельной надписью:

Код

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,196,84)
{
 Width=420
 Height=462
}
Add(ButtonRush,2841574,273,189)
{
 Left=15
 Top=6
 Width=171
 Height=28
 Font=[Tahoma,10,1,0,204]
 Cursor=2
 WinStyle=2
 Hint="Сервер HFS"
 ColorFrom=-16777203
 ColorText=-16777211
 BorderColor=8388608
 ColorShadow=-16777193
 ShadowOffset=1
 GradientStyle=0
 ColorFromOver=15780518
 ColorToOver=-16777214
 GradientStyleOver=0
 ColorShadowDis=8421504
 Caption="тест"
 HAlign=0
 Glyphs=[]
 Point(onMouseEnter)
 MakeTrans(Caption)
 link(onClick,5186560:doStrCat,[])
}
Add(WinExec,15302783,399,189)
{
 RunEvent=1
 Point(onConsoleResult)
 Point(onConsoleError)
 Point(doConsoleExec)
 Point(doConsoleTerminate)
 link(onConsoleResult,3754267:doAdd,[])
 link(onConsoleError,6737056:doSplit,[(450,209)(450,251)(504,251)(504,244)])
}
Add(StrCat,5186560,336,189)
{
 Str2="wg.bat"
 link(onStrCat,15302783:doConsoleExec,[(384,195)(384,209)])
 link(Str1,13239321:CurrentDir,[])
}
Add(Dir,13239321,336,133)
{
}
Add(RichEdit,3754267,637,203)
{
 Left=11
 Top=46
 Width=365
 Height=347
 Color=15780518
 Font=[Times New Roman,9,1,0,204]
 KeyPreview=1
 WinStyle=1
 Name="Консоль"
 ModeSp=3
 Strings=#34:           Make pkg han tool v.3.0|15:               |41: Created mod by In1975 for site pspx.ru  |41: Modded by & rupor & ErikPshat & BaseD   |41: _______________________________________ |1: |1: |
 ScrollBars=2
 ReadOnly=0
 CanDragOle=1
 InsertCRLF=1
 ParseLinks=0
}
Add(Button,5459886,273,252)
{
 Left=210
 Top=5
 Width=145
 Height=30
 Caption="закрыть"
 link(onClick,15302783:doConsoleTerminate,[(352,258)(352,216)])
}
Add(ConvertorEx,690554,399,301)
{
 Mode=1
 link(onResult,15816393:doEvent1,[])
}
Add(MultiStrData,6737056,525,238)
{
 Char="%"
 Count=3
 Direct=1
 link(onPart1,557625:doText,[(569,244)(569,307)(545,307)(545,370)])
 link(onPart2,3194627:doSplit,[])
}
Add(MultiStrData,3194627,588,245)
{
 Char=" "
 Direct=1
 link(onPart1,690554:doConvert,[(637,251)(637,276)(387,276)(387,307)])
}
Add(GProgressBar,12474865,490,301)
{
 Top=404
 Width=334
 Color=-16777214
 LightProgress=15780518
}
Add(Label,557625,574,364)
{
 Left=335
 Top=405
 Width=60
 Height=20
 Caption=""
}
Add(Label,6281968,483,364)
{
 Left=135
 Top=405
 Width=110
 Height=25
 Color=-16777214
 Caption=""
 AutoSize=1
}
Add(Hub,15816393,455,301)
{
 link(onEvent1,12474865:doPosition,[])
 link(onEvent2,3504874:doStrCat,[(481,314)(481,342)(422,342)(422,370)])
}
Add(StrCat,3504874,434,364)
{
 Str2="%"
 link(onStrCat,6281968:doText,[])
}

P.S еще меня напрягает убивать wget.exe, надо с этим что то придумать.