[habib2302]

люди помогите мне.я делаю русификатор.как сделать так,чтобы инсталятор сам определил где в какой папке находтся программа?

[saurn]

habib2302,
Указываете в качестве DefaultDirName ключ реестра, содержащий информацию о рабочей папки программы.

Код:

DefaultDirName={reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1,InstallLocation|{pf}\My Program}

[vint56]

habib2302,

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

Вариант1
[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={code:GetInstallDir}
AppendDefaultDirName=no

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[code]
Function GetInstallDir(Path: String ): String;
begin
RegQueryStringValue(HKLM, 'SOFTWARE\Rockstar Games\EFLC', 'InstallPath', Path);//Какой ключ реестра ищет ...
Result := Path;
end;

function InitializeSetup(): Boolean;
begin
Result:= true;
if not RegKeyExists(HKLM, 'SOFTWARE\Rockstar Games\EFLC') then
MsgBox('Игра {#SetupSetting("AppName")} не найдена! Укажите путь к папке с игрой вручную!', mbinformation, mb_ok);
end;

Вариант 2:
[Setup]
AppName=GetDeviceInfo
AppVerName=GetDeviceInfo
DefaultDirName={code:GetInstallDir}

[code]
Function GetInstallDir( AppID: String ): String; var dir: String;
begin
if not RegQueryStringValue(HKLM, 'SOFTWARE\Company\ProgramNamePro', 'InstallLocation', dir) then
RegQueryStringValue(HKLM, 'SOFTWARE\Company\ProgramNameLight', 'InstallLocation', dir);
Result:= dir;
end;

function InitializeSetup(): Boolean;
begin
Result:= True;
if not RegKeyExists(HKLM, 'SOFTWARE\Company\ProgramNamePro') then
begin
if not RegKeyExists(HKLM, 'SOFTWARE\Company\ProgramNameLight') then
begin
MsgBox('Программа не найдена!', mberror, mb_ok);
Result:=False;
end;
end;
end;

[Gnom_aka_Lexander]

vint56, более корректно все-таки, это делать по AppID.да и гемора гораздо меньше. Меньше кода - меньше ошибок и глюков. Да и подавляющее большинство пачей, дополнений и тому подобной дряни - ищут программу именно по AppID в разделе Uninstall.

[41275jur]

Спасибо всем за помощь.

страничка с двумя эдитами - кастомная страница, создавать нужно в секции [code] »

Это мой первый скрипт и секция [code] для меня пока сильно сложная. Буду пробовать ваять.
Пока у меня получилось только это

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

[code]

Код:

var
  DataDirPage: TInputDirWizardPage;
  
procedure InitializeWizard;
begin
  { Create the pages }
  
   DataDirPage := CreateInputDirPage(wpSelectDir,
    'Параметры по умолчанию', 'Установка папки по умолчанию',
    'Чтобы продолжить, нажмите кнопку Далее. Если вы хотите выбрать различные папки, нажмите кнопку Обзор',
    False, 'D:\');
  DataDirPage.Add('');

  { Set default values, using settings that were stored last time if possible }

  DataDirPage.Values[0] := GetPreviousData('DataDir', '');
end;

procedure RegisterPreviousData(PreviousDataKey: Integer);
var
  UsageMode: String;
begin
  { Store the settings so we can restore them next time }
  SetPreviousData(PreviousDataKey, 'UsageMode', UsageMode);
  SetPreviousData(PreviousDataKey, 'DataDir', DataDirPage.Values[0]);
end;

И то папка по умолчанию не ставится и не знаю как добавить ниже текст и эдитам.

Подскажите еще где нужно исправить в скрипте, что бы программа перед установкой определяла установлена ли программа (AviSynth) или нет. Если не установлена, то запускала установку.

[41275jur]

Подскажите как сделать эти два файла скрытыми

Код:

[Files]
Source: {app}\Dvd_icon.ICO; DestDir: {app}; Flags: ignoreversion
Source: {app}\Dvd_uninstall.ico; DestDir: {app}; Flags: ignoreversion

[Gnom_aka_Lexander]

41275jur, hidden добавить во флаги. в справке-же есть.

[saurn]

И то папка по умолчанию не ставится и не знаю как добавить ниже текст и эдитам. Подскажите еще где нужно исправить в скрипте, что бы программа перед установкой определяла установлена ли программа (AviSynth) или нет. Если не установлена, то запускала установку. »

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

Код:

[Code]
var
  DataDirPage: TInputDirWizardPage;

function InitializeSetup(): Boolean;
begin
  if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1') then
  begin
    MsgBoxEx(0, 'Данная программа уже установленна', '', MB_OK, 0, 0)
    Result := False
  end else
    Result := True;
end;

procedure InitializeWizard;
begin
  DataDirPage := CreateInputDirPage(wpSelectDir, 'Параметры по умолчанию', 'Установка папки по умолчанию', 'Чтобы продолжить, нажмите кнопку Далее. Если вы хотите выбрать различные папки, нажмите кнопку Обзор', False, '');
  DataDirPage.Add('');
  DataDirPage.Add('');

  DataDirPage.Values[0] := 'D:\';
  DataDirPage.Values[1] := 'D:\';
end;

Подскажите как сделать эти два файла скрытыми »

Код:

[Files]
Source: {app}\Dvd_icon.ICO; DestDir: {app}; Flags: ignoreversion; attribs: hidden;
Source: {app}\Dvd_uninstall.ico; DestDir: {app}; Flags: ignoreversion; attribs: hidden;

Советую прикрутить сюда код для автоопределения диска установки из шапки http://forum.oszone.net/post-1217528-97.html , мало ли, вдруг у конечного пользователя не будет диска D

[El Sanchez]

{code:settingsdir|workdir} - что оно обозначает »

41275jur, означает, что строковая константа есть результат функции settingsdir(param: String): String со значением переданного в нее строкового параметра, равным 'workdir', и описанной в секции Code. Подробнее: Inno Setup Help - Pascal Scripting - Scripted Constants.

В реестре оригинальный инсталлятор прописывает ключ Код: [HKEY_LOCAL_MACHINE\SOFTWARE\DVD Rebuilder] "Working_Path"="D:\\" "Output_Path"="D:\\" »

SetPreviousData(PreviousDataKey, 'UsageMode', UsageMode); SetPreviousData(PreviousDataKey, 'DataDir', DataDirPage.Values[0]); »

Оригинальный инсталлятор читает эти пути из своего раздела реестра, необходимости в SetPreviousData нет, значение по умолчанию (D:\) не должно быть жестко заданным, у пользователя может оказаться только один логический диск. Можно взять первый логический диск после системного, а при отсутствии других дисков кроме системного брать сам системный. По крайней мере так я и реализовал.

что бы программа перед установкой определяла установлена ли программа (AviSynth) или нет. Если не установлена, то запускала установку. »

41275jur, оригинал лезет в реестр в раздел деинсталлятора AviSynth и проверяет на пустое значение параметр DisplayName. Такой подход провалится, если программы на компе уже нет, а реестровые хвосты остались, поэтому лучше находить в реестре параметр, содержащий путь, и по полученному пути определить жив ли какой-либо файл по этому пути. Такая двойная проверка увеличивает шансы корректного определения наличия программы. У Inno немного таких параметров с путями, первый - InstallLocation - выдаст программную папку приложения, в ней уже можно проверить наличие или отсутствие, скажем, главного исполняемого файла программы, второй - UninstallString - выдаст полный путь к файлу деинсталлятора. У AviSynth в наличии только параметр UninstallString, его-то и будем использовать.

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

Код:

[Code]
#define A = (Defined UNICODE) ? "W" : "A"

const
    MAX_PATH = 260;
    DRIVE_FIXED = 3;

function GetLogicalDriveStrings(nBufferLength: DWORD; var lpBuffer: Char): DWORD; external 'GetLogicalDriveStrings{#A}@kernel32.dll stdcall';
function GetDriveType(lpRootPathName: String): UINT; external 'GetDriveType{#A}@kernel32.dll stdcall';

var
    FoldersPage: TInputDirWizardPage;

//////////////////////////////////////////////////
function settingsdir(const param: String): String;
begin
    case param of
        'workdir': Result := FoldersPage.Values[0];
        'finishdir': Result := FoldersPage.Values[1];
    end;
end;

/////////////////////////////////////////////////////////////////
function GetFirstDriveAfterSystem(const Default: String): String;
var
    i: Integer;
    buf: array [0..MAX_PATH-1] of Char;
begin
    Result := Default;
    while i < GetLogicalDriveStrings(SizeOf(buf), buf[0])-3 do
    begin
        Result := Format('%s:\', [buf[i]]);
        if (GetDriveType(Result) = DRIVE_FIXED) and (CompareText(Result, Default) <> 0) then Break;
        i := i + 4;
    end;
end;

/////////////////////////////
procedure InitializeWizard();
begin
    FoldersPage := CreateInputDirPage(wpSelectProgramGroup, CustomMessage('titleset'), CustomMessage('explset'), SetupMessage(msgSelectDirBrowseLabel), False, '');
    FoldersPage.Add(CustomMessage('WorkFolder'));
    FoldersPage.Add(CustomMessage('OutFolder'));
    FoldersPage.Values[0] := ExpandConstant('{reg:HKLM\SOFTWARE\DVD Rebuilder,Working_Path|{code:GetFirstDriveAfterSystem|{sd}\}}');
    FoldersPage.Values[1] := ExpandConstant('{reg:HKLM\SOFTWARE\DVD Rebuilder,Output_Path|{code:GetFirstDriveAfterSystem|{sd}\}}');
end;

////////////////////////////////////
function InitializeSetup(): Boolean;
var
    ResultCode: Integer;
begin
    Result := FileExists(RemoveQuotes(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\AviSynth,UninstallString|}')));
    if not Result then
    begin
        if MsgBox(ExpandConstant('{cm:noAviSynth1}{cm:noAviSynth2}{cm:noAviSynth3}{cm:noAviSynth4}'), mbError, MB_YESNO) = IDYES then
        begin
            ExtractTemporaryFile('AviSynth_255.exe');
            Exec(ExpandConstant('{tmp}\AviSynth_255.exe'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
            Result := ResultCode = 0;
            if not Result then MsgBox(ExpandConstant('{cm:noAviSynth5}{cm:noAviSynth6}{cm:noAviSynth7}{cm:noAviSynth8}'), mbError, MB_OK);
        end;
    end;
end;

[Johny777]

портировал с делфи интересную функцию ( GetEnvironmentVariable(...) ), кому надо забирайте:

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

Код:

[code]
#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

//  Environment Variables:

//  ALLUSERSPROFILE
//  APPDATA
//  BDS
//  CLIENTNAME
//  CommonProgramFiles
//  COMPUTERNAME
//  ComSpec
//  Cor_Debugging_Control_424242
//  DBCONFIG
//  DBROOT
//  DBWORK
//  HOMEDRIVE
//  HOMEPATH
//  INCLUDE
//  LIB
//  LOGONSERVER
//  NUMBER_OF_PROCESSORS
//  OS_ROOTDIR
//  OS_TMPDIR
//  OS
//  Path
//  PATHEXT
//  PROCESSOR_ARCHITECTURE
//  PROCESSOR_IDENTIFIER
//  PROCESSOR_LEVEL
//  PROCESSOR_REVISION
//  ProgramFiles
//  SESSIONNAME
//  SystemDrive
//  SystemRoot
//  TEMP
//  TMP
//  USERDOMAIN
//  USERNAME
//  USERPROFILE
//  windir

function GetEnvironmentVariable(lpName, lpBuffer: String; nSize: DWORD): DWORD; external 'GetEnvironmentVariable{#A}@kernel32.dll stdcall';

function GetEnvVar(const VariableName: String): String;
var
    Len: DWORD;
begin
    Len := GetEnvironmentVariable(VariableName, '', 0);
    if Len > 0 then
    begin
        SetLength(Result, Len);
        GetEnvironmentVariable(VariableName, Result, Len);
    end;
end;


procedure InitializeWizard();
begin
    MsgBox(GetEnvVar('PROCESSOR_IDENTIFIER'), mbInformation, MB_OK);
end;