[BaseD]

in1975, вот еще вариант

Код

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,196,84)
{
 Width=487
 Height=462
}
Add(ButtonRush,2841574,273,189)
{
 Left=15
 Top=6
 Width=221
 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,427,189)
{
 RunEvent=1
 Point(onConsoleResult)
 Point(onConsoleError)
 Point(doConsoleExec)
 Point(doConsoleTerminate)
 link(onConsoleResult,3754267:doAdd,[(475,202)(475,132)])
 link(onConsoleError,6737056:doSplit,[])
}
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,518,126)
{
 Left=1
 Top=46
 Width=465
 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=255
 Top=5
 Width=205
 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,511,203)
{
 Char="%"
 Count=3
 Direct=1
 link(onPart1,4253600:doSplit,[(576,209)(576,349)])
 link(onPart2,3194627:doSplit,[])
}
Add(MultiStrData,3194627,588,210)
{
 Char=" "
 Direct=1
 link(onPart1,690554:doConvert,[(637,216)(637,276)(387,276)(387,307)])
}
Add(Hub,15816393,455,301)
{
 link(onEvent1,13778332:doPosPBar,[])
 link(onEvent2,3504874:doStrCat,[(481,314)(481,342)])
}
Add(StrCat,3504874,504,336)
{
 Str2="%"
 link(onStrCat,2688232:doWork3,[])
}
Add(StatusBarEx,13778332,742,287)
{
 SizeGrip=1
 TextAlign=1
 EnablePBar=0
 PanelPBar=0
 VisiblePBar=0
 ColorPBar=-16777203
 Ctl3DPBar=1
 Panels=#13:Прогресс =150|12:Скачано =100|3:=50|13:Скорость =100|3:=70|0:|
 Point(doPosPBar)
 link(Text,2688232:Data,[(748,282)(713,282)(713,373)(678,373)])
}
Add(ChanelToIndex,2688232,672,322)
{
 Count=5
 Point(Data)
 link(onIndex,13778332:doText,[(726,328)(726,293)])
}
Add(MultiStrData,4253600,609,343)
{
 Char="/"
 Direct=1
 link(onPart2,2688232:doWork5,[])
}