[insombia]

У когото есть скрипт на кнопки музыки вместе с картинкой?

[actavir]

insombia, http://forum.ru-board.com/topic.cgi?...&limit=1&m=2#1 вот здесь самая первая библиотека bass.dll там же есть скрипт)))

[Gnom_aka_Lexander]

Подскадите, пожалуйста, как на одну кнопку повесить несколько кликов?

Код:

procedure Click(Sender: TObject);
begin
if OnClick then
  TwoClick else OnClick;
end;
................
BackButton.OnClick := @Click;

процедура Click выбивает ошибку на then, мне нужно, чтоб по нажатию на кнопку заменялся ее OnClick
Интересный дефолтный

инсталл

Код:

[Setup] 
AppName=My Application 
AppVersion=1.5 
DefaultDirName={pf}\My Application 

[_Code] 
procedure InitializeWizard(); 
begin 
      WizardForm.Color := clSilver; 
      WizardForm.AutoScroll := False; 
      WizardForm.ClientHeight := ScaleY(395); 
      WizardForm.ClientWidth := ScaleX(635); 

      WizardForm.WizardBitmapImage.Width := ScaleX(170); 
      WizardForm.WizardBitmapImage.Height := WizardForm.ClientHeight; 
      WizardForm.WizardBitmapImage.Parent := WizardForm; 

      WizardForm.OuterNotebook.Left := WizardForm.WizardBitmapImage.Width; 
      WizardForm.OuterNotebook.Width :=  WizardForm.ClientWidth-WizardForm.WizardBitmapImage.Width; 
      WizardForm.OuterNotebook.Height := ScaleY(345); 
      WizardForm.Bevel.Left := WizardForm.WizardBitmapImage.Width; 
      WizardForm.Bevel.Top := WizardForm.OuterNotebook.Height; 
      WizardForm.Bevel.Width := WizardForm.OuterNotebook.Width; 

      WizardForm.InnerNotebook.Left := ScaleX(8); 
      WizardForm.InnerNotebook.Width := WizardForm.OuterNotebook.Width-16; 
      WizardForm.InnerPage.Color := clSilver; 

      WizardForm.MainPanel.Left := WizardForm.WizardBitmapImage.Width; 
      WizardForm.MainPanel.Width := WizardForm.ClientWidth-WizardForm.WizardBitmapImage.Width; 
      WizardForm.MainPanel.Parent := WizardForm; 
      WizardForm.MainPanel.Color := clGray; 

      WizardForm.WizardSmallBitmapImage.Left := WizardForm.MainPanel.Width-WizardForm.WizardSmallBitmapImage.Width; 
      WizardForm.WizardSmallBitmapImage.Top := ScaleY(0); 

      WizardForm.PageDescriptionLabel.Left := ScaleX(32); 
      WizardForm.PageDescriptionLabel.Width := WizardForm.MainPanel.Width-WizardForm.WizardSmallBitmapImage.Width-WizardForm.PageDescriptionLabel.Left; 

      WizardForm.PageNameLabel.Width := WizardForm.MainPanel.Width-WizardForm.WizardSmallBitmapImage.Width-WizardForm.PageNameLabel.Left-10; 

      WizardForm.BeveledLabel.Left := WizardForm.WizardBitmapImage.Width; 
      WizardForm.BeveledLabel.Top := WizardForm.OuterNotebook.Height; 

      WizardForm.CancelButton.Left := ScaleX(535); 
      WizardForm.CancelButton.Top := ScaleY(360); 

      WizardForm.NextButton.Left := ScaleX(445); 
      WizardForm.NextButton.Top := ScaleY(360); 

      WizardForm.BackButton.Left := ScaleX(365); 
      WizardForm.BackButton.Top := ScaleY(360); 

      WizardForm.WelcomePage.Color := clSilver; 

      WizardForm.WelcomeLabel2.Left := ScaleX(16); 
      WizardForm.WelcomeLabel2.Top := ScaleY(167); 
      WizardForm.WelcomeLabel2.Width := ScaleX(437); 
      WizardForm.WelcomeLabel2.Height := ScaleY(135); 

      WizardForm.WelcomeLabel1.Parent := WizardForm.MainPanel; 
      WizardForm.WelcomeLabel1.Left := ScaleX(0); 
      WizardForm.WelcomeLabel1.Top := ScaleY(20); 
      WizardForm.WelcomeLabel1.Width := WizardForm.MainPanel.Width; 

      WizardForm.LicenseNotAcceptedRadio.Left := ScaleX(24); 

      WizardForm.LicenseAcceptedRadio.Left := ScaleX(24); 

      WizardForm.LicenseMemo.Width := WizardForm.InnerNotebook.Width; 

      WizardForm.DirBrowseButton.Left := ScaleX(366); 
      WizardForm.DirBrowseButton.Top := ScaleY(81); 
      WizardForm.DiskSpaceLabel.Top := ScaleY(112); 
      WizardForm.GroupBrowseButton.Left := ScaleX(366); 
      WizardForm.GroupBrowseButton.Top := ScaleY(214); 
      WizardForm.GroupBrowseButton.Parent := WizardForm.SelectDirPage; 

      WizardForm.DirEdit.Left := ScaleX(24); 
      WizardForm.GroupEdit.Left := ScaleX(24); 
      WizardForm.GroupEdit.Top := ScaleY(216); 
      WizardForm.GroupEdit.Parent := WizardForm.SelectDirPage; 

      WizardForm.SelectGroupBitmapImage.Top := ScaleY(136); 
      WizardForm.SelectGroupBitmapImage.Parent := WizardForm.SelectDirPage; 

      WizardForm.NoIconsCheck.Top := ScaleY(220); 
      WizardForm.NoIconsCheck.Parent := WizardForm.SelectDirPage; 

      WizardForm.SelectStartMenuFolderBrowseLabel.Parent := WizardForm.SelectDirPage; 
      WizardForm.SelectStartMenuFolderBrowseLabel.Top := ScaleY(180); 

      WizardForm.SelectStartMenuFolderLabel.Parent := WizardForm.SelectDirPage; 
      WizardForm.SelectStartMenuFolderLabel.Top := ScaleY(145); 
end; 

procedure CurPageChanged(CurPageID: Integer); 
begin 
    if CurPageID = wpWelcome then WizardForm.WizardSmallBitmapImage.Hide else WizardForm.WizardSmallBitmapImage.Show; 
    if CurPageID = wpWelcome then WizardForm.WelcomeLabel1.Show else WizardForm.WelcomeLabel1.Hide; 
end;

может кому пригодится в качестве базы

[insombia]

Как разделить установку на 2 диска чтобы каждый занимал по 4 30 гб хотябы?

[Serega]

как на одну кнопку повесить несколько кликов? »

Один из вариантов, это задавать свойство Tag := 0, 1 и так далее, выполняешь какой-то код, затем меняешь значения при каждом клике:

Пример

Код:

procedure Click(Sender: TObject);
begin
  case TButton(Sender).Tag of
    0:begin
        { выполняем какой-то код... }
        { присваиваем новое значение }
        TButton(Sender).Tag := 1;
      end;
    1:begin
        { выполняем какой-то код... }
        { присваиваем новое значение }
        TButton(Sender).Tag := 0;
      end;
  end;
  { для примера, отобразим в зоголовке }
  WizardForm.Caption := 'BackButton.Tag := ' + IntToStr(TButton(Sender).Tag);
end;

процедура Click выбивает ошибку на then, мне нужно, чтоб по нажатию на кнопку заменялся ее OnClick »

Ну допустим на then ошибки быть не может, компилятор вам просто говорит, что для проверки условия данных не достаточно и тем более не понятно, что такое if OnClick then.
Если меняете стандартные функции кнопок, то лучше использовать их родные, такие как function BackButtonClick(CurPageID: Integer): Boolean;, а уже в них разрешать выполнение, либо запрещать.

[Arsi000]

как сделать так чтобы установщик дополнения брал значение в реестре и если его нет писал бы сообщение что прога не установлена вот мой пример только как то его доработать бы надо не знаю как. да и кстати устанавлиивать он должен из внешней папки
[Files]
Source: {src}\Content - Installer Data\*; DestDir: "{code:getData}"; Flags: skipifsourcedoesntexist ignoreversion external

Код:

 
function getData(S:String): String; 
var 
    InsPath: String;
    Reg: boolean;     
begin 
    Reg := RegQueryStringValue(HKLM, 'SOFTWARE\Mycompany\Myproga, 'InstallPath', InsPath); 
 Result := InsPath; 
end;

[Habetdin]

Arsi000, как-то так

Код:

[Files]
Source: {src}\Content - Installer Data\*; DestDir: "{reg:HKLM\SOFTWARE\My Company\My Program,InstallPath|{pf}\My Program}"; Flags: skipifsourcedoesntexist ignoreversion external

[code]
function DetectInstallRegKey: Boolean;
var
  Path: string;
begin
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\My Company\My Program', 'InstallPath', Path) then
    if Path <> '' then
      Result:= True
    else
      Result:= False;
end;

function InitializeSetup(): Boolean;
begin
  Result:= DetectInstallRegKey;
  if Result = False then
  MsgBox('На вашем компьютере не найдена программа My Program.' + #13#10
         'Установка дополнения к My Program невозможна!', mbInformation, MB_OK);
end;

[LordSP]

Ребят есть вопрос: Как в этом скрипте:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=userdocs:InnoSetupTest.

[CustomMessages]
ProgressBar_Caption=ProgressBar Caption
ProgressBar_Description=ProgressBar Description

[code]
var
DSProgressBar: TNewProgressBar;

{ ProgressBar_Activate }

procedure ProgressBar_Activate(Page: TWizardPage);
begin
// enter code here...
end;

{ ProgressBar_ShouldSkipPage }

function ProgressBar_ShouldSkipPage(Page: TWizardPage): Boolean;
begin
Result := False;
end;

{ ProgressBar_BackButtonClick }

function ProgressBar_BackButtonClick(Page: TWizardPage): Boolean;
begin
Result := True;
end;

{ ProgressBar_NextkButtonClick }

function ProgressBar_NextButtonClick(Page: TWizardPage): Boolean;
begin
Result := True;
end;

{ ProgressBar_CancelButtonClick }

procedure ProgressBar_CancelButtonClick(Page: TWizardPage; var Cancel, Confirm: Boolean);
begin
// enter code here...
end;

{ ProgressBar_CreatePage }

function ProgressBar_CreatePage(PreviousPageId: Integer): Integer;
var
Page: TWizardPage;
begin
Page := CreateCustomPage(
PreviousPageId,
ExpandConstant('{cm:ProgressBar_Caption}'),
ExpandConstant('{cm:ProgressBar_Description}')
);

{ DSProgressBar }
DSProgressBar := TNewProgressBar.Create(Page);
with DSProgressBar do
begin
Parent := Page.Surface;
Left := ScaleX(0);
Top := ScaleY(88);
Width := ScaleX(413);
Height := ScaleY(49);
Min := 0;
Max := 100;
end;

with Page do
begin
OnActivate := @ProgressBar_Activate;
OnShouldSkipPage := @ProgressBar_ShouldSkipPage;
OnBackButtonClick := @ProgressBar_BackButtonClick;
OnNextButtonClick := @ProgressBar_NextButtonClick;
OnCancelButtonClick := @ProgressBar_CancelButtonClick;
end;

Result := Page.ID;
end;

{ ProgressBar_InitializeWizard }

procedure InitializeWizard();
begin
ProgressBar_CreatePage(wpInstalling);
end;

Заменить стандартный прогресс-бар,тем что появляется в конце страницы,пробовал wpInstalling,не помогло,появляется,сразу после установки...Please Help!

[LordSP]

Ребят есть вопрос: Как в этом скрипте:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=userdocs:InnoSetupTest.

[CustomMessages]
ProgressBar_Caption=ProgressBar Caption
ProgressBar_Description=ProgressBar Description

[code]
var
DSProgressBar: TNewProgressBar;

{ ProgressBar_Activate }

procedure ProgressBar_Activate(Page: TWizardPage);
begin
// enter code here...
end;

{ ProgressBar_ShouldSkipPage }

function ProgressBar_ShouldSkipPage(Page: TWizardPage): Boolean;
begin
Result := False;
end;

{ ProgressBar_BackButtonClick }

function ProgressBar_BackButtonClick(Page: TWizardPage): Boolean;
begin
Result := True;
end;

{ ProgressBar_NextkButtonClick }

function ProgressBar_NextButtonClick(Page: TWizardPage): Boolean;
begin
Result := True;
end;

{ ProgressBar_CancelButtonClick }

procedure ProgressBar_CancelButtonClick(Page: TWizardPage; var Cancel, Confirm: Boolean);
begin
// enter code here...
end;

{ ProgressBar_CreatePage }

function ProgressBar_CreatePage(PreviousPageId: Integer): Integer;
var
Page: TWizardPage;
begin
Page := CreateCustomPage(
PreviousPageId,
ExpandConstant('{cm:ProgressBar_Caption}'),
ExpandConstant('{cm:ProgressBar_Description}')
);

{ DSProgressBar }
DSProgressBar := TNewProgressBar.Create(Page);
with DSProgressBar do
begin
Parent := Page.Surface;
Left := ScaleX(0);
Top := ScaleY(88);
Width := ScaleX(413);
Height := ScaleY(49);
Min := 0;
Max := 100;
end;

with Page do
begin
OnActivate := @ProgressBar_Activate;
OnShouldSkipPage := @ProgressBar_ShouldSkipPage;
OnBackButtonClick := @ProgressBar_BackButtonClick;
OnNextButtonClick := @ProgressBar_NextButtonClick;
OnCancelButtonClick := @ProgressBar_CancelButtonClick;
end;

Result := Page.ID;
end;

{ ProgressBar_InitializeWizard }

procedure InitializeWizard();
begin
ProgressBar_CreatePage(wpInstalling);
end;

Заменить стандартный прогресс-бар,тем что появляется в конце страницы,пробовал wpInstalling,не помогло,появляется,сразу после установки...Please Help!

[LinkOFF]

как мне после установки была галка "посетить сайт" и выйти туда