Вверх ↑
Ответов: 45
Рейтинг: -2
#1: 2009-03-26 15:44:54 ЛС | профиль | цитата
так я тут схемку наскрябал на днях кто может помочь до ума довести ?
нужно что бы файлы копировал вопщем как InnoSetup ))))

#sha
Make(delphi)
ver(4.01 build 175)
Add(MainForm,3595639,70,119)
{
Left=400
Top=300
Width=504
Height=386
Caption="Установка XXXXXXXXXXXXXXXX"
BorderStyle=3
Icon=[ZIP360E000078DAED96BF4B6C4714C7CFE619662142B4B112622CC2B37B3295551E6EFB8487205869AA219D010B8304B29555082101612A5F9184A44863A95B2C09BCE239B53611B2C8E3C1DD0977DD6617F7E1C9F7CCCC5DEFAE6BFE02CFE5B3F79EF33DF3E39E19E74A54A10F68668670AFD2971F127D46440B0BD1FFAD4AF43D624F119B9138C5B8D8F30A4DB47AFAA9A7877A729ACD2635FF6ED2AF6F3A34353545D56A95A6A7A769767696E6E6E6687E7E9E16171769696989363636686D6D8D56575769656585F89B3AF1CB97744E3F91F34CF9F96B7AF7EE9CFEF8FD07D218C5000B9C0C8980060658E000A7240D0CB0C0014E0D3530C002073875A681011638C0E2337CE0380E2697011638C069021A186081039C26A581011638C069A21A186081039C26AF81011638C012C30B196081039C5E50662297050E707A690D0CB0C0014E85D0C0000B5C2A8C060658E000A762696081039C8AA781058E652C878B43112D0A2A970BAB82CA681B66E570678AC5D6C0481EEE0E309E35DA1A690F1CE0B4201A98303EE280D322699638F2717780D3C2E954011BE6E4C2026B2CA6011638C06971353046E68138E0B01110070658E000A74DA081011638C06963686058E682386089A55590B796CDA435560458E00003D9501A188C6D717780C3A6431C186081039C369E060658E0004B8C11C3981677C7D207D651D685658DC5179DE917FA94B6B7B7696F6F8F0E0E0EE8F0F090CECECEE8F8F8982E2E2EE8F2F292AEAEAE28CB32BABEBEA67EBF4F3CE8D0AB573FE3CFB84E61DBE387D30327876360D4BC02CCEAF666E87BA558DD2855F215DD0C06251FCF85CEE4076A70CB77BEF203F8B82B15FDA4F8309687EF9329191ADDC908623E6479E577F6D797D75EB08F3DB2DF792B81E84BCACE5B09241F919D7D0994FC1762777E279AA7EF3EC151F73150252AF14C2C28CEC87F4007BC2FF1349DB1CF4BE76C7DEAF19C7D3C671FCFD9C773F6C173165DD46A357AC0B2ECF4B4F5E7E6F248866F7023F6932915F56747A5040FB94138E1B21C27E7694BE4A352426CDFF3D4CE73D145EE766BE3ED7B590EC300CFA0764B0945FBAC11128820E2A176AF7DA3818C742E97F5A2FD8F6212C1F9EBFDFDF6DDEED1D1E62651DEE3CE48FF5247B4EF425DDFDD3DC97B8A3B9D31DD2341E4AF5B27B92494DF2FB6EF659BEBEBBBADD6093AE8A95AF8CE947458169A9F4807A1B9CAFD884EED76D46BB5F8D552633AF3BFB0769B0BF3B11AF8D605DD8F59E83F138BFA3DCB3F8ADD7348A0E2F3A8463F93B0D043CA1D9A1A7EF6E210D02B25BBD35382E883FDFD65183E3565BD283257FEDA2A1246F4F4965CD91A268CEAA917B42F1226EB5BC384C9FAFE30E1017D98F0901E12F09A93F5C9F5295761427D87D61E331C03B78A9BFD0A37BF226E2ED0B74D0A7C1EF92251F8F40454008D53977F33401FE0FF8FCA2D60A1FF3FBCA727FF014B5D4FEF]
TaskBar=1
Position=1
}
Add(StyleXP,14224395,63,77)
{
}
Add(Hub,6362703,560,126)
{
InCount=5
OutCount=1
link(onEvent1,1254244:doEvent1,[(579,132)(579,174)(142,174)(142,223)])
}
Add(ChildPanel,7461583,161,126)
{
link(onEvent1,6362703:doEvent1,[])
link(onEvent2,9286429:doWork1,[])
}
BEGIN_SDK
Add(EditMulti,15414441,10,10)
{
EventCount=3
Width=139
Height=151
}
Add(Panel,13612531,21,21)
{
Top=310
Width=498
Height=46
BevelInner=0
BevelOuter=2
Point(doColor)
}
Add(Button,8540068,63,20)
{
Left=310
Top=10
Width=80
Height=25
Caption="Отмена"
link(onClick,15414441:onEvent1,[(122,26)(122,16)])
}
Add(Button,11801891,63,62)
{
Left=400
Top=10
Width=80
Height=25
Caption="Далее >"
Point(doVisible)
link(onClick,15414441:onEvent2,[(122,68)(122,23)])
}
END_SDK
Add(ChildPanel,12254000,273,133)
{
link(onEvent1,6362703:doEvent2,[])
link(onEvent2,3030758:doWork1,[(345,146)(345,181)])
}
BEGIN_SDK
Add(EditMulti,5258339,21,21)
{
EventCount=3
WorkCount=2
VarCount=1
Width=608
Height=501
link(doWork1,13574451:doBringToFront,[(49,27)(49,76)])
link(Var1,8205894:EditText,[(27,406)(422,406)])
}
Add(Panel,13574451,77,49)
{
Left=1
Width=498
Height=355
Visible=1
BevelInner=0
Point(doVisible)
Point(doSendToBack)
Point(doBringToFront)
}
Add(Label,7342293,49,189)
{
Left=85
Top=80
Width=338
Height=17
Caption="Программа установит XXXXXXXXXXXXXXXX в следующую папку."
}
Add(Label,8863593,47,188)
{
Left=50
Top=115
Width=408
Height=17
Caption="Нажмите "Далее" что приступить к установки.Если вы хотите выбрать другую "
}
Add(ChildPanel,3586203,280,153)
{
link(onEvent1,5258339:onEvent1,[(383,159)(383,27)])
link(onEvent2,13574451:doSendToBack,[(337,166)(337,118)(65,118)(65,69)])
link(onEvent3,5258339:onEvent2,[(470,173)(470,34)])
}
BEGIN_SDK
Add(EditMulti,15414441,10,10)
{
EventCount=3
Width=153
Height=172
}
Add(Panel,13612531,21,21)
{
Top=310
Width=497
Height=46
BevelInner=0
BevelOuter=2
Point(doColor)
}
Add(Button,8540068,63,20)
{
Left=310
Top=10
Width=80
Height=25
Caption="Отмена"
link(onClick,15414441:onEvent1,[(122,26)(122,16)])
}
Add(Button,16338514,63,69)
{
Left=220
Top=10
Width=80
Height=25
Caption="< Назад"
Point(doEnabled)
link(onClick,15414441:onEvent2,[(129,75)(129,23)])
}
Add(Button,11801891,77,111)
{
Left=400
Top=10
Width=80
Height=25
Caption="Установить"
Point(doVisible)
link(onClick,15414441:onEvent3,[(136,117)(136,30)])
}
END_SDK
Add(Label,4161267,49,189)
{
Left=50
Top=130
Width=129
Height=17
Caption="папку, нажмите "Обзор""
}
Add(ChildPanel,59783,161,42)
{
}
BEGIN_SDK
Add(EditMulti,14466465,21,21)
{
}
Add(Panel,4417273,35,105)
{
Left=-1
Width=500
Height=55
BevelInner=0
BevelOuter=1
}
Add(Image,218829,154,84)
{
Width=500
Height=55
}
END_SDK
Add(CheckBox,16397587,98,343)
{
Left=50
Top=185
Width=195
Checked=0
Caption="Добавить ярлык на рабочий стол"
}
Add(CheckBox,14121632,148,346)
{
Left=50
Top=210
Width=310
Checked=0
Caption="Установить дополнительное программное обеспечение"
}
Add(Label,7910374,49,189)
{
Left=50
Top=250
Width=142
Height=17
Caption="Требуется места на диске:"
}
Add(Label,8467930,52,190)
{
Left=50
Top=270
Width=141
Height=17
Caption="Доступно места на диске: "
}
Add(Label,1048958,147,294)
{
Left=200
Top=270
Width=28
Height=17
Caption="none"
}
Add(Label,15258922,98,294)
{
Left=200
Top=250
Width=28
Height=17
Caption="none"
}
Add(ComboBox,8205894,402,224)
{
Left=50
Top=150
Width=340
Height=21
Point(EditText)
}
Add(Button,6475112,266,245)
{
Left=395
Top=148
Width=80
Height=25
Caption="Обзор"
link(onClick,4104339:doBrowse,[])
}
Add(Browse,4104339,329,245)
{
Title="Выберите папку для извлечения"
link(onBrowse,8205894:doText,[])
}
END_SDK
Add(ChildPanel,3030758,371,175)
{
link(onEvent1,6362703:doEvent3,[(489,181)(489,146)])
}
BEGIN_SDK
Pos(34,3)
Add(EditMulti,5258339,-13,18)
{
EventCount=3
WorkCount=3
DataCount=2
VarCount=1
Width=650
Height=599
link(doWork1,10269048:doEvent1,[(11,24)(11,94)])
link(doWork2,3081929:doPosition,[(25,31)(25,129)])
link(doWork3,3081929:doMax,[(25,38)(25,136)])
}
Add(Panel,13574451,43,46)
{
Left=1
Width=498
Height=355
Visible=1
BevelInner=0
Point(doVisible)
Point(doSendToBack)
Point(doBringToFront)
}
Add(ChildPanel,9745176,134,108)
{
link(onEvent1,5258339:onEvent1,[(290,114)(290,24)])
}
BEGIN_SDK
Add(EditMulti,15414441,10,10)
{
EventCount=1
Width=139
Height=151
}
Add(Panel,13612531,21,21)
{
Top=310
Width=497
Height=46
BevelInner=0
BevelOuter=2
Point(doColor)
}
Add(Button,8540068,63,20)
{
Left=380
Top=7
Width=100
Height=30
Caption="Отмена"
link(onClick,15414441:onEvent1,[(122,26)(122,16)])
}
END_SDK
Add(Label,7342293,141,151)
{
Left=75
Top=80
Width=365
Height=17
Caption="Пожалуйста, подождите завершения установки XXXXXXXXXXXXXXXX."
}
Add(ChildPanel,10414663,99,46)
{
}
BEGIN_SDK
Add(EditMulti,14466465,21,21)
{
}
Add(Panel,4417273,35,105)
{
Left=-1
Width=500
Height=55
BevelInner=0
BevelOuter=1
}
Add(Image,218829,154,84)
{
Width=500
Height=55
}
END_SDK
Add(ProgressBar,3081929,71,123)
{
Left=40
Top=165
Width=410
Height=25
ProgressColor=15780518
Point(doMax)
}
Add(Label,12540725,8,144)
{
Left=40
Top=145
Width=68
Height=17
Caption="Установка..."
}
Add(Hub,10269048,36,88)
{
OutCount=3
link(onEvent1,13574451:doBringToFront,[(62,94)(62,84)(31,84)(31,73)])
link(onEvent2,5258339:onEvent2,[(344,101)(344,31)])
}
END_SDK
Add(ChildPanel,6646726,476,161)
{
link(onEvent1,2325382:doEvent2,[(520,167)(520,160)(30,160)(30,153)])
}
BEGIN_SDK
Add(EditMulti,5258339,21,21)
{
EventCount=1
WorkCount=1
Width=608
Height=501
link(doWork1,13574451:doBringToFront,[(49,27)(49,76)])
}
Add(Panel,13574451,77,49)
{
Left=1
Width=498
Height=355
Visible=1
BevelInner=0
Point(doVisible)
Point(doSendToBack)
Point(doBringToFront)
}
Add(Label,7342293,49,112)
{
Left=140
Top=130
Width=221
Height=17
Caption="Установка STALKER Clear Sky завершена."
}
Add(Label,8863593,47,111)
{
Left=105
Top=165
Width=284
Height=17
Caption="Нажмите "Выход" что выйти из программы установки."
}
Add(ChildPanel,2950900,161,97)
{
link(onEvent1,5258339:onEvent1,[(383,103)(383,27)])
}
BEGIN_SDK
Add(EditMulti,15414441,10,10)
{
EventCount=1
Width=153
Height=172
}
Add(Panel,13612531,21,21)
{
Top=310
Width=497
Height=46
BevelInner=0
BevelOuter=2
Point(doColor)
}
Add(Button,11801891,77,111)
{
Left=400
Top=10
Width=80
Height=25
Caption="Выход"
Point(doVisible)
link(onClick,15414441:onEvent1,[(136,117)(136,16)])
}
END_SDK
Add(ChildPanel,12980576,161,42)
{
}
BEGIN_SDK
Add(EditMulti,14466465,21,21)
{
}
Add(Panel,4417273,35,105)
{
Left=-1
Width=500
Height=55
BevelInner=0
BevelOuter=1
}
Add(Image,218829,154,84)
{
Width=500
Height=55
}
END_SDK
END_SDK
Add(ChildPanel,13008579,161,84)
{
}
BEGIN_SDK
Add(EditMulti,5258339,21,21)
{
Width=419
Height=312
}
Add(Panel,13574451,63,105)
{
Left=171
Width=332
Height=310
Color=16777215
BevelInner=0
}
Add(Label,5883143,245,196)
{
Left=5
Top=35
Width=267
Height=23
Color=16777215
Font=[Arial,12,1,0,204]
Caption="Установка XXXXXXXXXXXXXXXX"
}
Add(Label,7342293,189,175)
{
Left=5
Top=85
Width=319
Height=17
Color=16777215
Caption="Программа установит XXXXXXXXXXXXXX на ваш компьютер."
}
Add(Label,13300509,126,168)
{
Left=5
Top=115
Width=256
Height=17
Color=16777215
Caption="Рекомендуется закрыть все прочие приложения "
}
Add(Label,4885211,63,161)
{
Left=5
Top=155
Width=306
Height=17
Color=16777215
Caption="Нажмите "Далее" чтобы продолжить или "Отмена", чтобы "
}
Add(Label,1056739,28,140)
{
Left=5
Top=130
Width=207
Height=17
Color=16777215
Caption="перед тем, как приступить к установки."
}
Add(Label,13402539,56,196)
{
Left=5
Top=170
Width=170
Height=17
Color=16777215
Caption="выйти из программы установки."
}
END_SDK
Add(ChildPanel,12241263,161,42)
{
}
BEGIN_SDK
Add(EditMulti,14466465,21,21)
{
}
Add(Panel,4417273,35,105)
{
Left=-1
Width=172
Height=310
BevelInner=0
BevelOuter=1
}
Add(Image,8077002,133,105)
{
Width=172
Height=320
}
END_SDK
Add(ChildForm,12050998,182,217)
{
link(onEvent1,2325382:doEvent1,[(226,223)(226,185)(37,185)(37,146)])
}
BEGIN_SDK
Add(EditMulti,8497311,21,21)
{
EventCount=1
WorkCount=1
Width=587
Height=410
link(doWork1,2941370:doVisible,[(31,27)(31,139)])
}
Add(MainForm,2941370,42,105)
{
Left=35
Top=105
Width=295
Height=139
Visible=1
Caption="Выход ?"
BorderStyle=3
Position=1
Point(doVisible)
}
Add(Button,1507373,196,182)
{
Left=60
Top=60
Width=80
Height=25
Caption="OK"
link(onClick,8497311:onEvent1,[(418,188)(418,27)])
}
Add(Button,269484,196,217)
{
Left=155
Top=60
Width=80
Height=25
Caption="Отмена"
link(onClick,2941370:doClose,[(240,223)(240,177)(23,177)(23,132)])
}
Add(Label,193470,196,63)
{
Left=30
Top=15
Width=229
Height=17
Caption="Установки не завершена,вы хотите выйти ?"
}
END_SDK
Add(Hub,1254244,154,217)
{
InCount=2
OutCount=1
link(onEvent1,12050998:doWork1,[])
}
Add(ChildPanel,9286429,217,133)
{
link(onEvent1,12254000:doWork1,[])
link(onEvent2,6362703:doEvent4,[(405,146)(405,153)])
}
BEGIN_SDK
Add(EditMulti,5258339,21,21)
{
EventCount=2
WorkCount=1
Width=461
Height=501
link(doWork1,13574451:doBringToFront,[(49,27)(49,76)])
}
Add(Panel,13574451,77,49)
{
Left=1
Width=498
Height=355
Visible=1
BevelInner=0
Point(doVisible)
Point(doSendToBack)
Point(doBringToFront)
}
Add(Label,7342293,49,189)
{
Left=145
Top=60
Width=218
Height=17
Caption="Прочитайте Readme перед установкой."
}
Add(ChildPanel,7641681,217,153)
{
link(onEvent1,5258339:onEvent2,[(365,159)(365,34)])
link(onEvent2,13574451:doSendToBack,[(324,166)(324,118)(65,118)(65,69)])
link(onEvent3,5258339:onEvent1,[(365,173)(365,27)])
}
BEGIN_SDK
Add(EditMulti,15414441,10,10)
{
EventCount=3
Width=153
Height=172
}
Add(Panel,13612531,21,21)
{
Top=310
Width=497
Height=46
BevelInner=0
BevelOuter=2
Point(doColor)
}
Add(Button,8540068,63,20)
{
Left=310
Top=10
Width=80
Height=25
Caption="Отмена"
link(onClick,15414441:onEvent1,[(122,26)(122,16)])
}
Add(Button,16338514,63,69)
{
Left=220
Top=10
Width=80
Height=25
Caption="< Назад"
Point(doEnabled)
link(onClick,15414441:onEvent2,[(129,75)(129,23)])
}
Add(Button,11801891,77,111)
{
Left=400
Top=10
Width=80
Height=25
Caption="Далее >"
Point(doVisible)
link(onClick,15414441:onEvent3,[(136,117)(136,30)])
}
END_SDK
Add(ChildPanel,8649315,161,42)
{
}
BEGIN_SDK
Add(EditMulti,14466465,21,21)
{
}
Add(Panel,4417273,35,105)
{
Left=-1
Width=500
Height=55
BevelInner=0
BevelOuter=1
}
Add(Image,218829,154,84)
{
Width=500
Height=55
}
END_SDK
Add(RichEdit,11665892,161,161)
{
Left=10
Top=80
Width=475
Height=230
Strings=#45: Тут будет какая либо информация.|
ReadOnly=0
}
END_SDK
Add(Hub,2325382,42,140)
{
InCount=2
OutCount=1
link(onEvent1,3595639:doClose,[])
}

карма: 1

0