[Raz3r]

Подскажите пожалуйста. Везде обыскал, но так и не нашел. Как сделать, чтобы в меню выбора пути установки путь отображался, но его нельзя было бы изменить? Желательно, чтобы можно было только кнопкой обзор изменить.

[Mat_y]

Ребят, кто может помочь удалить из этого кода страницу с выбором компонентов. Сыпет ошибки и сыпет.

[Nordek]

Как сделать, чтобы в меню выбора пути установки путь отображался, но его нельзя было бы изменить? »

Код:

[Code]
procedure InitializeWizard();
begin
  WizardForm.DirEdit.Enabled := False; 
end;

[Uga4aka]

Есть инсталлятор ПО, но без исходников. И его необходимо дополнить. После распаковки инсталлятора, получил исходники. Насколько разобрался, в нем происходит копирование файлов при определенных условиях (версия ОС). Проверка идет командой Check, но самой функции в коде нет фрагмент проблемного кода не подскажете как дописать, что бы все работало. Нашел что есть GetWindowsVersion, GetWindowsVersionEx. Но как прикрутить их в скрипт, не хватает навыков »

решение

function IsVista: Boolean;
{function to check if we are running on Windows Vista}
var
version: TWindowsVersion;
begin
GetWindowsVersionEx(version);
result := false;
if Version.NTPlatform and
(Version.Major = 6) then
result := true;
end;

function IsXP: Boolean;
{function to check if we are running on Windows XP}
var
version: TWindowsVersion;
begin
GetWindowsVersionEx(version);
result := false;
if Version.NTPlatform and
(Version.Major = 5) and
(Version.Minor = 1) then
result := true;
end;

function Is2000: Boolean;
{function to check if we are running on Windows 2000}
var
version: TWindowsVersion;
begin
GetWindowsVersionEx(version);
result := false;
if Version.NTPlatform and
(Version.Major = 5) and
(Version.Minor = 0) then
result := true;
end;
function IsServer: Boolean;
{function to check if we are running on a server}
var
version: TWindowsVersion;
begin
GetWindowsVersionEx(version);
result := false;
if Version.ProductType = VER_NT_SERVER then
result := true;
end;

[FX-DENIS]

Здравствуйте знатоки форума,давно я у вас не просил помощи,El Sanchez помню и SEREGA помню.Проблема вот в чем,у меня скрипт которым я сжимал файлы средствами самого инно мне его Serega подредактировал,я пользовался им полтора года (за что поклон Serege),а тут решил попробовать Free Arc,извлечение из рядом лежащего файла.Все сделал по инструкции вроде,и скачал с сайта библиотеки, но инно ругается на многое,компилирую в Unicod версии.Даже если ошибочные строки закоментировать,то вылазит ошибка такая

и инсталлер после нажатия ок,деинсталируется,но при этом в папку с игрой распаковывается частично файлы из Arc архива,вообщем я отчаялся,помогите

[FX-DENIS]

Вот сам скрипт,потому что текстом не влез,более 33тыс символов FXXXXXXXXXXXXXXXX.zip

[Shkutu]

Приветствую!
Подскажите плиз, разве в инно в [code] нельзя объявлять классы? Например пытаюсь сделать

Код:

type 
TBackUpButton = class(TNewButton)
  property order: integer; read write;
  property connstring: string; read write;
 end;

Ругается на "identifier expected". Причем другие типы (на основе record например) объявляются без проблем.

[tuz-veta]

Привет всем!
подскажите как добавить 2 кнопки для перехода на сайт
вот в этих местах?

[Nordek]

подскажите как добавить 2 кнопки для перехода на сайт вот в этих местах? »

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

Код:

[Code]
var
  ClkSite1: TNewButton;
  ClkSite2: TNewButton;
  ErrorCode : Integer;

procedure URLClk1Click(Sender: TObject); forward;
procedure URLClk2Click(Sender: TObject); forward;

procedure InitializeWizard();
begin
  ClkSite1 := TNewButton.Create(WizardForm);
  with ClkSite1 do
  begin
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(80);
    Top := ScaleY(216);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'Сайт 1';
    OnClick := @URLClk1Click;
  end;

  ClkSite2 := TNewButton.Create(WizardForm);
  with ClkSite2 do
  begin
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(336);
    Top := ScaleY(216);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'Сайт 2';
    OnClick := @URLClk2Click;
  end;
end;

procedure URLClk1Click(Sender: TObject);
begin
  ShellExec('open', 'http://www.ссылканасайт.com/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure URLClk2Click(Sender: TObject);
begin
 ShellExec('open', 'http://www.ссылканасайт.com/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

[tuz-veta]

Nordek,
спасибо большое за скрипт!
но у меня не получается прикрутить к моему скрипту,
выдает ошибку