[Dodakaedr]

El Sanchez, можно реализовать этот вопрос? http://forum.oszone.net/post-2502130-555.html

[kotyarko@fb]

Как в inno сгенерировать случайное число на 10 цифр? »

Например, так:

Код:

Function InitializeSetup(): Boolean;
var
 I: Integer;
 S: String;
begin
 S := '';
 for I := 0 to 9 do
 begin
  S := S + IntToStr(Random(9));
 end;
 MsgBox(S, mbInformation, MB_OK);
 Result := False;
end;

[Николай_Николаич@vk]

Код: function NextButtonClick(CurPageID: Integer): Boolean; begin Result := True; case CurPageID of wpSelectDir: if DirExists(ExpandConstant('{app}\MyProg')) then MsgBox('bla-bla-bla', mbInformation, MB_OK); end; end; »

С этим вообще ничего не происходит, устанавливается всегда.

[maraby]

А есть еще один вопрос: как можно получить список инстанций MS SQL? Даже не знаю, как и что в гугле спрашивать... Последний раз редактировалось maraby, 05-05-2015 в 15:21.

В общем, получилось
Использовала RegGetValueNames. Единственное, если RootKey указать как HKEY_LOCAL_MACHINE - то возвращает пустой список.
В общем надо указать HKLM64

Вопрос: а если инстанция SQL 32-разрядная?

Код:

 procedure UzupelniNazweInstancjiSQL;
 var
  Names: TArrayOfString;
  I: Integer;
  S: String;

begin
  if RegGetValueNames(HKLM64, 'SOFTWARE\Microsoft\Microsoft SQL Server\Instance Names\SQL', Names) 
  then
  begin
    S := '';
    SerwerInstancja.Items.Clear;
    for I := 0 to GetArrayLength(Names)-1 
    do 
      begin
      S := S + Names[i] + #13#10;
      SerwerInstancja.Items.Add(S);
      end;
  end else
  begin
    // add any code to handle failure here
	MsgBox(' :( ', mbInformation, MB_OK);
  end;
end;

[kotyarko@fb]

а если инстанция SQL 32-разрядная? »

Попробуйте так:

код

Код:

 procedure UzupelniNazweInstancjiSQL;
 var
  Names: TArrayOfString;
  I, RegName: Integer;
  S: String;

begin
 if IsWin64 then
  RegName := HKLM64
 else
  RegName := HKLM32;

  if RegGetValueNames(RegName, 'SOFTWARE\Microsoft\Microsoft SQL Server\Instance Names\SQL', Names)
  then
  begin
    S := '';
    SerwerInstancja.Items.Clear;
    for I := 0 to GetArrayLength(Names)-1
    do
      begin
      S := S + Names[i] + #13#10;
      SerwerInstancja.Items.Add(S);
      end;
  end else
  begin
    // add any code to handle failure here
	MsgBox(' :( ', mbInformation, MB_OK);
  end;
end;

з.ы. вместо HKLM32, вроде, можете использовать просто HKLM.

[maraby]

kotyarko@fb
Спасибо
В принципе ведь нужен список всех инстанций?
поэтому сделала так (правда еще не тестила):

Скрытый текст

Код:

begin
  if RegGetValueNames(HKLM64, 'SOFTWARE\Microsoft\Microsoft SQL Server\Instance Names\SQL', Names64)   
  or RegGetValueNames(HKLM32, 'SOFTWARE\Wow6432Node\Microsoft\Microsoft SQL Server\Instance Names\SQL', Names32) 
  then
  begin
    S := '';
    SerwerInstancja.Items.Clear;
    
    for I := 0 to GetArrayLength(Names64)-1 
    do 
    begin
      SerwerInstancja.Items.Add(Names64[i]+ #13#10);
    end;
    
    for I := 0 to GetArrayLength(Names32)-1 
    do 
      begin
      SerwerInstancja.Items.Add(Names32[i] + #13#10);
      end;
  end else
  begin
    // add any code to handle failure here
	MsgBox(' :( ', mbInformation, MB_OK);
  end;
end;

[El Sanchez]

С этим вообще ничего не происходит, устанавливается всегда. »

Если в папке MyProgram есть папка Prog - то все отлично, если же её нету, то предупреждение в окошке. »

Николай_Николаич@vk, ну, я и сделал предупреждение, сообщил и продолжил далее. Так?

Скрытый текст

Код:

function NextButtonClick(CurPageID: Integer): Boolean;
begin
    Result := True;
    case CurPageID of
        wpSelectDir:
            begin
                Result := not DirExists(ExpandConstant('{app}\MyProg'));
                if not Result then
                    MsgBox('bla-bla-bla', mbInformation, MB_OK);
            end;
    end;
end;

[Николай_Николаич@vk]

ну, я и сделал предупреждение, сообщил и продолжил далее. Так? Скрытый текст Код: function NextButtonClick(CurPageID: Integer): Boolean; begin Result := True; case CurPageID of wpSelectDir: begin Result := not DirExists(ExpandConstant('{app}\MyProg')); if not Result then MsgBox('bla-bla-bla', mbInformation, MB_OK); end; end; end; »

Ну дело в том, что нет предупреждения, независимо от того, если ли папка Prog или нету.

[Dodakaedr]

Николай_Николаич@vk, попробуйте так

Скрытый текст

Код:

[setup]
appname=app
appvername=1.0 app
defaultdirname={sd}\app
DirExistsWarning=no

[Code]
function NextButtonClick(CurPageID: Integer): Boolean;
begin
    Result := True;
    case CurPageID of
        wpSelectDir:
            begin
                Result := DirExists(ExpandConstant('{app}\MyProg'));
                if not Result then
                    MsgBox('bla-bla-bla', mbInformation, MB_OK);
            end;
    end;
end;

[Николай_Николаич@vk]

El Sanchez, Dodakaedr, Спасибо, разобрался.

Не подскажите как брать путь установки из реестра.
Например:
Если в реестре есть только ключ -
SOFTWARE\1
Dir - C:\1

То берем C:\1

А если в реестре есть

SOFTWARE\2
Dir - C:\2

То путь установки будет из 2-го.

если имеется два ключа, путь бы брался из второго - C:\2