[in1975]

Антивирус еще посмотри

код

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,6737056:doSplit,[(478,216)(478,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=10
 link(onResult,5696450:doCase,[])
}
Add(ProgressBarRush,2204639,574,301)
{
 Top=403
 Width=414
 Align=4
 Color=15780518
 ColorFrom=-16777203
 RoundWidth=2
 RoundHeight=2
}
Add(MultiStrData,6737056,525,238)
{
 Char="%"
 Direct=1
 link(onPart2,3194627:doSplit,[(569,251)(569,244)])
}
Add(MultiStrData,3194627,581,238)
{
 Char=" "
 Direct=1
 link(onPart1,3410567:doValue,[(625,244)(625,276)(233,276)(233,307)])
}
Add(Memory,3410567,315,301)
{
 link(onData,690554:doConvert,[])
}
Add(Case,5696450,462,301)
{
 Value=Real(99)
 link(onNextCase,2204639:doPosition,[])
 link(onTrue,3410567:doClear,[(506,314)(506,302)(303,302)(303,314)])
}