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

Почему не все каталоги программы не копируются? а где просто программа не ужатая запускается

Помогите кто сможет!
Кто может поделиться кодом, чтобы при повторном запуске инсталлятора появлялось окно с предложением запуска игры как в С.Т.А.Л.К.Е.Р.е???
Ответьте пожалуйста!!!!!!!!!!

skeptik_vdm
[more=пример][Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.

[Code]
var
ResultCode:Integer;
ResultReg:string;

procedure CurPageChanged(CurPageID:Integer);
begin
if CurPageID=wpWelcome then
begin
if RegValueExists(HKEY_LOCAL_MACHINE, 'Software\GSC Game World\STALKER-SHOC','InstallPath') then
if WizardForm.FindComponent('NextButton') is TButton then
TButton(WizardForm.FindComponent('NextButton')).Caption:='Играть';
end;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
if RegValueExists(HKEY_LOCAL_MACHINE, 'Software\GSC Game World\STALKER-SHOC','InstallPath') then
begin
RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\GSC Game World\STALKER-SHOC','InstallPath', ResultReg)
Result:=False;
Exec(ResultReg+'\XR_3DA.exe', '', '', SW_SHOW,ewNoWait, ResultCode)
WizardForm.Close;
end else
Result:=True;
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Cancel:=True;
if CurPageID=wpWelcome then
begin
if RegValueExists(HKEY_LOCAL_MACHINE, 'Software\GSC Game World\STALKER-SHOC','InstallPath') then
Confirm:=False;
end;
end;
[/more]

Serega0675

Спасибо но это нето! Нужно точно такое же как в лицензионном СТАЛКЕРЕ!!!

skeptik_vdm
Я не знаю как в СТАЛКЕРЕ... Вы хоть скриншот тогда сделайте, что вам нужно...

Ribiata kak zdelati shtoba knopki razgaralisi, kagda kursorom vediosh nad nimi

a to ani 4iota prosta kak izabrajanie...

pamaghite please


[more]
Код:
Var
LicenseAcceptedText, LicenseNotAcceptedText, NoIconsGroupText: TNewStaticText;
DirBrowseButtonImage, GroupBrowseButtonImage, BackButtonImage, NextButtonImage, CancelButtonImage: TBitmapImage;

Procedure InitializeWizard();
begin
ExtractTemporaryFile('Button.bmp')
WizardForm.Bevel.Hide
WizardForm.Bevel1.Hide
WizardForm.SelectDirBitmapImage.Hide
WizardForm.SelectGroupBitmapImage.Hide

with WizardForm do begin
Position:=poScreenCenter
ClientWidth:=690
ClientHeight:=496
Font.Color:=$ffffff
Font.Name:='MS Sans Serif'
Font.Style:=[]
with CancelButton do begin
Left:=600
Top:=462
Width:=75
Height:=22
BringToFront
end
with NextButton do begin
Left:=375
Top:=462
Width:=75
Height:=21
BringToFront
end
with BackButton do begin
Left:=293
Top:=462
Width:=75
Height:=22
BringToFront
end
with OuterNotebook do begin
Left:=0
Top:=0
Width:=690
Height:=496
with WelcomePage do begin
Color:=$ab663d
with WizardBitmapImage do begin
Left:=0
Top:=0
Width:=690
Height:=496
end
with WelcomeLabel2 do begin
Left:=205
Top:=230
Width:=465
Height:=200
end
with WelcomeLabel1 do begin
Left:=205
Top:=190
Width:=465
Height:=28
Font.Size:=8
Font.Color:=$ffffff
end
end
with InnerPage do begin
with InnerNotebook do begin
Left:=205
Top:=79
Width:=465
Height:=354
BringToFront
Color:=$ab663d
with LicensePage do begin
with LicenseNotAcceptedRadio do begin
Left:=0
Top:=338
Width:=17
Height:=17
end
with LicenseAcceptedRadio do begin
Left:=0
Top:=318
Width:=17
Height:=17
end
with LicenseMemo do begin
Left:=0
Top:=38
Width:=465
Height:=266
end
with LicenseLabel1 do begin
Left:=0
Top:=0
Width:=465
Height:=28
end
end
with PasswordPage do begin
with PasswordEdit do begin
Left:=0
Top:=50
Width:=465
Height:=21
Color:=$ffffff
Font.Color:=$000000
end
with PasswordEditLabel do begin
Left:=0
Top:=34
Width:=465
Height:=14
end
with PasswordLabel do begin
Left:=0
Top:=0
Width:=465
Height:=28
end
end
with InfoBeforePage do begin
with InfoBeforeMemo do begin
Left:=0
Top:=24
Width:=465
Height:=327
end
with InfoBeforeClickLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with UserInfoPage do begin
with UserInfoSerialEdit do begin
Left:=0
Top:=120
Width:=465
Height:=21
Color:=$ffffff
Font.Color:=$000000
end
with UserInfoSerialLabel do begin
Left:=0
Top:=104
Width:=465
Height:=14
end
with UserInfoOrgEdit do begin
Left:=0
Top:=68
Width:=465
Height:=21
Color:=$ffffff
Font.Color:=$000000
end
with UserInfoOrgLabel do begin
Left:=0
Top:=52
Width:=465
Height:=14
end
with UserInfoNameEdit do begin
Left:=0
Top:=16
Width:=465
Height:=21
Color:=$ffffff
Font.Color:=$000000
end
with UserInfoNameLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with SelectDirPage do begin
with DiskSpaceLabel do begin
Left:=0
Top:=340
Width:=465
Height:=14
end
with DirBrowseButton do begin
Left:=388
Top:=288
Width:=75
Height:=23
end
with DirEdit do begin
Left:=0
Top:=290
Width:=370
Height:=21
Color:=$ffffff
Font.Color:=$000000
end
with SelectDirBrowseLabel do begin
Left:=0
Top:=24
Width:=465
Height:=28
end
with SelectDirLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with SelectComponentsPage do begin
with ComponentsDiskSpaceLabel do begin
Left:=0
Top:=340
Width:=417
Height:=14
end
with ComponentsList do begin
Left:=0
Top:=48
Width:=465
Height:=275
Color:=$ffffff
Font.Color:=$000000
end
with TypesCombo do begin
Left:=0
Top:=24
Width:=465
Height:=21
Color:=$ffffff
Font.Color:=$000000
end
with SelectComponentsLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with SelectProgramGroupPage do begin
with NoIconsCheck do begin
Left:=0
Top:=337
Width:=17
Height:=17
Visible:=True
end
with GroupBrowseButton do begin
Left:=388
Top:=288
Width:=75
Height:=23
end
with GroupEdit do begin
Left:=0
Top:=290
Width:=370
Height:=21
Color:=$ffffff
Font.Color:=$000000
end
with SelectStartMenuFolderBrowseLabel do begin
Left:=0
Top:=24
Width:=465
Height:=28
end
with SelectStartMenuFolderLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with SelectTasksPage do begin
with TasksList do begin
Left:=0
Top:=34
Width:=465
Height:=317
Color:=$ab663d
end
with SelectTasksLabel do begin
Left:=0
Top:=0
Width:=465
Height:=28
end
end
with ReadyPage do begin
with ReadyMemo do begin
Left:=0
Top:=34
Width:=465
Height:=317
Color:=$ab663d
end
with ReadyLabel do begin
Left:=0
Top:=0
Width:=465
Height:=28
end
end
with InstallingPage do begin
with FilenameLabel do begin
Left:=0
Top:=16
Width:=465
Height:=16
end
with StatusLabel do begin
Left:=0
Top:=0
Width:=465
Height:=16
end
with ProgressGauge do begin
Left:=0
Top:=42
Width:=465
Height:=21
end
end
with InfoAfterPage do begin
with InfoAfterMemo do begin
Left:=0
Top:=24
Width:=465
Height:=327
end
with InfoAfterClickLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
end
with MainPanel do begin
Left:=0
Top:=0
Width:=690
Height:=496
with WizardSmallBitmapImage do begin
Left:=0
Top:=0
Width:=690
Height:=496
end
with PageDescriptionLabel do begin
Left:=25
Top:=25
Width:=500
Height:=14
Color:=$663300
Font.Color:=$ffffff
end
with PageNameLabel do begin
Left:=15
Top:=7
Width:=500
Height:=14
Color:=$663300
Font.Color:=$ffffff
end
end
end
with FinishedPage do begin
Color:=$ab663d
with WizardBitmapImage2 do begin
Left:=0
Top:=0
Width:=690
Height:=496
end
with NoRadio do begin
Left:=205
Top:=227
Width:=465
Height:=17
end
with YesRadio do begin
Left:=205
Top:=199
Width:=465
Height:=17
end
with RunList do begin
Left:=205
Top:=199
Width:=465
Height:=149
end
with FinishedLabel do begin
Left:=205
Top:=119
Width:=465
Height:=53
end
with FinishedHeadingLabel do begin
Left:=205
Top:=79
Width:=465
Height:=24
Font.Size:=8
Font.Color:=$ffffff
end
end
end
with BeveledLabel do begin
Left:=10
Top:=468
Enabled:=False
Color:=$dbcdcc
end
end
LicenseAcceptedText:=TNewStaticText.Create(WizardForm)
with LicenseAcceptedText do begin
Left:=17
Top:=320
Width:=445
Height:=17
Caption:=WizardForm.LicenseAcceptedRadio.Caption
Parent:=WizardForm.LicensePage
end
LicenseNotAcceptedText:=TNewStaticText.Create(WizardForm)
with LicenseNotAcceptedText do begin
Left:=17
Top:=340
Width:=445
Height:=17
Caption:=WizardForm.LicenseNotAcceptedRadio.Caption
Parent:=WizardForm.LicensePage
end
NoIconsGroupText:=TNewStaticText.Create(WizardForm)
with NoIconsGroupText do begin
Left:=17
Top:=340
Width:=445
Height:=17
Caption:=WizardForm.NoIconsCheck.Caption
Parent:=WizardForm.SelectProgramGroupPage
end
DirBrowseButtonImage:=TBitmapImage.Create(WizardForm)
with DirBrowseButtonImage do begin
Left:=-154
Top:=-25
Width:=231
Height:=50
Enabled:=False
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')
Parent:=WizardForm.DirBrowseButton
end
GroupBrowseButtonImage:=TBitmapImage.Create(WizardForm)
with GroupBrowseButtonImage do begin
Left:=-154
Top:=-25
Width:=231
Height:=50
Enabled:=False
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')
Parent:=WizardForm.GroupBrowseButton
end
BackButtonImage:=TBitmapImage.Create(WizardForm)
with BackButtonImage do begin
Left:=0
Top:=0
Width:=231
Height:=50
Enabled:=False
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')
Parent:=WizardForm.BackButton
end
NextButtonImage:=TBitmapImage.Create(WizardForm)
with NextButtonImage do begin
Left:=-77
Top:=0
Width:=231
Height:=50
Enabled:=False
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')
Parent:=WizardForm.NextButton
end
CancelButtonImage:=TBitmapImage.Create(WizardForm)
with CancelButtonImage do begin
Left:=-154
Top:=0
Width:=231
Height:=50
Enabled:=False
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')
Parent:=WizardForm.CancelButton
end
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpWelcome then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpLicense then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpPassword then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpInfoBefore then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpUserInfo then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpSelectDir then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpSelectComponents then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpSelectProgramGroup then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpSelectTasks then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpReady then
begin
NextButtonImage.Left:=0
NextButtonImage.Top:=-25
end
if CurPageID=wpInfoAfter then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=0
end
if CurPageID=wpFinished then
begin
NextButtonImage.Left:=-77
NextButtonImage.Top:=-25
end
end;

azot1111
Отредактируй свое сообщение - помести весь код под тег [no][more][/more][/no]!!

Хм. Столкнулся с такой траблой, как модальная форма + OnCloseQuery. Как ей объяснить, что если modalresult = mrok, то закрывать без предупреждения?

[more=Вот мой код]function MessageBox(hWnd: Integer; lpText, lpCaption: String; uType: Cardinal): Integer; external 'MessageBoxA@user32.dll stdcall';

const
MB_ICONINFORMATION = $40;
MB_ICONEXCLAMATION = $30;
MB_ICONQUESTION = $20;
MB_ICONSTOP = $10;
MB_ICONNONE = $0;

var
MyForm: TSetupForm;
MyFormCancel: TButton;
MyFormOK: TButton;

procedure MyFormCloseQuery(Sender: TObject; var CanClose: Boolean);
var mfhWnd: Integer;
begin
mfhWnd := MyForm.Handle;
if MessageBox(mfhWnd, 'хотите закрыть форму?', 'закрытие формы', MB_YESNO or MB_DEFBUTTON2 or $40) = idYes then
CanClose := true
else CanClose := false;
end;

procedure createMyForm;
begin
try
MyForm := CreateCustomForm();
with MyForm do
begin
ClientHeight := ScaleX(150);
ClientWidth := ScaleX(150);
BorderIcons := [biSystemMenu];
BorderStyle := bsDialog;
Caption:='...';
OnCloseQuery := @MyFormCloseQuery;
Center;
end;

MyFormOK := TButton.Create(MyForm);
with MyFormOK do
begin
Parent := MyForm;
Caption := 'ok';
Left := ScaleX(10);
Top := ScaleY(10);
Width := ScaleX(73);
Height := ScaleY(23);
Default := true;
ModalResult:= mrOk;
end;

MyFormCancel := TButton.Create(MyForm);
with MyFormCancel do
begin
Parent := MyForm;
Caption := 'Cancel';
Left := ScaleX(10);
Top := ScaleY(40);
Width := ScaleX(73);
Height := ScaleY(23);
Cancel := true;
ModalResult:= mrCancel;
end;

if MyForm.ShowModal = mrOk then begin

end
finally
MyForm.Free;
end;
end;

procedure InitializeWizard();
begin
createMyForm;
end;[/more]

ribiata, mojna inim obrazam izminiti kod , bez taga [more][/more]
ato 4eota ne palu4iaita

vot 4eo palu4eaita



zaranie spasiba

azot1111

Посмотри может быть это подойдет
[more=код]
[Code]
Procedure InitializeWizard();
begin
with WizardForm do begin
Position:=poScreenCenter
ClientWidth:=690
ClientHeight:=496
Font.Color:=clWindow
Font.Name:='MS Sans Serif'
Font.Style:=[]
with Bevel do begin
Left:=0
Top:=313
Width:=497
Height:=2
Visible:=False
end
with CancelButton do begin
Left:=600
Top:=462
Width:=77
Height:=25
BringToFront
end
with NextButton do begin
Left:=375
Top:=462
Width:=77
Height:=25
BringToFront
end
with BackButton do begin
Left:=293
Top:=462
Width:=77
Height:=25
BringToFront
end
with OuterNotebook do begin
Left:=0
Top:=0
Width:=690
Height:=496
with WelcomePage do begin
Color:=11232829
with WizardBitmapImage do begin
Left:=0
Top:=0
Width:=690
Height:=496
end
with WelcomeLabel2 do begin
Left:=205
Top:=230
Width:=465
Height:=200
end
with WelcomeLabel1 do begin
Left:=205
Top:=190
Width:=465
Height:=28
Font.Color:=clWindow
Font.Size:=8
end
end
with InnerPage do begin
with Bevel1 do begin
Left:=0
Top:=58
Width:=499
Height:=3
Visible:=False
end
with InnerNotebook do begin
Left:=205
Top:=79
Width:=465
Height:=354
BringToFront
Color:=11232829
with LicensePage do begin
with LicenseNotAcceptedRadio do begin
Left:=0
Top:=338
Width:=465
Height:=17
Checked:=True
end
with LicenseAcceptedRadio do begin
Left:=0
Top:=318
Width:=465
Height:=17
end
with LicenseMemo do begin
Left:=0
Top:=38
Width:=465
Height:=266
ReadOnly:=True
ScrollBars:=ssVertical
end
with LicenseLabel1 do begin
Left:=0
Top:=0
Width:=465
Height:=28
end
end
with PasswordPage do begin
with PasswordEdit do begin
Left:=0
Top:=50
Width:=465
Height:=21
Font.Color:=clWindowText
end
with PasswordEditLabel do begin
Left:=0
Top:=34
Width:=465
Height:=14
end
with PasswordLabel do begin
Left:=0
Top:=0
Width:=465
Height:=28
end
end
with InfoBeforePage do begin
with InfoBeforeMemo do begin
Left:=0
Top:=24
Width:=465
Height:=327
ScrollBars:=ssVertical
end
with InfoBeforeClickLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with UserInfoPage do begin
with UserInfoSerialEdit do begin
Left:=0
Top:=120
Width:=465
Height:=21
Font.Color:=clWindowText
end
with UserInfoSerialLabel do begin
Left:=0
Top:=104
Width:=465
Height:=14
end
with UserInfoOrgEdit do begin
Left:=0
Top:=68
Width:=465
Height:=21
Font.Color:=clWindowText
end
with UserInfoOrgLabel do begin
Left:=0
Top:=52
Width:=465
Height:=14
end
with UserInfoNameEdit do begin
Left:=0
Top:=16
Width:=465
Height:=21
Font.Color:=clWindowText
end
with UserInfoNameLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with SelectDirPage do begin
with SelectDirBitmapImage do begin
Left:=0
Top:=0
Width:=32
Height:=32
Visible:=False
end
with DiskSpaceLabel do begin
Left:=0
Top:=340
Width:=465
Height:=14
end
with DirBrowseButton do begin
Left:=388
Top:=288
Width:=77
Height:=25
end
with DirEdit do begin
Left:=0
Top:=290
Width:=378
Height:=21
Font.Color:=clWindowText
end
with SelectDirBrowseLabel do begin
Left:=0
Top:=24
Width:=465
Height:=28
end
with SelectDirLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with SelectComponentsPage do begin
with ComponentsDiskSpaceLabel do begin
Left:=0
Top:=340
Width:=417
Height:=14
end
with ComponentsList do begin
Left:=0
Top:=48
Width:=465
Height:=275
Font.Color:=clWindow
Color:=11232829
end
with TypesCombo do begin
Left:=0
Top:=24
Width:=465
Height:=21
Font.Color:=clWindow
Color:=11232829
end
with SelectComponentsLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with SelectProgramGroupPage do begin
with SelectGroupBitmapImage do begin
Left:=0
Top:=0
Width:=32
Height:=32
Visible:=False
end
with NoIconsCheck do begin
Left:=0
Top:=337
Width:=465
Height:=17
end
with GroupBrowseButton do begin
Left:=388
Top:=288
Width:=77
Height:=25
end
with GroupEdit do begin
Left:=0
Top:=290
Width:=378
Height:=21
Font.Color:=clWindowText
end
with SelectStartMenuFolderBrowseLabel do begin
Left:=0
Top:=24
Width:=465
Height:=28
end
with SelectStartMenuFolderLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
with SelectTasksPage do begin
with TasksList do begin
Left:=0
Top:=34
Width:=465
Height:=317
Color:=11232829
end
with SelectTasksLabel do begin
Left:=0
Top:=0
Width:=465
Height:=28
end
end
with ReadyPage do begin
with ReadyMemo do begin
Left:=0
Top:=34
Width:=465
Height:=317
Color:=11232829
end
with ReadyLabel do begin
Left:=0
Top:=0
Width:=465
Height:=28
end
end
with PreparingPage do begin
with PreparingErrorBitmapImage do begin
Left:=0
Top:=0
Width:=16
Height:=16
Visible:=False
end
with PreparingLabel do begin
Left:=24
Top:=0
Width:=393
Height:=14
Visible:=False
end
end
with InstallingPage do begin
with FilenameLabel do begin
Left:=0
Top:=16
Width:=465
Height:=16
end
with StatusLabel do begin
Left:=0
Top:=0
Width:=465
Height:=16
end
with ProgressGauge do begin
Left:=0
Top:=42
Width:=465
Height:=21
Min:=0
Max:=100
end
end
with InfoAfterPage do begin
with InfoAfterMemo do begin
Left:=0
Top:=24
Width:=465
Height:=327
ScrollBars:=ssVertical
end
with InfoAfterClickLabel do begin
Left:=0
Top:=0
Width:=465
Height:=14
end
end
end
with MainPanel do begin
Left:=0
Top:=0
Width:=690
Height:=496
Color:=clWindow
with WizardSmallBitmapImage do begin
Left:=0
Top:=0
Width:=690
Height:=496
BackColor:=clWindow
end
with PageDescriptionLabel do begin
Left:=25
Top:=25
Width:=500
Height:=14
Color:=6697728
Font.Color:=clWindow
end
with PageNameLabel do begin
Left:=15
Top:=7
Width:=500
Height:=14
Color:=6697728
Font.Color:=clWindow
end
end
end
with FinishedPage do begin
Color:=11232829
with WizardBitmapImage2 do begin
Left:=0
Top:=0
Width:=690
Height:=496
end
with NoRadio do begin
Left:=205
Top:=227
Width:=465
Height:=17
end
with YesRadio do begin
Left:=205
Top:=199
Width:=465
Height:=17
end
with RunList do begin
Left:=205
Top:=199
Width:=465
Height:=149
BorderStyle:=bsNone
end
with FinishedLabel do begin
Left:=205
Top:=119
Width:=465
Height:=53
end
with FinishedHeadingLabel do begin
Left:=205
Top:=79
Width:=465
Height:=24
Font.Color:=clWindow
Font.Size:=8
end
end
end
with BeveledLabel do begin
Left:=10
Top:=468
Width:=150
Height:=14
Enabled:=False
Color:=14405068
end
end
end;


[/more]

Скажите пожалуйста можно ли это реализовать в Инно при повторном запуске инсталла???

skeptik_vdm

В полне реально. Я буду над этим работать через день, два...но тут все очень просто-сейчас времени нету...и так репак не давно выложил.... Код, чтобы сделать такое есть выше..ты сам кидал...


Цитата:

при повторном запуске инсталла

Наверно ты имел ввиду при уже установленном приложении, если смотреть на картинку....при повторном там уже другой код...

И кстати....больше, чем уверен ... ЭТО ... уже сделанно, как раз в ИННО

skeptik_vdm

uRAAA.... spasiba balisoe

Studio13 OutlaW

Это создано в ИнсталлШилде! Но будет очень хорошо если кто нибудь этим займется а то мой уровень знаний в Инно этого не позволяет!!!

pret vsem

ribiata pamaghite ...

takoi vapros:
kakoi kod nujen dlea zaprosa na zapusc egri.. ato u menea zapuscaita igra a patom posle zakritie igri mojna najati zaversiti

vot primer




i kak u "setup" mojna staviti iconku vrodi etoi



za ranie spasiba :thx:

azot1111
Первый вопрос:
В секции [Run]
Filename: "{app}\README.TXT"; Flags: postinstall

Второй вопрос:
В секции [Setup]
SetupIconFile=C:\icon\icon.ico
указывается расположение файла *.ico, который и будет иконкой для файла установки.

Подскажите, пожалуйста, как поменять название деинсталляции через код? Типа этого: WizardForm.Caption:='My Program'; только нужно для деинсталляции...

Don_Juan

Цитата:

Типа этого: WizardForm.Caption:='My Program'; только нужно для деинсталляции...

думаю так ...

procedure InitializeUninstallProgressForm();
begin
UninstallProgressForm.Caption := 'Удаление программы';
end;

Делаю инсталлятор для одной игры.
Вопрос в следующем: при удалении программы Inno setup выдаёт message box

Как заменить этот message box диалоговым окном примерно такого вида

kombat 77

Спасибо. То самое.

Подскажите как написать консольную команду кодом:
attrib +h "C:\Program Files\test" /d /s
Пишу так - не катит:
Exec('attrib', '+h "{pf}\test" /d /s', '', SW_HIDE, ewWaitUntilTerminated, res);

GRom V, {pf} нужно в ExpandConstant засунуть.

Мне кто нибудь поможет с моим примером на странице 16????

GRom V

Цитата:

Exec('attrib', '+h "{pf}\test" /d /s', '', SW_HIDE, ewWaitUntilTerminated, res);

типа этого ...
Exec('attrib', ' +h ' + '"' + ExpandConstant('{pf}\test') + '"' + ' /d /s', '', SW_HIDE, ewWaitUntilTerminated, res);

skeptik_vdm, [more][Setup]
AppName=My Prog
AppVerName=My Prog
DefaultDirName={pf}\My Prog

[Files]
Source: "compiler:Examples\MyProg.exe"; DestDir: "{app}";
Source: "Back.bmp"; DestDir: {tmp}; Flags: dontcopy
;рекомендуемый размер картинки: 497x313

[no][Code][/no]
var
run, del: TNewButton;
ResultStr1,ResultStr2,s: String;
ResultCode: Integer;
Image: TBitmapImage;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:=False;
end;

procedure runOnClick(Sender: TObject);
begin
RegQueryStringValue(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\My Prog_is1', 'InstallLocation', ResultStr1);
ResultStr1:=ResultStr1 + '\MyProg.exe';
Exec(ResultStr1, '', '', SW_SHOWNORMAL, ewNoWait, ResultCode);
WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
end;

procedure delOnClick(Sender: TObject);
begin
RegQueryStringValue(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\My Prog_is1', 'UninstallString', ResultStr2);
ResultStr2:=RemoveQuotes(ResultStr2);
Exec(ResultStr2, '', '', SW_SHOWNORMAL, ewNoWait, ResultCode);
WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
end;

procedure CurPageChanged(CurPageID: integer);
begin
ExtractTemporaryFile('Back.bmp');
s:=AddBackslash(ExpandConstant('{tmp}'))+'Back.bmp';

if CurPageID = wpWelcome then
begin
if RegValueExists(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\My Prog_is1', 'InstallLocation') then
begin
WizardForm.WizardBitmapImage.Hide;
WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.NextButton.Hide;
WizardForm.CancelButton.Caption:='Выход';
WizardForm.CancelButton.Width:=ScaleX(100);
WizardForm.CancelButton.Left:=ScaleX(362);
run:=TNewButton.Create(WizardForm);
del:=TNewButton.Create(WizardForm);
Image:=TBitmapImage.Create(WizardForm);
Image.Bitmap.LoadFromFile(s);

with Image do
begin
Align:=alClient;
Parent:=WizardForm.WelcomePage;
Stretch:=True;
end;
with run do
begin
Left:=ScaleX(32);
Top:=WizardForm.CancelButton.top;
Width:=WizardForm.CancelButton.width;
Caption:='Запустить';
Parent:=WizardForm;
OnClick:=@runOnClick;
end;
with del do
begin
Left:=ScaleX(197);
Top:=WizardForm.CancelButton.top;
Width:=WizardForm.CancelButton.width;
Caption:='Удалить';
Parent:=WizardForm;
OnClick:=@delOnClick;
end; end;
end;
end;[/more]

krasnet и Studio13 OutlaW
Могу дать уже готовый код для такого типа инсталлятора! там сами что надо подправить в него уже сделан Флешь заставка и кое чего еще!

---

Может кто подскажет как заместо флешь заставки поставить Лого.exe. Это типа как в короне скине тока это должно быть перед запуском Инсталлятора

Подскажите пожалуйста решение задачи.
Если некоторый файл находится в папке с инсталлятором, то после установки данный файл копируется в папку с устанавливаемой инсталлятором программой.
Заранее спасибо.

kombat 77
Спасибо...все путем.

Unc1e

Спасибо то что надо!!!

elchupakabra
В секции CODE:

procedure CurPageChanged(CurPageID: Integer);
begin
If CurPageID=wpFinished then
begin
filecopy(ExpandConstant('{src}') + 'file.ext',ExpandConstant('{app}') + 'file.ext',false);
end;
end;