[Noname22]

Для удаления программы достаточно удалить ключ 'Software\Microsoft\Windows\CurrentVersion\Uninstall\Твой_апп_айди'; »

Для справки: Это лишь удалит информацию о установленной программе, но не саму программу. Т.е информация что в системе эта программа не установлена будет ложной, на самом деле программа будет всё равно установлена, поскольку могут быть зарегистрированы какие либо элементы, установлены сертификаты/цифровая подпись, внесены разнообразные ключи реестра и т.д. и т.д. и т.п. Удалением программы управляет сам деинсталлятор и то не полностью.

Вот бывает говорят, программа полностью portable, не оставляет ничего после себя в реестре. Не верно, всё равно оставляет запись о том что эта программа запускалась.

[saurn]

mat_y@vk, добавлю к выше сказанному: можно написать функцию, которая будет искать каталог с игрой по заданому заранее ID с результатом на выходе. Если все условия описаные в функции будут соблюдены, выдирать из реестра путь к целевой папке и использовать его в качестве пути установки, соответственно. А результат возвращаемый функцией использовать для пропуска страницы выбора папки установки. Для большей информативности можно добавить MsgBox с сообщением типа " программа успешно обнаружена, ля-ля, тополя...". Если же функция вернет отрицательный результат, то тогда уже предоставлять пользователю возможность самому указать путь к папке.

[Noname22]

А этот AppId не зависит от установленной винды? »

На сколько знаю нет!

У меня еще вопрос... как можно добавить свои кнопки на 1 страницу со ссылкой в сеть... »

читать дальше »

Код:

[Code]
var
  SiteButton: TNewButton;
  SiteOpenButton: Integer;

procedure SiteButtonClick(Sender: TObject); forward;

procedure InitializeWizard();
begin
  SiteButton := TNewButton.Create(WizardForm);
  with SiteButton do
  begin
    Parent := WizardForm;
    Left := ScaleX(16);
    Top := ScaleY(327);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'Мой сайт';
    OnClick := @SiteButtonClick;
  end;
end;

procedure SiteButtonClick(Sender: TObject);
begin
ShellExec('open', 'http://www.сайт.com/', '', '', SW_SHOWNORMAL, ewNoWait, SiteOpenButton)
end;

обязательно botva.dll? »

Нет!

[saurn]

как можно добавить свои кнопки на 1 страницу со ссылкой в сеть »

*UPD

Пример

Код:

[Code]
var
    urlBtn, addBtn: TButton;


procedure urlOpen(Sender: TObject);
var
    i: Integer;
begin
    case TButton(Sender).Tag of
        0: ShellExec('open', 'http://www.oszone.net/', '', '', 5, ewNoWait, i); //Действие для первой кнопки
        1: ShellExec('open', 'http://www.oszone.net/', '', '', 5, ewNoWait, i); //Действие для второй
    end;
end;

procedure InitializeWizard();
begin
    with WizardForm do
    begin
        urlBtn := TButton.Create(nil); //Первая кнопка
        with urlBtn do
        begin
            Parent := WizardForm;
            SetBounds(ScaleX(12), NextButton.Top, NextButton.Width, NextButton.Height);
            Tag := 0;
            Caption := 'Веб - сайт';
            OnClick := @urlOpen;
        end;

        addBtn := TButton.Create(nil); //Вторая
        with addBtn do
        begin
            Parent := WizardForm;
            SetBounds(urlBtn.Left *8, urlBtn.Top, urlBtn.Width, urlBtn.Height);
            Tag := 1;
            Caption := 'Имя кнопки';
            OnClick := @urlOpen;
        end;
    end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
    urlBtn.Hide;
    addBtn.Hide;

    case CurPageID of
        wpWelcome:
        begin
            urlBtn.Show;
            addBtn.Show;
        end;
    end;
end;

Кнопки показывается только на станице приветствия - на остальных скрыты. Насколько я понял, именно это и нужно.

[mat_y@vk]

Noname22, saurn, а если 2 кнопки, то просто 2 раза это описывать с разными координатами?

[saurn]

а если 2 кнопки, то просто 2 раза это описывать с разными координатами? »

С разными координатами и с разными действиями в обработчике OnClick. Обновленный пример постом выше.

[Noname22]

а если 2 кнопки »

читать дальше »

Код:

[Code]
var
  SiteButton1, SiteButton2: TNewButton;
  SiteOpenButton1, SiteOpenButton2: Integer;
  
procedure SiteButton1Click(Sender: TObject); forward;
procedure SiteButton2Click(Sender: TObject); forward;

procedure InitializeWizard();
begin
  SiteButton1 := TNewButton.Create(WizardForm);
  SiteButton1.Parent := WizardForm;
  SiteButton1.Left := ScaleX(8);
  SiteButton1.Top := ScaleY(327);
  SiteButton1.Width := ScaleX(75);
  SiteButton1.Height := ScaleY(25);
  SiteButton1.Caption := 'Мой сайт 1';
  SiteButton1.OnClick := @SiteButton1Click;

  SiteButton2 := TNewButton.Create(WizardForm);
  SiteButton2.Parent := WizardForm;
  SiteButton2.Left := ScaleX(88);
  SiteButton2.Top := ScaleY(327);
  SiteButton2.Width := ScaleX(75);
  SiteButton2.Height := ScaleY(25);
  SiteButton2.Caption := 'Мой сайт 2';
  SiteButton2.OnClick := @SiteButton2Click;
end;

procedure SiteButton1Click(Sender: TObject);
begin
ShellExec('open', 'http://www.мойсайт1.com/', '', '', SW_SHOWNORMAL, ewNoWait, SiteOpenButton1)
end;

procedure SiteButton2Click(Sender: TObject);
begin
ShellExec('open', 'http://www.мойсайт2.com/', '', '', SW_SHOWNORMAL, ewNoWait, SiteOpenButton2)
end;

[nik1967]

У меня просто тут засада какая-то... ни один фаил справки не открывается... точнее открывается, а текста нет... »

Правой кнопкой на файл справки => разблокировать => применить.

[mat_y@vk]

Правой кнопкой на файл справки => разблокировать => применить. »

Век живи - век учись! Работает!

[Fakt_37]

а как сделать чтоб внизу самого обычного инсталятора была ссылка на сайт? чтоб на неё нажать можно было