Скрипты Inno Setup. Помощь и советы [часть 8]

Ответить
 • Просмотры: 42
Аватара пользователя
Farser21

Re: Скрипты Inno Setup. Помощь и советы [часть 8]

Сообщение Farser21 »

El Sanchez, благодарю за помощь.
Вернуться к началу
Аватара пользователя
Nordek

Re: Скрипты Inno Setup. Помощь и советы [часть 8]

Сообщение Nordek »

Max-RZD,

Смотрите что у вас получается:

В скрипте:

klrFr_Hopper-0001_e.wag

В папке:

klrFr_Hopper-0001e.wag

Надеюсь заметите разницу.

Если конечный файл на выходе имеет имя "klrFr_Hopper-0001e.wag", то на вход в инсталлятор должно быть таким же.

Скрипт к ранее прикреплённым файлам:

[spoiler]Т.е скопируйте всё содержимое:

Код:
[/spoiler]

Код: Выделить всё

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{BD9A852C-C404-4988-92C3-8DA3D57B29B5}
AppName=TrainSim.Ru - MSTS Addon
AppVerName=RZD (Russian Railways) hopper cars #0001, 0002, 0003, 0004 (version 1.0)
;AppVerName=TrainSim.Ru - MSTS Addon RZD (Russian Railways) hopper cars #0001, 0002, 0003, 0004 (version 1.0)
AppPublisher=rainsim.ru
AppPublisherURL=http://trainsim.ru
AppSupportURL=http://trainsim.ru
AppUpdatesURL=http://trainsim.ru
DefaultDirName={reg:HKLM\Software\Microsoft\Microsoft Games\Train Simulator\1.0,Path}
DefaultGroupName=TrainSim.Ru - MSTS Addon
DisableProgramGroupPage=yes
LicenseFile=Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\License.txt
InfoBeforeFile=Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-pack_readme.txt
OutputDir=E:\готово
OutputBaseFilename=klrFr_Hopper-0001-0002-0003-0004_v1_0
Compression=lzma
SolidCompression=yes
WizardImageFile=c.bmp
WizardSmallImageFile=train.bmp
Uninstallable=false
DirExistsWarning=no
[Languages]
Name: english; MessagesFile: compiler:Default.isl
[Types]
Name: full; Description: Стандартная
Name: custom; Description: Выборочная
[Components]
Name: klrFr_Hopper_0001; Description: klrFr_Hopper-0001; Types: full custom
Name: klrFr_Hopper_0002; Description: klrFr_Hopper-0002; Types: full
Name: klrFr_Hopper_0003; Description: klrFr_Hopper-0003; Types: full
Name: klrFr_Hopper_0004; Description: klrFr_Hopper-0004; Types: full
[Files]
; klrFr_Hopper-0001
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\License.txt; DestDir: {app}\klrFr_Hopper; DestName: License.txt; Flags: ignoreversion; Components: klrFr_Hopper_0001
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0001e.wag; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0001
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0001f.wag; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0001
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0001.ace; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0001
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0001e.jpg; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0001
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0001f.jpg; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0001
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0001.s; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0001
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0001.sd; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0001
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\SDW_Hopper.ace; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0001
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\SDW_Hopper.s; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0001
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-pack_readme.txt; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0001
; klrFr_Hopper-0002
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\License.txt; DestDir: {app}\klrFr_Hopper; DestName: License.txt; Flags: ignoreversion; Components: klrFr_Hopper_0002
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0002e.wag; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0002
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0002f.wag; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0002
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0002.ace; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0002
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0002e.jpg; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0002
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0002f.jpg; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0002
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0002.s; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0002
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0002.sd; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0002
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\SDW_Hopper.ace; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0002
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\SDW_Hopper.s; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0002
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-pack_readme.txt; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0002
; klrFr_Hopper-0003
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\License.txt; DestDir: {app}\klrFr_Hopper; DestName: License.txt; Flags: ignoreversion; Components: klrFr_Hopper_0003
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0003e.wag; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0003
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0003f.wag; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0003
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0003.ace; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0003
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0003e.jpg; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0003
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0003f.jpg; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0003
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0003.s; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0003
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0003.sd; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0003
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\SDW_Hopper.ace; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0003
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\SDW_Hopper.s; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0003
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-pack_readme.txt; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0003
; klrFr_Hopper-0004
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\License.txt; DestDir: {app}\klrFr_Hopper; DestName: License.txt; Flags: ignoreversion; Components: klrFr_Hopper_0004
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0004e.wag; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0004
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0004f.wag; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0004
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0004.ace; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0004
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0004e.jpg; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0004
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0004f.jpg; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0004
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0004.s; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0004
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-0004.sd; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0004
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\SDW_Hopper.ace; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0004
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\SDW_Hopper.s; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0004
Source: Games Laboratory\Microsoft Train Simulator\TRAINS\TRAINSET\klrFr_Hopper\klrFr_Hopper-pack_readme.txt; DestDir: {app}\klrFr_Hopper; Flags: ignoreversion; Components: klrFr_Hopper_0004
;
;

Замените в Script.iss.

Отработает без препятствий.

На заметку: Смотрите отмеченное красным: \Trains\Trainset\klrFr_Hopper\License.txt

Обратный слеш вначале - означает корень диска.
Вернуться к началу
Аватара пользователя
Cocenalyanas

Re: Скрипты Inno Setup. Помощь и советы [часть 8]

Сообщение Cocenalyanas »

Код:

Код: Выделить всё

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "ExeName.exe"
[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{7B21D215-88A3-4374-9530-2DCCA0E58863}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
[Files]
Source: "C:\Test\ExeName.exe"; DestDir: "{app}"; Flags: ignoreversion  // Вот про это имею ввиду
Source: "C:\Test\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
[Icons]
Name: "{commonprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent

Обязательна ли строка где указан путь к exe-файлу ?
Вернуться к началу
Аватара пользователя
Nordek

Re: Скрипты Inno Setup. Помощь и советы [часть 8]

Сообщение Nordek »

Цитата Kashtan007:



Как сделать, чтобы после деинсталяции компонентов, по заданному пути создавалась папка?
Скрипты Inno Setup. Помощь и советы [часть 8]






Код:

Код: Выделить всё

Procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
 if CurUninstallStep = usDone then
 CreateDir(ExpandConstant('{app}\New folder');
end;
Вернуться к началу
Аватара пользователя
dimantv_wot@vk

Re: Скрипты Inno Setup. Помощь и советы [часть 8]

Сообщение dimantv_wot@vk »

Nordek, Попробую по другому
Вернуться к началу
Аватара пользователя
vadjliss

Re: Скрипты Inno Setup. Помощь и советы [часть 8]

Сообщение vadjliss »

парни как сделать что бы с начало установился ориг. инсталлятор , а потом в эту папку закинуть доп. файлы без подтверждения на замену
Вернуться к началу
Аватара пользователя
vint56

Re: Скрипты Inno Setup. Помощь и советы [часть 8]

Сообщение vint56 »

dimantv_wot@vk,

procedure ShowSplashScreen(p1:HWND;p2:Ansistring;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';
Вернуться к началу
Аватара пользователя
Banan330

Re: Скрипты Inno Setup. Помощь и советы [часть 8]

Сообщение Banan330 »

Хрень,надо так

Скрытый текст

[spoiler][Files]

Source: {#MyAppSource}\*.*; DestDir: {#OutputDir}\Vasya

Source: {#MyAppSource}\*.*; DestDir: {#OutputDir}\Masha

[Run]

Filename: "{cmd}"; Parameters: "/c if /i ""%computername%"" == ""123"" (xcopy /e /y ""{#OutputDir}\Vasya\*.txt"" ""{#MyAppName}\Vasya\"" )";

Filename: "{cmd}"; Parameters: "/c if /i ""%computername%"" == ""123"" (xcopy /e /y ""{#OutputDir}\Masha\*.txt"" ""{#MyAppName}\Masha\"" )";[/spoiler]
Вернуться к началу
Аватара пользователя
doctor_allcome

Re: Скрипты Inno Setup. Помощь и советы [часть 8]

Сообщение doctor_allcome »

Цитата Okta_333:



Скажите пожалуйста, а какие вообще цвета поддерживает Inno Setup? А то ставлю синий, а отображается жёлтый.
Скрипты Inno Setup. Помощь и советы [часть 8]




Okta_333, Вот немножко... Изображение





Код:

Код: Выделить всё

 clScrollBar           = $80000000;
  clBackground          = $80000001;
  clActiveCaption       = $80000002;
  clInactiveCaption     = $80000003;
  clMenu                = $80000004;
  clWindow              = $80000005;
  clWindowFrame         = $80000006;
  clMenuText            = $80000007;
  clWindowText          = $80000008;
  clCaptionText         = $80000009;
  clActiveBorder        = $8000000A;
  clInactiveBorder      = $8000000B;
  clAppWorkSpace        = $8000000C;
  clHighlight           = $8000000D;
  clHighlightText       = $8000000E;
  clBtnFace             = $8000000F;
  clBtnShadow           = $80000010;
  clGrayText            = $80000011;
  clBtnText             = $80000012;
  clInactiveCaptionText = $80000013;
  clBtnHighlight        = $80000014;
  cl3DDkShadow          = $80000015;
  cl3DLight             = $80000016;
  clInfoText            = $80000017;
  clInfoBk              = $80000018;
  clHotLight            = $8000001A;
  clBlack   = $000000;
  clMaroon  = $000080;
  clGreen   = $008000;
  clOlive   = $008080;
  clNavy    = $800000;
  clPurple  = $800080;
  clTeal    = $808000;
  clGray    = $808080;
  clSilver  = $C0C0C0;
  clRed     = $0000FF;
  clLime    = $00FF00;
  clYellow  = $00FFFF;
  clBlue    = $FF0000;
  clFuchsia = $FF00FF;
  clAqua    = $FFFF00;
  clLtGray  = $C0C0C0;
  clDkGray  = $808080;
  clWhite   = $FFFFFF;
  clNone    = $1FFFFFFF;
  clDefault = $20000000;


Цитата diman_21Ru:



Всем привет в чем может быть проблема выходит ошибка radio item cannot have disabled child items
Скрипты Inno Setup. Помощь и советы [часть 8]




diman_21Ru, Телепаты в отпуске.Изображение
Вернуться к началу
Аватара пользователя
gurulea93

Re: Скрипты Inno Setup. Помощь и советы [часть 8]

Сообщение gurulea93 »

Привет можыте памагати

как правилина писати код в секции Exec

Код:

Код: Выделить всё

procedure CurStepChanged(CurStep: TSetupStep);
begin
  If NewCheckBox1.Checked then
begin
Exec('{sys}\net.exe, user 1csupport {code:GetUser|Password1}', '/add, /fullname:""1csupport"", /comment:""1csupport"", /active:yes, /expires:never, /passwordchg:no'), '',;
end;
end;

Вот веси код

Скрытый текст

[spoiler]

Код: Выделить всё



[Setup]

AppName=My Program

AppVersion=1.5

DefaultDirName={pf}\My Program

DisableProgramGroupPage=yes

UninstallDisplayIcon={app}\MyProg.exe

OutputDir=Output

 
 
 Код: [url=#][/url][/spoiler]
 [code]{ RedesignWizardFormBegin } // Don't remove this line!
// Don't modify this section. It is generated automatically.
var
  authentication: TWizardPage;
  PasswordEdit1: TPasswordEdit;
  PasswordEdit2: TPasswordEdit;
  PasswordEdit3: TPasswordEdit;
  PasswordEdit4: TPasswordEdit;
  PasswordEdit5: TPasswordEdit;
  NewCheckBox1: TNewCheckBox;
  NewCheckBox2: TNewCheckBox;
  NewCheckBox3: TNewCheckBox;
  NewCheckBox4: TNewCheckBox;
  NewCheckBox5: TNewCheckBox;
function _NextButtonClick(Sender: TWizardPage): Boolean; forward;
procedure RedesignWizardForm;
begin
  { Creates custom wizard page }
  authentication := CreateCustomPage(wpSelectDir, 'ISCustomPage1_Caption', 'ISCustomPage1_Description');
  { authentication }
  with authentication.Surface do
  begin
    authentication.OnNextButtonClick := @_NextButtonClick;
  end;
  { PasswordEdit1 }
  PasswordEdit1 := TPasswordEdit.Create(WizardForm);
  with PasswordEdit1 do
  begin
    Parent := authentication.Surface;
    Left := ScaleX(240);
    Top := ScaleY(24);
    Width := ScaleX(121);
    Height := ScaleY(21);
    Text := '';
  end;
  { PasswordEdit2 }
  PasswordEdit2 := TPasswordEdit.Create(WizardForm);
  with PasswordEdit2 do
  begin
    Parent := authentication.Surface;
    Left := ScaleX(240);
    Top := ScaleY(64);
    Width := ScaleX(121);
    Height := ScaleY(21);
    Text := '';
  end;
  { PasswordEdit3 }
  PasswordEdit3 := TPasswordEdit.Create(WizardForm);
  with PasswordEdit3 do
  begin
    Parent := authentication.Surface;
    Left := ScaleX(240);
    Top := ScaleY(104);
    Width := ScaleX(121);
    Height := ScaleY(21);
    Text := '';
  end;
  { PasswordEdit4 }
  PasswordEdit4 := TPasswordEdit.Create(WizardForm);
  with PasswordEdit4 do
  begin
    Parent := authentication.Surface;
    Left := ScaleX(240);
    Top := ScaleY(148);
    Width := ScaleX(121);
    Height := ScaleY(21);
    Text := '';
  end;
  { PasswordEdit5 }
  PasswordEdit5 := TPasswordEdit.Create(WizardForm);
  with PasswordEdit5 do
  begin
    Parent := authentication.Surface;
    Left := ScaleX(240);
    Top := ScaleY(192);
    Width := ScaleX(121);
    Height := ScaleY(21);
    Text := '';
  end;
  { NewCheckBox1 }
  NewCheckBox1 := TNewCheckBox.Create(WizardForm);
  with NewCheckBox1 do
  begin
    Parent := authentication.Surface;
    Left := ScaleX(32);
    Top := ScaleY(24);
    Width := ScaleX(193);
    Height := ScaleY(17);
    Caption := '1csupport/1csupport2/1csupport3';
  end;
  { NewCheckBox2 }
  NewCheckBox2 := TNewCheckBox.Create(WizardForm);
  with NewCheckBox2 do
  begin
    Parent := authentication.Surface;
    Left := ScaleX(32);
    Top := ScaleY(64);
    Width := ScaleX(153);
    Height := ScaleY(17);
    Caption := 'Boss';
  end;
  { NewCheckBox3 }
  NewCheckBox3 := TNewCheckBox.Create(WizardForm);
  with NewCheckBox3 do
  begin
    Parent := authentication.Surface;
    Left := ScaleX(32);
    Top := ScaleY(104);
    Width := ScaleX(97);
    Height := ScaleY(17);
    Caption := 'Contabil1';
  end;
  { NewCheckBox4 }
  NewCheckBox4 := TNewCheckBox.Create(WizardForm);
  with NewCheckBox4 do
  begin
    Parent := authentication.Surface;
    Left := ScaleX(32);
    Top := ScaleY(148);
    Width := ScaleX(177);
    Height := ScaleY(17);
    Caption := 'Contabil2';
  end;
  { NewCheckBox5 }
  NewCheckBox5 := TNewCheckBox.Create(WizardForm);
  with NewCheckBox5 do
  begin
    Parent := authentication.Surface;
    Left := ScaleX(32);
    Top := ScaleY(192);
    Width := ScaleX(97);
    Height := ScaleY(17);
    Caption := 'Contabil3';
  end;
  PasswordEdit1.TabOrder := 0;
  PasswordEdit2.TabOrder := 1;
  PasswordEdit3.TabOrder := 2;
  PasswordEdit4.TabOrder := 3;
  PasswordEdit5.TabOrder := 4;
  NewCheckBox1.TabOrder := 5;
  NewCheckBox2.TabOrder := 6;
  NewCheckBox3.TabOrder := 7;
  NewCheckBox4.TabOrder := 8;
  NewCheckBox5.TabOrder := 9;
{ ReservationBegin }
  // This part is for you. Add your specialized code here.
{ ReservationEnd }
end;
// Don't modify this section. It is generated automatically.
{ RedesignWizardFormEnd } // Don't remove this line!
procedure PasswordEdit1Change(Sender: TObject);
begin
end;
procedure InitializeWizard();
begin
  RedesignWizardForm;
end;
function GetUser(Param: String ): String;
begin
  if Param = 'Password1' then
    Result := PasswordEdit1.Text;
begin
  if Param = 'Password2' then
    Result := PasswordEdit1.Text;
begin
  if Param = 'Password3' then
    Result := PasswordEdit1.Text;
begin
  if Param = 'Password4' then
    Result := PasswordEdit1.Text;
begin
  if Param = 'Password5' then
    Result := PasswordEdit1.Text;
end;
end;
end;
end;
end;
function _NextButtonClick(authentication: TWizardPage): Boolean;
var
  ResultCode: Integer;
begin
  if NewCheckBox1.Checked then begin
    if PasswordEdit1.Text = '' then begin
      MsgBox('Введите пароль 1csupport/1csupport2/1csupport3!', mbError, MB_OK);
      Result := False;
      end;
    end;
  if NewCheckBox2.Checked then begin
    if PasswordEdit2.Text = '' then begin
      MsgBox('Введите пароль Boss!', mbError, MB_OK);
      Result := False;
      end;
    end;
  if NewCheckBox3.Checked then begin
    if PasswordEdit3.Text = '' then begin
      MsgBox('Введите пароль Contabil1!', mbError, MB_OK);
      Result := False;
      end;
    end;
  if NewCheckBox4.Checked then begin
    if PasswordEdit4.Text = '' then begin
      MsgBox('Введите пароль Contabil2!', mbError, MB_OK);
      Result := False;
      end;
    end;
  if NewCheckBox5.Checked then begin
    if PasswordEdit5.Text = '' then begin
      MsgBox('Введите пароль Contabil3!', mbError, MB_OK);
      Result := False;
      end;
    end;
  end;
  function GetCheckBox1(): Boolean;
begin
  if Param = 'Password1' then
    Result := PasswordEdit1.Text;
begin
  if Param = 'Password2' then
    Result := PasswordEdit1.Text;
begin
  if Param = 'Password3' then
    Result := PasswordEdit1.Text;
begin
  if Param = 'Password4' then
    Result := PasswordEdit1.Text;
begin
  if Param = 'Password5' then
    Result := PasswordEdit1.Text;
end;
end;
end;
end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
  If NewCheckBox1.Checked then
begin
Exec('{sys}\net.exe, user 1csupport {code:GetUser|Password1}', '/add, /fullname:""1csupport"", /comment:""1csupport"", /active:yes, /expires:never, /passwordchg:no'), '',;
end;
begin
  If NewCheckBox2.Checked then
begin
Exec('{sys}\net.exe', 'user 1csupport {code:GetUser|Password1}', '/add', '/fullname:""1csupport""', '/comment:""1csupport""', '/active:yes', '/expires:never', '/passwordchg:no');
end;
begin
  If NewCheckBox3.Checked then
begin
Exec('{sys}\net.exe', 'user 1csupport {code:GetUser|Password1}', '/add', '/fullname:""1csupport""', '/comment:""1csupport""', '/active:yes', '/expires:never', '/passwordchg:no');
end;
begin
  If NewCheckBox4.Checked then
begin
Exec('{sys}\net.exe', 'user 1csupport {code:GetUser|Password1}', '/add', '/fullname:""1csupport""', '/comment:""1csupport""', '/active:yes', '/expires:never', '/passwordchg:no');
end;
begin
  If NewCheckBox5.Checked then
begin
Exec('{sys}\net.exe', 'user 1csupport {code:GetUser|Password1}', '/add', '/fullname:""1csupport""', '/comment:""1csupport""', '/active:yes', '/expires:never', '/passwordchg:no');
end;
end;
end;
end;
end;
end;
Вернуться к началу
Ответить

Вернуться в «Автоматическая установка приложений»