[Gnom_aka_Lexander]

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

[rasim933]

О, спасибо. Сделал, щяс пробую проверить.

[R.i.m.s.k.y.]

можешь протестировать? »

не я формы не знаю

rasim933
я тебе ужо говорил же, rft глотают все ОС все даже без прог-ридеров

а AppID если не знаешь можно дернуть через регшот, ставишь прогу оригинальным инсталлятором и сморишь через регшот куда что прописывается

[rasim933]

С rtf проблема, незнаю как у R.i.m.s.k.y., но у мя картинки не показываются, а мне это не нравится. Оригинального инсталятора в природе нет. Я взял образ игры от PS1 запихал в ппку с эмулем. К сожалению я незнаю что ткое регшот.

Я сгенерировал этот AppID, вставил вроде куда нужно, 1 раз неполучилось. Снова пробую.

[rasim933]

Дефнстолятор наладал

[rasim933]

Я собрал свою игру. Пришлось отказаться от выбора *.docx файлов. Они сами открываются после окончания установки.

Спасибо большое всем кто мне помогал. Без вас, я бы несправился!


Нашол я где-то вот такой скрипт:

Код:

[Setup] 
AppName=AppName 
AppVerName=AppVerName 
DefaultDirName={pf}\My Program 

[Dirs] 
Name: "{app}"; Attribs: system; AfterInstall: CreateIni(); 

[Files] 
Source: Files\icon.ico; DestDir: {app} 

[Codee] 
procedure CreateIni(); 
begin 
SaveStringsToFile(ExpandConstant('{app}\Desktop.ini'), ['[.ShellClassInfo]', 
'IconFile=%SystemRoot%\system32\SHELL32.dll', 
'IconIndex=27'], False) 
end;

Он должен заставить распакованную папку поменять свою иконку.

При первом скрипте всё работает нормально, но при мною переланном неработает:

Код:

[Dirs]
Name: "{app}"; Attribs: system; AfterInstall: CreateIni();

[Files]
Source: "C:\Users\User\Desktop\Новая папка\pSX_1_13\icon.ico*"; DestDir: {app}

[Codee]
procedure CreateIni();
begin
SaveStringsToFile(ExpandConstant('{app}\Folder ico.ini'), ['[.ShellClassInfo]',
'IconFile="C:\Users\User\Desktop\Новая папка\pSX_1_13\icon.ico*"',
'IconIndex=27'], True)
end;

Что я нетак сделал?

[Johny777]

Что я нетак сделал? »

не знаю что там у тебя
вот так у меня работает (сам использую у себя в скрипте).
Может, что то лишнее...
пофиг


[Files]
Source: "combine_icon.ico"; DestDir: {app}; Attribs: hidden system - это значок
Source: "desktop.ini"; DestDir: {app}; Attribs: system hidden - заранее настроенный ини

[Dirs]
Name: "{app}"; Attribs: system; AfterInstall: CreateIni();

[_code]
procedure CreateIni();
begin
SaveStringsToFile(ExpandConstant('{app}\Desktop.ini'), ['[.ShellClassInfo]',
'IconFile=combine_icon.ico',
'IconIndex=0'], False)
end;

в самом файле ини вписано
[.ShellClassInfo]
IconResource=combine_icon.ico
IconIndex=0

[rasim933]

Попробую. В картинке ошибочно ввел create

[code]

Код:

Var
Text: TNewStaticText;

Procedure InitializeWizard();
begin
Text:=TNewStaticText.Create(WizardForm)
Text.Left:=10
Text.Top:=468
Text.Color:=$dbcdcc
Text.Font.Color:=$ab663d
Text.Caption:='мой текст'
Text.Parent:=WizardForm
end;

Програма ругается: Зачем так-то? Вроде всё верно.


Johny777, я знаю, уже надоел. Но и на твой код тоже ругается:

Код:

[Files]
Source: "icon.ico"; DestDir: {app}; Attribs: hidden system
Source: "desktop.ini"; DestDir: {app}; Attribs: system hidden

[Dirs]
Name: "{app}"; Attribs: system; AfterInstall: CreateIni();

[_code]
procedure CreateIni();
begin
SaveStringsToFile(ExpandConstant('{app}\Desktop.ini'), ['[.ShellClassInfo]',
'IconFile=icon.ico',
'IconIndex=0'], False)
end;

[Johny777]

[_ code] не равно [code]
_ сотри
и почему у тебя два раза [Files] в скрипте?

[Gnom_aka_Lexander]

Что я нетак сделал? »

Folder ico.ini »

Вот здесь не так. Система ищет файл Desktop.ini и ей глубоко плевать на твой Folder ico.ini