[in1975]

BaseD, твой вариант тоже виснет (поскольку переполнение в надписях)

вот так вроде норм:

код

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,196,84)
{
 Width=430
 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,14966444:doSafeMode,[(450,216)(450,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,462,329)
{
 Mode=1
 link(onResult,1484116:doPosition,[(510,335)(510,321)])
}
Add(MultiStrData,6737056,525,238)
{
 Char="%"
 Direct=1
 link(onPart1,15476169:doValue,[(583,244)(583,349)])
 link(onPart2,3194627:doSplit,[(569,251)(569,244)])
}
Add(MultiStrData,3194627,581,238)
{
 Char=" "
 Direct=1
 link(onPart1,15816393:doEvent1,[(625,244)(625,296)(310,296)(310,349)])
}
Add(Timer,14989380,364,399)
{
 Enable=1
 link(onTimer,15252420:doEvent1,[])
}
Add(ProgressBarRush,1484116,525,315)
{
 Left=550
 Top=335
 Align=4
}
Add(Memory,11475825,406,329)
{
 link(onData,690554:doConvert,[])
}
Add(Hub,15816393,322,343)
{
 link(onEvent1,11475825:doValue,[(371,349)(371,335)])
 link(onEvent2,5494632:doCase,[(348,356)(348,377)(303,377)(303,405)])
}
Add(Label,557625,665,343)
{
 Left=15
 Top=340
 Width=90
 Height=35
 Color=15780518
 Caption=""
 AutoSize=1
}
Add(Memory,15476169,609,343)
{
 link(onData,557625:doText,[])
}
Add(Case,5494632,308,399)
{
 Value=String(0)
 link(onTrue,14989380:doTimer,[(352,412)(352,405)])
}
Add(Hub,15252420,413,399)
{
 link(onEvent1,11475825:doClear,[(439,405)(439,370)(394,370)(394,342)])
 link(onEvent2,15476169:doClear,[(518,412)(518,356)])
}
Add(SafeMode,14966444,469,238)
{
 link(onSafeMode,6737056:doSplit,[])
}

Wget висит только если вылетела прога - если отработала штатно, она закрывается.

Надо подумать как это пристроить к основному модулю.. Через switch ? Потому что у нас 2 статусбара