[HElmo]

Ещё одна небольшая проблема:
Нужно включить все вложенные папки, сделал вот так вот..

Код:

Source: "D:\GAMES\World of tanks\World_of_Tanks\res_mods\0.7.5\vehicles\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Tankmodels

Но, при установке, инсталлятор распаковывает только подпапки, а саму папку нет.. что делать и как быть?

[Johny777]

Добрые люди!
вот намутил код
при нажатии на айтем всплывающего контекстного меню его название копируется в соответствующий эдит
но иногда нужно приписать соответствующее число (как с текстом +fps_max <число>)
для этого выполняется функция Param_Num

не знаю как не допускать ввод в этот самый эдит букв например через в OnKeyPress). Там могут быть только целые числа (иногда любое чисто кроме нуля а иногда именно что 0 или 1 или 2 или 3)
в общем возможности функции пока что хромают

вот код:

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

Код:

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



[  code]
function GetSystemMenu(hWnd: HWND; bRevert: BOOL): LongWord; external 'GetSystemMenu@user32.dll stdcall';
function DeleteMenu(hMenu: LongWord; uPosition, uFlags: UINT): BOOL; external 'DeleteMenu@user32.dll stdcall';
function GetClassLong(Wnd: HWnd; Index: Integer): Longint; external 'GetClassLongA@user32.dll stdcall';
function SetClassLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetClassLongA@user32.dll stdcall';

var
  Param_Edit: TEdit;
  Param_Button, OK_Button: TButton;
  Param_PopMenu: TPopupMenu;
    
    
procedure Num_Edit_OnChange(Sender:TObject);
begin
  OK_Button.Enabled := TEdit(Sender).Text <> '';
end;
    
    
function Param_Num(Param, Info_Text: String): String;
var
  NumForm: TForm;
  Num_Edit: TEdit;
begin
  Result := '';

  NumForm := TForm.Create(nil);
  with NumForm do
  begin
    ClientWidth := ScaleX(200);
    ClientHeight := ScaleY(90);
    Position := poScreenCenter;
    DeleteMenu(GetSystemMenu(NumForm.Handle,False), $F060,0); /// сделать кнопку "закрыть" неактивной
    SetClassLong(NumForm.Handle, -26, GetClassLong(NumForm.Handle, -26) or $200); /// блокировка комбинации alt + f4
    
    with TLabel.Create(nil) do
    begin
      SetBounds(ScaleX(10), ScaleY(5), ScaleX(207), ScaleY(16));
      Caption := Info_Text;
      Parent := NumForm;
      Font.Size := 8;
    end;
    
    Num_Edit := TNewEdit.Create(nil);
    with Num_Edit do
    begin
      Parent := NumForm;
      SetBounds(ScaleX(10), ScaleY(30), ScaleX(145), ScaleY(21));
      Text := '';
      OnChange := @Num_Edit_OnChange;
    end;

    OK_Button := TButton.Create(nil)
    with OK_Button do     // ok
    begin
      SetBounds(NumForm.ClientWidth - ScaleX(80), ScaleY(60), ScaleX(70), ScaleX(23));
      Parent := NumForm;
      Caption := ExpandConstant(SetupMessage(msgButtonOK));
      ModalResult := mrOk;
      Enabled := False;
    end;

    if ShowModal = mrOk then 
    begin
      Delete(Param,Pos('<число>',Param),Length(Param));
      Result := Param + ' ' + Num_Edit.Text;
    end;

    Free;
  end;
end;

procedure Paste(Sender:TObject);
begin
  case TMenuItem(Sender).Caption of
    '-console':           if Param_Edit.Text = '' then Param_Edit.Text := TMenuItem(Sender).Caption else Param_Edit.Text := Param_Edit.Text + ' ' + TMenuItem(Sender).Caption;
    '+fps_max <число>':   if Param_Edit.Text = '' then Param_Edit.Text := + Param_Num(TMenuItem(Sender).Caption, 'сколько кадров в секунду?') else Param_Edit.Text := Param_Edit.Text + ' ' + Param_Num(TMenuItem(Sender).Caption, 'сколько кадров в секунду?');
    '-dev':               if Param_Edit.Text = '' then Param_Edit.Text := TMenuItem(Sender).Caption else Param_Edit.Text := Param_Edit.Text + ' ' + TMenuItem(Sender).Caption;
    '-gl':                if Param_Edit.Text = '' then Param_Edit.Text := TMenuItem(Sender).Caption else Param_Edit.Text := Param_Edit.Text + ' ' + TMenuItem(Sender).Caption;
  end;
end;

procedure Param_Button_OnClick(Sender:TObject);
var
  pt: TPoint;
begin
  pt := Param_Button.ClientToScreen(pt);
  Param_PopMenu.Popup(pt.x, pt.y);
end;


procedure InitializeWizard();
begin
  WizardForm.OuterNotebook.Hide;

  Param_Edit := TNewEdit.Create(nil);
  with Param_Edit do
  begin
    Parent := WizardForm;
    SetBounds(ScaleX(100), ScaleY(100), ScaleX(145), ScaleY(21));
    Text := '';
  end;
  
  Param_Button := TButton.Create(nil);
  with Param_Button do
  begin
    Parent := WizardForm;
    SetBounds(Param_Edit.Left + Param_Edit.Width + ScaleX(5), Param_Edit.Top, ScaleX(15), Param_Edit.Height);
    Caption := '!';
    Cursor := crHand;
    OnClick := @Param_Button_OnClick;
  end;
  
  Param_PopMenu := NewPopupMenu(WizardForm, 'MyPopupMenu', paLeft, True, [
    NewItem('-console', 0, False, True, @Paste, 11, ''),
    NewLine,
    NewItem('+fps_max <число>', 0, False, True, @Paste, 12, ''),
    NewItem('-dev', 0, False, True, @Paste, 13, ''),
    NewItem('-gl', 0, False, True, @Paste, 14, '')
  ]);
end;

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

HElmo,
может так? (подчеркнул правку)
Source: "D:\GAMES\World of tanks\World_of_Tanks\res_mods\0.7.5\vehicles\*"; DestDir: "{app}\vehicles"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Tankmodels

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

MogilShik2007,
путём создания кастомнго чекбокса
(тк с чеклистбоксами я ещё, образно говоря, не бухал )

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

Код:

#define MyAppExeName "Stronghold.exe"

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


[  Code]
#include "TextModule.iss"

var
  Run_CheckBox: TNewCheckBox;
  Run_Label: TLabelString;
  
procedure Color_Label_OnClick(Sender:TObject);
begin
  if not Run_CheckBox.Checked then
  begin
    Run_CheckBox.Checked := True;
    Exit;
  end else
  begin
    Run_CheckBox.Checked := False;
    Exit;
  end
end;

procedure InitializeWizard();
var
  w, s, h: Integer;
begin 
  Run_CheckBox := TNewCheckBox.Create(nil);
  with Run_CheckBox do
  begin
    Parent := WizardForm.FinishedPage;
    SetBounds(ScaleX(224),ScaleY(248),ScaleX(17),ScaleY(17))
  end;

  w := ScaleX(100); /// ширина
  s := Run_CheckBox.Top + ScaleY(2); /// сверху
  h := Run_CheckBox.Left + ScaleX(17); /// слева
  
  Run_Label := WriteText('[color=$0000ff]Запустить[/color] [b][u][color=$00ff00]Игру[/color][/u][/b]',h,s,w,WizardForm.FinishedPage);

  with TLabel.Create(nil) do
  begin
    SetBounds(h, s, w, ScaleY(17));
    AutoSize := False;
    OnClick := @Color_Label_OnClick;
    Parent := WizardForm.FinishedPage;
    Transparent := True;
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  ErrorCode: Integer;
begin
  if (CurStep = ssDone) and (Run_CheckBox.Checked = True) then Exec(ExpandConstant('{app}\{#MyAppExeName}'), '', ExpandConstant('{app}'), SW_HIDE, ewNoWait, ErrorCode);
end;

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

SatHan,
не думаю что функция рассчитана на протягивание ярлыка от ярлыка (как бы бредово это не звучало)
те в экзешнике может и есть инфа благодаря которой мы имеем правильное назвния а в ярлыке нет

[Tco 03]

Если код каким то образом находит имя и приписывает его к ярлыку - это конечно не понятно от куда берёт. А вот как его задать на своё (Например я хочу чтоб hl.exe назывался не Half-Life а Half-Life-Моя Игра). Как это сделать? »

Ты в этом коде итак задал имя ярлыка:

Код:

Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon

Напиши вместо: {#MyAppName} что хочешь и будет тебе счастье.

Код:

Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\Half-Life - Моя Игра"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon

[SatHan]

не думаю что функция рассчитана на протягивание ярлыка от ярлыка (как бы бредово это не звучало) те в экзешнике может и есть инфа благодаря которой мы имеем правильное назвния а в ярлыке нет »

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

Ты в этом коде итак задал имя ярлык »

причём здесь Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon? её я здесь написал для примера. интересует для windows 7. как в качестве имя ярлыка на панели задач указать в коде препроцессор {#MyAppName}?

Напиши вместо: {#MyAppName} что хочешь и будет тебе счастье. »

с препроцессором как раз проблем нет - там можно любое название написать. даже "Half-Life - Моя Игра". его удобно использовать во многих случаях а не только для названий.

[Tco 03]

Я её тебе тоже для примера написал...
#define NameQuickLaunch "Half-Life - Моя Игра"
...Microsoft\Internet Explorer\Quick Launch\{#NameQuickLaunch}...

[El Sanchez]

Нашел косяк в скрипте Закрепления на панели задач »

Aleksoid1978, в чем именно? Скрипт закрепления ярлыка на панели задач - это порт vbs-сценария, представленного вами (кстати, у вас в примере не используется самое главное - переменная strVerb) и гуляющего в интернете.

если в х64 битной системе и файл расположен по пути "C:\Program Files\..." - то значок программы закреплаяется, но если запустить программу - создается еще один значок, уже запущенной задачи на панели задач, если закрепить из пути "C:\Program Files (x86)\..." - то все ок. Разрядность программы при этом не имеет значения. »

Aleksoid1978, это верно. Гугл выдает, что эта проблема у многих программ возникает. Думаю, что система при вызове кода закрепления ярлыка программы из Program Files, system32 (т.е. для директорий, предназначенных для 64-битных файлов) из 32-битной программы, коей является Inno, тихо редиректит 64-битные директории на 32-битные. Да, созданный ярлык ссылается куда надо, но похоже имеет разные AppID с иконкой запущенного того же самого приложения, поэтому система и не может их сгруппировать. Как-то так, я могу и ошибаться, точнее программисты скажут, которые вплотную работают с API таскбара.

Все получилось, кроме одного - при наличии на панели уже такого ярлыка - создается ярлык типа MPC-BE(2).lnk; »

Aleksoid1978, кстати да, я не учел наличие ярлыка. Исправление:

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

Код:

const
    LOAD_LIBRARY_AS_DATAFILE = $2;

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

function LoadLibraryEx(lpFileName: String; hFile: THandle; dwFlags: DWORD): THandle; external 'LoadLibraryEx{#A}@kernel32.dll stdcall';
function LoadString(hInstance: THandle; uID: SmallInt; var lpBuffer: Char; nBufferMax: Integer): Integer; external 'LoadString{#A}@user32.dll stdcall';
function SHGetNewLinkInfo(pszLinkTo, pszDir: String; var pszName: Char; var pfMustCopy: Longint; uFlags: UINT): BOOL; external 'SHGetNewLinkInfo{#A}@shell32.dll stdcall';

/////////////////////////////////////////////////////////////////////////
function PinToTaskbar(const szFilename: String; IsPin: Boolean): Boolean;
//szFilename: full path to executable file
//IsPin: False - unpin to TaskBar, True - pin from TaskBar
var
    hInst: THandle;
    buf: array [0..255] of Char;
    i, res: Integer;
    strLnk, strVerb: String;
    objShell, colVerbs: Variant;
begin
    Result := False;
    if (GetWindowsVersion < $06010000) or not FileExists(szFilename) then Exit;
    if IsPin then
    begin
        if SHGetNewLinkInfo(szFilename, ExpandConstant('{tmp}'), buf[0], res, 0) then
        begin
            while buf[Length(strLnk)] <> #0 do Insert(buf[Length(strLnk)], strLnk, Length(strLnk)+1);
            if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + ExtractFileName(strLnk)) then Exit;
        end;
        res := 5386;
    end else res := 5387;
    hInst := LoadLibraryEx(ExpandConstant('{sys}\shell32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
    if hInst <> 0 then
    try
        for i := 0 to LoadString(hInst, res, buf[0], 255)-1 do Insert(buf[i], strVerb, i+1);
        try
            objShell := CreateOleObject('Shell.Application');
            colVerbs := objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).Verbs;
            for i := 1 to colVerbs.Count do if CompareText(colVerbs.Item[i].Name, strVerb) = 0 then
            begin
                colVerbs.Item[i].DoIt;
                Result := True;
                Break;
            end;
        except
            Exit;
        end;
    finally
        FreeDLL(hInst);
    end;
end;

не знаю как не допускать ввод в этот самый эдит букв например через в OnKeyPress »

Johny777, напиши в обработчике OnKeyPress:

Код:

if Pos(Key, '0123456789'#8) = 0 then Key := #0;

P.S. Но копипастой все равно можно будет вставить что угодно.

[Gnom_aka_Lexander]

если в х64 битной системе и файл расположен по пути "C:\Program Files\..." - то значок программы закреплаяется, но если запустить программу - создается еще один значок, »

Это нормально. Даже х64 приложения работают с эмуляцией х86. До сих пор. И это не более, чем косяк разработчиков. Обратите внимание, что далеко не все приложения так себя ведут. Поэтому способ добавления значка тут совершенно ни при чем, и работает он вполне корректно. а второй значек - при запуске приложения х64 - создается параллельный поток, в котором запускается тоже самое приложение, но в среде эмуляции х32 ( то, как я это вижу ), отсюда и появление второго значка - процесс-то уже другой.
Поправьте меня, если я не прав.

[Ivan_009]

Как сделать так чтобы если папка не пустая в которую устанавливается игра то выводилось сообщение типа:
Папка установки не пустая пожалуйста выберите другую!

[R.i.m.s.k.y.]

Ivan_009,

Код:

[Setup]
DirExistsWarning=yes

[MogilShik2007]

Помогите со скриптом, чет с чекбоксом не получается:
не отображается текст рядом с чекбоксом и не видит .ехе