толко readmi не показывать (сам редми показывает, толко файл не показывает)
Elka80
{app} - папка установки
ReadmeFile.txt - имя файла, запускаемый ярлыком
возможно у вас Readme.txt


Код: Выделить всё
name "myname"
commanda_primer "9"Код: Выделить всё
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[Tasks]
Name: cfg; Description: Использовать ваш файл настроек; GroupDescription: Дополнительно:; Flags: unchecked
[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Tasks: cfg
[UninstallDelete]
Name: {app}; Type: filesandordirs
[Code]
var
str: string;
btn: TButton;
edt: TEdit;
text1, text2: TNewstatictext;
procedure TasksListOnClick(Sender: TObject);
begin
if IsTaskSelected('cfg') then
begin
btn.Enabled:= True;
edt.Enabled:= True;
edt.Color:= clWindow;
end
else
begin
btn.Enabled:= False;
edt.Enabled:= False;
edt.Color:= clBtnFace;
edt.Clear;
end;
end;
procedure btnOnClick(Sender: TObject);
var
S: TArrayOfString;
i: Integer;
begin
if GetOpenFileName('', str, ExpandConstant('{srcexe}'), 'Файл настроек (*.cfg)|*.cfg', '') then
if str '' then
begin
edt.Text:= str;
if LoadStringsFromFile(str, S) then
begin
for i:= 0 to GetArrayLength(S)-1 do
begin
if Pos('name "myname"', S[i]) > 0 then
text1.Caption:= 'Строка № ' + IntToStr(i)+ ': ' + S[i];
if Pos('commanda_primer "9"', S[i]) > 0 then
text2.Caption:= 'Строка № ' + IntToStr(i)+ ': ' + S[i];
end;
end;
end;
end;
procedure InitializeWizard();
begin
btn:= TButton.Create(WizardForm);
with btn do
begin
SetBounds(330, 83, 75, 25);
Caption:= 'Обзор';
OnClick:= @btnOnClick;
Enabled:= False;
Parent:= WizardForm.SelectTasksPage;
end;
edt:= TEdit.Create(WizardForm);
with edt do
begin
SetBounds(20, 85, 300, 23);
Enabled:= False;
Color:= clBtnFace;
Parent:= WizardForm.SelectTasksPage;
end;
text1:= TNewstatictext.Create(WizardForm);
with text1 do
begin
SetBounds(20, 110, 300, 23);
AutoSize:= True;
Parent:= WizardForm.SelectTasksPage;
end;
text2:= TNewstatictext.Create(WizardForm);
with text2 do
begin
SetBounds(20, 130, 300, 23);
AutoSize:= True;
Parent:= WizardForm.SelectTasksPage;
end;
WizardForm.TasksList.OnClickCheck:= @TasksListOnClick;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID > wpInstalling then
begin
if IsTaskSelected('cfg') then
if str '' then
FileCopy(str, ExpandConstant('{app}\config.cfg'), False);
end;
end;