[Gnom_aka_Lexander]

mismatched or misplaced quotes on parameter "Filename" »

несоответствие или неуместные кавычки в параметре "Filename"

убери кавычки, у меня их не было.

Filename: {uninstallexe}; »

[AndreY33_80]

А окно при деинсталяции как можно скрыть ?

[Gnom_aka_Lexander]

Код:

[Icons]
Name: {group}\{cm:UninstallProgram, My Application}; Filename: {uninstallexe}; Parameters: /VERYSILENT;

[t16bz]

Возможно ли как-то изменить окно выбора папки установки? Если да, поделитесь, пожалуйста, примером.

[mariolast]

[q=El Sanchez]определение рабочей папки процесса:
« скрыть
Код:

Код:

#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif
const
    TH32CS_SNAPPROCESS = $2;
    INVALID_HANDLE_VALUE = -1;
    PROCESS_QUERY_INFORMATION = $400;
    PROCESS_VM_READ = $10;
    MAX_PATH = 260;

type
    TPROCESSENTRY32 = record
        dwSize, cntUsage, th32ProcessID: DWORD;
        th32DefaultHeapID: Longint;
        th32ModuleID, cntThreads, th32ParentProcessID: DWORD;
        pcPriClassBase: Longint;
        dwFlags: DWORD;
        szExeFile: array [0..259] of char;
    end;

function CreateToolhelp32Snapshot(dwFlags, th32ProcessID: DWORD): THandle; external 'CreateToolhelp32Snapshot@kernel32.dll stdcall';
#ifdef UNICODE
function Process32First(hSnapshot: THandle; var lppe: TPROCESSENTRY32): Boolean; external 'Process32First{#A}@kernel32.dll stdcall';
function Process32Next(hSnapshot: THandle; var lppe: TPROCESSENTRY32): Boolean; external 'Process32Next{#A}@kernel32.dll stdcall';
#else
function Process32First(hSnapshot: THandle; var lppe: TPROCESSENTRY32): Boolean; external 'Process32First@kernel32.dll stdcall';
function Process32Next(hSnapshot: THandle; var lppe: TPROCESSENTRY32): Boolean; external 'Process32Next@kernel32.dll stdcall';
#endif
function CloseHandle(hObject: THandle): BOOL; external 'CloseHandle@kernel32.dll stdcall';
function GetModuleFileNameEx(hProcess: THandle; hModule: Longint; var lpFilename: Char; nSize: DWORD): DWORD; external 'GetModuleFileNameEx{#A}@psapi.dll stdcall';
function OpenProcess(dwDesiredAccess: DWORD; bInheritHandle: BOOL; dwProcessId: DWORD): THandle; external 'OpenProcess@kernel32.dll stdcall';


function GetProcessWorkingDirectory(ProcessName: String): TArrayOfString;
var
    hProcessSnap, hProc: THandle;
    pe32: TPROCESSENTRY32;
    szExeFile: array [0..MAX_PATH-1] of Char;
    szProcName: String;
    i, iLen: Integer;
begin
    SetArrayLength(Result, 0);
    hProcessSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if hProcessSnap = INVALID_HANDLE_VALUE then Exit;
    pe32.dwSize := sizeof(pe32);
    if not Process32First(hProcessSnap, pe32) then Exit;
    while Process32Next(hProcessSnap, pe32) do
    begin
        szProcName := '';
        while not (pe32.szExeFile[Length(szProcName)] = #0) do szProcName := szProcName + pe32.szExeFile[Length(szProcName)];
        if CompareText(szProcName, ProcessName) = 0 then
        begin
            hProc := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, pe32.th32ProcessID);
            iLen := GetModuleFileNameEx(hProc, 0, szExeFile[0], MAX_PATH);
            if iLen > 0 then
            begin
                SetArrayLength(Result, GetArrayLength(Result)+1);
                for i := 0 to iLen-1 do Result[GetArrayLength(Result)-1] := Result[GetArrayLength(Result)-1] + szExeFile[i];
                Result[GetArrayLength(Result)-1] := RemoveBackSlash(ExtractFilePath(Result[GetArrayLength(Result)-1]));
            end;
            CloseHandle(hProc);
        end;
    end;
    CloseHandle(hProcessSnap);
end;

procedure InitializeWizard();
var
    szArray: TArrayOfString;
    i: Integer;
begin
    //хочу знать откуда калькуляторы запущены
    szArray := GetProcessWorkingDirectory('calc.exe');
    if GetArrayLength(szArray) > 0 then for i := 0 to GetArrayLength(szArray)-1 do MsgBox(szArray[i], mbInformation, MB_OK);
end;

С 64-битными процессами не катит. Как пример, калькулятор или ArchiCAD.exe на Windows7-64
ArchiCAD.exe 32-битный видится, 64-битный такой же процесс. нет.
Может кто поправить?

[Gnom_aka_Lexander]

реестр для меня тёмный лес »

Без разницы, в принципе. если запускать деинсталл напрямую - то тихого удаления не будет в любом случае. Тогда уж нужно объединять ярлык и реестр - ярлык дает тихое удаление из меню пуск а реестр - из панели управления.

[Johny777]

Gnom_aka_Lexander,

можно так (спасибо El Sanchez-у)
тихое удаление (с месседжбоксом "Да Нет" вначале и в конце (удаление завершено Ок)):

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

Код:

#define MyAppName "DisksInfo"

[Setup]
AppName=DisksInfo
VersionInfoVersion=7.1
AppVerName=DisksInfo
DefaultDirName={pf}\My program

[code]
function InitializeUninstall(): Boolean;
var
    Errorcode: Integer;
begin
    Result := False;

    if not UninstallSilent then
    begin
        Exec(ExpandConstant('{uninstallexe}'), '/VERYSILENT', '', SW_SHOW, ewNoWait, ErrorCode);
        Exit;
    end;

    if MsgBox(FmtMessage(SetupMessage(msgConfirmUninstall), ['{#MyAppName}']), mbInformation, MB_YESNO) = idYes then
    begin
        Result := True;
        MsgBox(FmtMessage(SetupMessage(msgUninstalledAll), ['{#MyAppName}']), mbInformation, MB_OK);
    end
    else Result := False;
end;

полностью тихое удаление:

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

Код:

[Setup]
AppName=DisksInfo
VersionInfoVersion=7.1
AppVerName=DisksInfo
DefaultDirName={pf}\My program

[code]
function InitializeUninstall(): Boolean;
var
    ErrorCode: Integer;
begin
    Result := False;

    if not UninstallSilent then
    begin
        Exec(ExpandConstant('{uninstallexe}'), '/VERYSILENT', '', SW_SHOW, ewNoWait, ErrorCode);
        Exit;
    end;

    Result := True;
end;

=======================================================================

Возможно ли как-то изменить окно выбора папки установки? Если да, поделитесь, пожалуйста, примером. »

t16bz, выдираю у себя из скрипта!

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

Код:

[Setup]
AppId=The_Most_Beautiful_and_Unicue_AppId_Ever_Made
AppName=The_Best_App
VersionInfoVersion=7.1
AppVerName=The_Best
DefaultDirName={reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1,InstallLocation|{pf}\The_Best_App}


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


[CustomMessages]
Russian.Reset=Сброс
English.Reset=Reset


[code]
var
  BrowseForm: TSetupForm;
  DirTreeView: TFolderTreeView;
  Edit: TNewEdit;


procedure DirFolderChange(Sender: TObject);
begin
  if DirTreeView.Directory <> WizardForm.DirEdit.Text then
  Edit.Text := AddBackslash(DirTreeView.Directory) + '{#SetupSetting("AppName")}' else
  Edit.Text := DirTreeView.Directory;
end;


procedure BrowseForm_Buttons_OnClick(Sender: TObject);
begin
  case TButton(Sender).Tag of
    15: Edit.Text := RemoveBackslashUnlessRoot(ExpandConstant('{#SetupSetting("DefaultDirName")}'));

    16: begin
          DirTreeView.CreateNewDirectory(SetupMessage(msgNewFolderName));
          Edit.Text := AddBackslash(DirTreeView.Directory) + '{#SetupSetting("AppName")}';
        end;

    17: if Edit.Text <> WizardForm.DirEdit.Text then WizardForm.DirEdit.Text := Edit.Text;
  end;
end;



procedure BrowseClick(Sender: TObject);
begin
  BrowseForm := CreateCustomForm();
  with BrowseForm do
  begin
    Width := ScaleX(389);
    Height := ScaleY(390);
    Caption := SetupMessage(msgBrowseDialogTitle);
    CenterInsideControl(WizardForm, False);

    with TLabel.Create(nil) do
    begin
      SetBounds(ScaleX(7), ScaleY(4), ScaleX(207), ScaleY(16));
      Caption := SetupMessage(msgBrowseDialogLabel);
      Parent := BrowseForm;
      Font.Size := 8;
    end;

    DirTreeView := TFolderTreeView.Create(nil)
    with DirTreeView do
    begin
      SetBounds(ScaleX(4), ScaleY(52), ScaleX(376), ScaleY(265));
      OnChange := @DirFolderChange;
      Parent := BrowseForm;
    end;

    Edit := TNewEdit.Create(nil);
    with Edit do
    begin
      SetBounds(ScaleX(4), ScaleY(25), ScaleX(376), ScaleY(21));
      Text := DirTreeView.Directory;
      Parent := BrowseForm;
      Font.Color := clWindowText;
    end;

    with TButton.Create(nil) do
    begin
      SetBounds(ScaleX(4), ScaleY(330), ScaleX(90), ScaleX(22));
      Parent := BrowseForm;
      Caption := SetupMessage(msgButtonCancel);
      Cursor := crHand;
      ModalResult := mrCancel;
    end;

    with TButton.Create(nil) do
    begin
      SetBounds(ScaleX(99), ScaleY(330), ScaleX(90), ScaleY(22));
      Parent := BrowseForm;
      Caption := ExpandConstant('{cm:Reset}');
      Tag := 15;
      Cursor := crHand;
      OnClick := @BrowseForm_Buttons_OnClick;
    end;

    with TButton.Create(nil) do
    begin
      SetBounds(ScaleX(194), ScaleY(330), ScaleX(90), ScaleY(22));
      Parent := BrowseForm;
      Caption := SetupMessage(msgButtonNewFolder);
      Tag := 16;
      Cursor := crHand;
      OnClick := @BrowseForm_Buttons_OnClick;
    end;

    with TButton.Create(nil) do
    begin
      SetBounds(ScaleX(289), ScaleY(330), ScaleX(90), ScaleY(22));
      Parent := BrowseForm;
      Caption := SetupMessage(msgButtonOK);
      Tag := 17;
      OnClick := @BrowseForm_Buttons_OnClick;
      Cursor := crHand;
      ModalResult := mrOk;
    end;

    DirTreeView.ChangeDirectory(AddBackslash(WizardForm.DirEdit.Text), True);
    ShowModal;
    Free;
  end;
end;

procedure InitializeWizard;
begin
  WizardForm.DirBrowseButton.Hide;
  
  with TButton.Create(nil) do
  begin
    Parent := WizardForm.SelectDirPage;
    SetBounds(WizardForm.DirBrowseButton.Left, WizardForm.DirBrowseButton.Top, WizardForm.DirBrowseButton.Width, WizardForm.DirBrowseButton.Height - ScaleY(1));
    Caption := SetupMessage(msgButtonBrowse);
    OnClick := @BrowseClick;
    Cursor := crHand;
  end;
end;

отличия:
у меня по определённым причинам новая папка имеет название New Folder
здесь вернул константу
изменил координаты расположения окна (у меня окно инсталла больше стандартного и поэтому координаты другие)

[L1nk3R]

Привет.
Может кто подскажет,возможно ли как то сделать чтоб при нажатии например на кнопку Button появлялась форма?
На примере этого поста http://forum.oszone.net/post-1954373-453.html, только не выкатывалась а появлялась, ну в общем почти как контекстное меню.

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[Icons]
Name: "{commondesktop}\Моя программа"; Filename: "{app}\MyProg.exe"

[*Code]
var
  Button: TNewButton;
procedure RedesignWizardForm;
begin
  Button := TNewButton.Create(WizardForm);
  with Button do
  begin
    Name := 'Button';
    Parent := WizardForm.SelectProgramGroupPage;
    Left := ScaleX(342);
    Top := ScaleY(104);
    Width := ScaleX(75);
    Height := ScaleY(25);
  end;

  Button.TabOrder := 5;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

Спасибо.

[L1nk3R]

Где посмотреть? Тихое удаление не нужно. Причём тут тихое удаление?
Надо чтоб например рядом с кнопкой [Обзор] была такая кнопочка со стрелочкой при нажатии на которую выпадала форма как контекстное меню. Только чтоб находилась рядом с кнопкой (под кнопкой), чтоб нельзя было двигать и не было крестика закрыть. Кликнул - Открылась, кликнул ещё раз или на основную форму или даже на рабочем столе, то она сама закрылась.

Почти так

Код:

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

[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"

[Icons]
Name: "{group}\My Application"; Filename: "{app}\MyProg.exe"

[*Code]
var
  Button: TNewButton;

procedure Button1Click(Sender: TObject); forward;

function CreateForm: Integer;
begin
  with CreateCustomForm do
  begin
    ClientWidth := ScaleX(256);
    ClientHeight := ScaleY(256);
    Position := poScreenCenter;
    ShowModal;
    Free;
  end;
end;

procedure Button1Click(Sender: TObject);
begin
  CreateForm;
end;

procedure RedesignWizardForm;
begin
  with WizardForm.DirBrowseButton do
  begin
    Left := ScaleX(310);
  end;

  with WizardForm.DirEdit do
  begin
    Width := ScaleX(300);
  end;
  
  Button := TNewButton.Create(WizardForm);
  with Button do
  begin
    Name := 'Button';
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(384);
    Top := ScaleY(67);
    Width := ScaleX(27);
    Height := ScaleY(23);
    Caption := '..';
    OnClick := @Button1Click;
  end;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

но не так.
Даже не знаю как объяснить.

[Johny777]

L1nk3R, ну ты чувак спросил

возможно ли как то сделать чтоб при нажатии например на кнопку Button появлялась форма? »

Где посмотреть? »

во второй половине адресованной товарищу t16bz пример в которм при нажатии на кнопку "обзор" создаётся форма обзора *(кастомная). Это самый точный ответ и был!
теперь я начал понимать...
ты ведь типа такого хочешь (контекстное меню = PopUp Menu выпадает из кнопки)?

пример:

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

Код:

#ifdef IS_ENHANCED
  #if (Ver < 0x5020300) || (Pos('ee', IS_Ver_Str) < 1)
    #pragma error 'Enhanced edition of Inno Setup (5.2.3.ee1 or higher) is required to compile this script'
  #endif
#else
  #error Enhanced edition of Inno Setup (restools) is required to compile this script
#endif

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
SolidCompression=yes
Compression=lzma/ultra	
PrivilegesRequired=none
OutputDir=userdocs:Inno Setup Examples Output

[code]
var
  PupMnu: TPopupMenu;
  btn: TButton;
  
procedure BtnOnClick(Sender: TObject);
var
  p: TPoint;
begin
  p.x := btn.Left;
  p.y := btn.Top + btn.Height;
  p := Wizardform.ClientToScreen(p);
  PupMnu.Popup(p.x, p.y);
end;

procedure Menu1OnClick(Sender: TObject);
begin
  MsgBox('Menu 1 OnClick!', mbInformation, MB_OK);
end;

procedure Menu2OnClick(Sender: TObject);
begin
  MsgBox('Menu 2 OnClick!', mbInformation, MB_OK);
end;

procedure InitializeWizard();
var
  Mnu: TMenuItem;
begin
  PupMnu := TPopupMenu.Create(WizardForm);
  // Menu 1
  Mnu := TMenuItem.Create(WizardForm);
  Mnu.Caption := 'Menu 1';
  Mnu.OnClick := @Menu1OnClick;
  PupMnu.Items.Add(Mnu);
  // Menu 2
  Mnu := TMenuItem.Create(WizardForm);
  Mnu.Caption := 'Menu 2';
  Mnu.OnClick := @Menu2OnClick;
  PupMnu.Items.Add(Mnu);
  // btn
  btn := TButton.Create(WizardForm);
  btn.Caption := 'Popup Menu';
  btn.SetBounds(ScaleX(10), ScaleY(320), ScaleX(100), ScaleY(28));
  btn.Parent := WizardForm;
  btn.OnClick := @BtnOnClick;
  btn.PopupMenu := PupMnu;
end;

и убери пожалуйста оба своих кода дополнительно под спойлер в [more] твой код [/more]