[mat_y@vk]

P.S Вы хоть оригинальный файл скрипта сохранили на всякий случай? »

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

Проблема решилась кодировкой ANCI и выбором в винде языка системы "русский"

[Noname22]

я опытный экспериментатор... »

Я на это и надеялся!

Проблема решилась кодировкой ANCI и выбором в винде языка системы "русский" »

На всё, все способы хороши!

[alex barmalei]

Думаю, что проблема простая, но туплю жестко.
Простая установка программы с выбором компонентов.
Компоненты работают, но проблема вот в чем:
После установки в папке с прогой оказываются файлы компонентов.
Т.е. если я выбираю компонент, то он ставится (myapp.exe), но в папку копируются все компоненты (myapp, 1.exe, myapp, 2.exe).

Понял, что строка, которая рекурсивно описывает все папки и файлы является виновником моей проблемы.
Т.е. если я удалю строку:

Код:

[Files]
Source: E:\tmp\app\*;  DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs

то все работает как надо (естественно непрописаные файлы не копируются).
Похоже надо, чтобы в скрипте был прописан КАЖДЫЙ файл, но их там больше тысячи - руками я замучаюсь.
Как автоматически сделать список ВСЕГО, что есть в сходной папке ?

[saurn]

Как автоматически сделать список ВСЕГО, что есть в сходной папке ? »

Компилятор делает этом сам. И условие для установки каждого компонента все равно придется описывать вручную. Конечно, когда компонентов много, это муторно, но иначе никак. Ну и, нет нужды описывать каждый файл индивидуально. Если компонент состоит из группы файлов, достаточно предварительно раскидать их по каталогам и при компиляции брать оттуда по маске с указателем на компонент.

[alex barmalei]

saurn, хоть успокоил на счет списка

Обычных файлов дофига, компонентов немного.
Вот как выглядит

Код:

[Files]
Source: E:\tmp\app\readme, rus.txt; DestDir: {app}; Flags: ignoreversion external;  DestName: "readme.txt"; Components: lang\rus;
Source: E:\tmp\app\readme, eng.txt; DestDir: {app}; Flags: ignoreversion external;  DestName: "readme.txt"; Components: lang\eng;

[Types]
Name: full; Description: Full installation; Flags: iscustom;

[Components]
Name: "lang"; Description: Мануал; Types: full; Flags: fixed;
Name: "lang\rus"; Description: "Русский";  Flags: exclusive; 
Name: "lang\eng"; Description: "English";  Flags: exclusive;

При выборе определенного компонента он ставится, но вместе с ним копируются и исходные, которые копироваться не должны. Может у меня во флагах косяк?

[vint56]

alex barmalei

читать дальше »

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Types]
Name: full; Description: Full installation; Flags: iscustom;

[Components]
Name: "lang"; Description: Мануал; Types: full; Flags: fixed;
Name: "lang\rus"; Description: "Русский"; Flags: exclusive;
Name: "lang\eng"; Description: "English"; Flags: exclusive;

[Files]
Source: rus.txt; DestDir: {app}; DestName: "readme.txt"; Components: lang\rus;
Source: eng.txt; DestDir: {app}; DestName: "readme.txt"; Components: lang\eng;

[saurn]

alex barmalei, с флагами все нормально, кроме флага external, если планируете его использовать, то путь к устанвливаемым файлам нужно указывать не абсолютный, а через константу, например Source: {src}\tmp\app\readme, rus.txt;, где {src} корневая папка инстала. Что касается установки других фалов вместе с выбранными компонентами, то, могу лишь предположить, что ниже в секции файлов имеется строка, которая берет файлы из тойже папки по маске, если да, то она и переписывает условия описаные выше. В данном случае, как я и говорил, нужно раскидывать файлы по каталогам, или использовать параметр Excludes, например Source: app\*; Exludes: rus.txt, eng.txt; DestDir: {app}; Flags: ignoreversion;, но этот параметр не комбинируется с флагом external.

[jiumx60rus]

либо ищи адрес, откуда он грузится, либо загрузи его на свой сервер и качай itDownloader-ом оттуда. »

Сам адрес-то и прописан в CompileCode.bin, так что узнать его невозможно.

раз родным инсталлятором он устанавливается по тихому, то логично предположить, что у него есть ключи тихой установки. про эти ключи можно почитать на сайте oszone.net в разделе справки про автоматическую установку Windows. »

Как раз-таки родным и не тихо он устанавливается, это мне надо сделать тихую установку

В общем я уже понял, что то, что я задумал, неосуществимо, тогда еще есть такой вопросик: ключи /silent не работают при подключенном интернете (установка заканчивается не начавшись), а при выключенном работают. Это связано с тем, что в процессе установки докачивается файлик. Так вот, можно ли это исправить?

Спасибо за внимаение!

[alex barmalei]

saurn, ок, будут проверять.
А Excludes с абсолютными путями работает?

[Johny777]

jiumx60rus, Если я правильно понимаю тебе нужно скачать инсталл из интернета и тихо установить.
Вопросъ: Нафига тебе далась эта библиотека itdownload.dll ? Ведь фиг знает что там внутри
_ В шапке функция скачивания El Sanchez-а, ""Загрузка файла из Интернет"" http://forum.oszone.net/post-1930003-232.html
_ Вот её обновлённая/доработанная версия http://forum.oszone.net/post-2149513-443.html
_ До кучи ещё простая функция скачивания файла без каллбэка function DownloadFile(const URL, FileName: String): Boolean; http://forum.oszone.net/post-2099033-1730.html
=================
касательно тихой установки вот тебе код. Сделал так чтоб можно было тихо и обычно установить.
Чтоб была тихая установка запускаешь инсталл с параметром ком строки из под константы VERY_SILIENT_PARAM. Можешь свой параметр придумать, если хочешь

читать дальше »

Код:

#define A = (Defined UNICODE) ? "W" : "A"

const
    GCL_STYLE = -26;
    CS_NOCLOSE = $200;
    WM_LBUTTONDOWN = $0201;
    WM_LBUTTONUP = $0202;
    
    VERY_SILIENT_PARAM = '-!VerySilient!';


var
    VerySilient: Boolean;


function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL; external 'ShowWindow@User32.dll stdcall';
function SetClassLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): DWORD; external 'SetClassLong{#A}@User32.dll stdcall';
function GetClassLong(hWnd: HWND; nIndex: Integer): DWORD; external 'GetClassLong{#A}@User32.dll stdcall';


procedure InitializeWizard();
begin
    VerySilient := Pos(VERY_SILIENT_PARAM, GetCmdTail) <> 0;
    if VerySilient then
    begin
        ShowWindow(Application.Handle, SW_HIDE); // прячем кнопку в панели задач
        SetClassLong(WizardForm.Handle, GCL_STYLE, GetClassLong(WizardForm.Handle, GCL_STYLE) or CS_NOCLOSE); // без Alt+F4

        // прячем форму
        WizardForm.BorderStyle := bsNone;
        WizardForm.SetBounds(Screen.Width-777, Screen.Height-777, 0, 0);
    end;
end;




procedure CurPageChanged(CurPageID: Integer);
begin
    if CurPageID = wpReady then if VerySilient then
    begin
        PostMessage(WizardForm.NextButton.Handle, WM_LBUTTONDOWN, 0, 0);
        PostMessage(WizardForm.NextButton.Handle, WM_LBUTTONUP, 0, 0);
    end;
end;


function ShouldSkipPage(PageID: Integer): Boolean;
begin
    case PageID of
        wpWelcome, wpSelectDir, wpFinished {, другие твои страницы}: Result := VerySilient;
    end;
end;


procedure DeinitializeSetup();
begin
    /MsgBox('Installed', mbInformation, MB_OK);
end;