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

Цитата:

Замени CreateDir(BackDir) на ForceDirectories(BackDir)

Спасибо, заработало

Всем доброго времени суток. Опытные пользователи помогите с такой задачей:

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

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

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

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

{app}\ ...

Здравствуйте, помогите пожалуйста вывести в скрипте компоненты и прогресс бар при установке
http://rghost.ru/52720578

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


Добавлено:

Цитата:

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

DelTree(ExpandConstant('{app}\ваш путь'), True, True, True);

InnoT20, не выходит

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

Цитата:

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

опиши, что ты хочешь чтобы происходило на кнопку удалить

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

DelayDeleteFile(ExpandConstant('{app}\FileName'), 2);

Цитата:

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

просто ты удалял файл, а команду я тебе дал на удаление папки

Ясно, благодарю за помощь )

P.S. Хотя я тоже пробовал той командой что ты дал удалить папку не получилось, при нажатии ноль реакции

Ребята, помогите с переносом текста:
[more] [/more]

AlekseyPopovv

Что то типа
Цитата:

.Caption:='qwe'+#10+'rty'

не прокатывает ?

Mekugi
Неа, не выходит.

[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]

Здравствуйте, у меня проблема я не могу сделать так чтобы ярлыки создающиеся на рабочем столе потом в пуск=> все программы и те ярлыки которые создаются не получается сменить иконку ярлыка, инфу в инете не нашел помогите пожалуйста, вот код



Код: 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

tharasel
[Icons]
Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; IconFilename: {app}\Icons.ico;

Цитата:

vint56

Спасибо помогло !

vint56
Как создать файл .txt или .dat например в папке "{app}" с такими данными:
Моя программа
установлена

AlekseyPopovv создай сам файл и положив секцию файлы и каталог укажи {app}

vint56
Это понятно. Получается не возможно создать?

Подскажите пожалуйста как сделать тень для инсталлятора...

Вокруг маски... http://rghost.ru/52786114

AlekseyPopovv
[code]
procedure CurStepChanged(CurStep: TSetupStep);
begin
if (CurStep = ssPostInstall) then
SaveStringToFile(ExpandConstant('{app}')+'\Text.txt', 'Моя программа установлена', False);
end;

Покажите пожалуйста пример батника для упаковки в запароленный Zip архив...

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"

Всем привет уважаемые форумчане, вот хотел спросить про комманду DelTree

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

вопрос
ответ

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

пример

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

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

http://yadi.sk/d/tEyntGPDK6TWQ

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

Доброго времени суток. Прошу помочь в таком вопросе. Немного не по теме, но узнать нормально негде. Думаю вы знаете что такое видео в .bik. Мне нужно удалить из файла .bik аудиодорожки. Их там 7, мне нужно оставить только первую. Подскажите как это сделать и какой программой. Само видео кодировать не нужно, только удалить дорожки...

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]

vint56
благодарю за помощь.
я так понимаю мне нужно скинуть все файлы bik в одну папку и там запустить батник с текстом, что в вашем посте?
Если что, видеофайлы игры aliens: colonial marines.

Всем привет

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

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

Вот скрипт http://rghost.ru/private/52939112/87e309954bdfa0de8940d68ea2273562

vint56
Не получается ничего.
1. сначала закинул всю папку с rad video tools отдельно и туда закинул все видеофайлы bik.

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

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


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


Нужна помощь.

marineharrison
http://rghost.ru/52967421

vint56
Мне нужно было включить мозг и попытаться запустить батник на Windows 7. Судя по вложенному скрину окна именно в ней все и работает. на XP не работает.
Я изменил по аналогии батник для своих видеофайлов. Все сработало.
Спасибо за оказанную помощь.