Ru-Board.club
← Вернуться в раздел «Программы»

» Inno Setup (создание инсталяционных пакетов)

Автор: Shaman2
Дата сообщения: 26.02.2014 13:17

Цитата:
Замени CreateDir(BackDir) на ForceDirectories(BackDir)


Спасибо, заработало
Автор: dragon1000
Дата сообщения: 27.02.2014 05:21
Всем доброго времени суток. Опытные пользователи помогите с такой задачей:

Есть к примеру процедура:

procedure UrlOnclick(Sender:TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', '{#Url}', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;

При нажатии на кнопку открывается сайт указанный в #Url

Модно ли сделать такую процедуру, которая при нажатии на кнопку удаляла бы файл (папку) по указанному пути, например:

{app}\ ...
Автор: InnoT20
Дата сообщения: 28.02.2014 12:20
Здравствуйте, помогите пожалуйста вывести в скрипте компоненты и прогресс бар при установке
http://rghost.ru/52720578

прогресс бар починил, но с компонентами никак


Добавлено:

Цитата:
Модно ли сделать такую процедуру, которая при нажатии на кнопку удаляла бы файл (папку) по указанному пути, например:


DelTree(ExpandConstant('{app}\ваш путь'), True, True, True);
Автор: dragon1000
Дата сообщения: 01.03.2014 14:02
InnoT20, не выходит

Вот начал как пример:
http://rghost.ru/52746034
Автор: InnoT20
Дата сообщения: 01.03.2014 16:15

Цитата:
Вот начал как пример:
http://rghost.ru/52746034

опиши, что ты хочешь чтобы происходило на кнопку удалить
Автор: dragon1000
Дата сообщения: 01.03.2014 16:30
Все разобрался использовал другую команду:

DelayDeleteFile(ExpandConstant('{app}\FileName'), 2);
Автор: InnoT20
Дата сообщения: 01.03.2014 16:50

Цитата:
Все разобрался использовал другую команду:

просто ты удалял файл, а команду я тебе дал на удаление папки
Автор: dragon1000
Дата сообщения: 01.03.2014 16:51
Ясно, благодарю за помощь )

P.S. Хотя я тоже пробовал той командой что ты дал удалить папку не получилось, при нажатии ноль реакции
Автор: AlekseyPopovv
Дата сообщения: 01.03.2014 16:54
Ребята, помогите с переносом текста:
[more] [/more]
Автор: Mekugi
Дата сообщения: 01.03.2014 19:10
AlekseyPopovv

Что то типа
Цитата:
.Caption:='qwe'+#10+'rty'
не прокатывает ?
Автор: AlekseyPopovv
Дата сообщения: 01.03.2014 19:18
Mekugi
Неа, не выходит.
Автор: Tapas77789
Дата сообщения: 02.03.2014 09:45
[more=Перенос Текста на TNewButton]
[Setup]
AppName=My Program
AppVersion=1.5
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program

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

const
GWL_STYLE = -16;
BS_MULTILINE = $2000;

function GetWindowLong(Wnd: HWnd; nIndex: Integer): Longint; external 'GetWindowLong{#A}@user32.dll stdcall';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall';

procedure InitializeWizard();
var
Baton: TNewButton;
begin
Baton:=TNewButton.Create(WizardForm);
with Baton do begin
Parent:=WizardForm.SelectDirPage;
SetBounds(ScaleX(50),ScaleY(150),ScaleX(150),ScaleY(50));
Caption:='sdfds'+#10+#13+'uiuiui';
End;
SetWindowLong(Baton.Handle,GWL_STYLE,(BS_MULTILINE or GetWindowLong(Baton.Handle, GWL_STYLE)));
end;
[/more]
Автор: tharasel
Дата сообщения: 02.03.2014 18:45
Здравствуйте, у меня проблема я не могу сделать так чтобы ярлыки создающиеся на рабочем столе потом в пуск=> все программы и те ярлыки которые создаются не получается сменить иконку ярлыка, инфу в инете не нашел помогите пожалуйста, вот код



Код: Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}";
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon
Автор: vint56
Дата сообщения: 02.03.2014 20:42
tharasel
[Icons]
Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; IconFilename: {app}\Icons.ico;
Автор: tharasel
Дата сообщения: 03.03.2014 08:04

Цитата:
vint56

Спасибо помогло !
Автор: AlekseyPopovv
Дата сообщения: 03.03.2014 12:50
vint56
Как создать файл .txt или .dat например в папке "{app}" с такими данными:
Моя программа
установлена
Автор: vint56
Дата сообщения: 03.03.2014 13:38
AlekseyPopovv создай сам файл и положив секцию файлы и каталог укажи {app}
Автор: AlekseyPopovv
Дата сообщения: 03.03.2014 13:41
vint56
Это понятно. Получается не возможно создать?
Автор: MOD_TEC
Дата сообщения: 03.03.2014 14:28
Подскажите пожалуйста как сделать тень для инсталлятора...

Вокруг маски... http://rghost.ru/52786114
Автор: vint56
Дата сообщения: 03.03.2014 15:04
AlekseyPopovv
[code]
procedure CurStepChanged(CurStep: TSetupStep);
begin
if (CurStep = ssPostInstall) then
SaveStringToFile(ExpandConstant('{app}')+'\Text.txt', 'Моя программа установлена', False);
end;
Автор: MOD_TEC
Дата сообщения: 06.03.2014 18:06
Покажите пожалуйста пример батника для упаковки в запароленный Zip архив...
Автор: vint56
Дата сообщения: 06.03.2014 21:43
MOD_TEC
"7z.exe" a -t7z -m0=LZMA -mmt=on -mx9 -md=128m -mfb=273 -ms=on -sccUTF-8 "-pпароль" "-wC:\" "C:\7z.7z" "C:\7z"
Автор: Siden_Shou
Дата сообщения: 07.03.2014 06:09
Всем привет уважаемые форумчане, вот хотел спросить про комманду DelTree

Нашел этот форум перейдя по поиску на эти посты:

вопрос
ответ

И взял пример с последующего сообщения

пример

Но там эта комманда не работает, что там не правильно сделано?

Вот начатый скрипт по тому примеру (сразу говорю в программировании не силен поэтому попросил у вас помощи)

http://yadi.sk/d/tEyntGPDK6TWQ

Задача удалить папку "Cache" к корне папки установки при нажатии на кнопку.

Автор: marineharrison
Дата сообщения: 09.03.2014 13:58
Доброго времени суток. Прошу помочь в таком вопросе. Немного не по теме, но узнать нормально негде. Думаю вы знаете что такое видео в .bik. Мне нужно удалить из файла .bik аудиодорожки. Их там 7, мне нужно оставить только первую. Подскажите как это сделать и какой программой. Само видео кодировать не нужно, только удалить дорожки...
Автор: vint56
Дата сообщения: 09.03.2014 14:47
marineharrison
[more]@echo off
color F0
cls


if "%~1"=="" (

echo Error! Couldn't get input files folder path!
pause
exit

)

for /r "%~1" %%i in (*.bik) do (
echo Working at %%i...
binkmix.exe "%%i" -/t02 /# /O "%%i.x1"
binkmix.exe "%%i.x1" -/t03 /# /O "%%i.x2"
binkmix.exe "%%i.x2" -/t68 /# /O "%%i.x3"
binkmix.exe "%%i.x3" -/t69 /# /O "%%i.x4"
binkmix.exe "%%i.x4" -/t70 /# /O "%%i.x5"
binkmix.exe "%%i.x5" -/t71 /# /O "%%i.x6"
binkmix.exe "%%i.x6" -/t80 /# /O "%%i.x7"
binkmix.exe "%%i.x7" -/t81 /# /O "%%i.x8"
binkmix.exe "%%i.x8" -/t82 /# /O "%%i.x9"
binkmix.exe "%%i.x9" -/t83 /# /O "%%i.x10"
binkmix.exe "%%i.x10" -/t60 /# /O "%%i.x11"
binkmix.exe "%%i.x11" -/t61 /# /O "%%i.x12"
binkmix.exe "%%i.x12" -/t62 /# /O "%%i.x13"
binkmix.exe "%%i.x13" -/t63 /# /O "%%i.x"
del /q "%%i"
move /y "%%i.x" "%%i"

)

echo Work end.

pause[/more]
Автор: marineharrison
Дата сообщения: 09.03.2014 14:58
vint56
благодарю за помощь.
я так понимаю мне нужно скинуть все файлы bik в одну папку и там запустить батник с текстом, что в вашем посте?
Если что, видеофайлы игры aliens: colonial marines.
Автор: Farser21
Дата сообщения: 09.03.2014 21:46
Всем привет

У меня в установщике когда удаляешь компоненты через unins000.exe, то удаляется папка res_mods. Как сделать так, чтобы удалялось, только содержимое папки т.е. res_mods\*.

Заранее спасибо за ответ.

Вот скрипт http://rghost.ru/private/52939112/87e309954bdfa0de8940d68ea2273562
Автор: marineharrison
Дата сообщения: 10.03.2014 19:37
vint56
Не получается ничего.
1. сначала закинул всю папку с rad video tools отдельно и туда закинул все видеофайлы bik.

Затем создал батник с текстом, что в вашем посте. однако выдает следующее:
Error! Couldn't get input files folder path!

2. Открыл radvidej.exe и нажал кнопку batch. В ней написал текст из вашего поста и вот что выдает каждый раз:


Вот данные о видеофайле:


Нужна помощь.
Автор: vint56
Дата сообщения: 10.03.2014 20:34
marineharrison
http://rghost.ru/52967421
Автор: marineharrison
Дата сообщения: 11.03.2014 23:13
vint56
Мне нужно было включить мозг и попытаться запустить батник на Windows 7. Судя по вложенному скрину окна именно в ней все и работает. на XP не работает.
Я изменил по аналогии батник для своих видеофайлов. Все сработало.
Спасибо за оказанную помощь.

Страницы: 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758

Предыдущая тема: Только инсталлятор


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.