[ABBAT]

Johny777, низкий поклон Вам за помощь с скриптами (удачи будте Счастливы )

[evoll@vk]

помогите распотрошить и воссоздать полностью этот инсталлер как есть.

Код:

http://rghost.ru/45906542

[audiofeel]

evoll@vk, да вроде ни че там такого нет (нужно что то конкретное узнать, )
там прекомп 038, унарк 2010 года, да рт консоль. Вам что нужно внешнее сходство без исдон или с исдон

[evoll@vk]

evoll@vk, да вроде ни че там такого нет (нужно что то конкретное узнать, ) там прекомп 038, унарк 2010 года, да рт консоль. Вам что нужно внешнее сходство без исдон или с исдон »

у меня банально почему то не выходит правильно распаковать чтобы был правильный iss

[insombia]

evoll@vk примерно так как тебе нужно,http://rghost.ru/45911273
добавишь isdone,примеры для текстурирования папок есть в закосе под механиков

[saurn]

Всем привет. С прошедшими праздниками! В шапке есть пример http://forum.oszone.net/post-1444931-2009.html по закреплению ярлыка в панели задач семерки. Вопрос, как сделать так, чтобы процедура выполнения *.vbs пропускалась, если такой ярлык уже есть. Пробовал так:

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

Код:

if not FileExists(AddBackslash(ExpandConstant('{userappdata}')) + AddBackslash('Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar') + '{#ApplicationName}.lnk') then
ShellExec('Open', AddBackslash(ExpandConstant('{tmp}')) + 'PinToTasckbar.vbs', '"""' + AddBackslash(ExpandConstant('{app}')) + 'Binaries\Win32\{#GameExe}' + '"""', ExpandConstant('{tmp}'), SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);

Не выходит. Выполняется в любом случае - есть ярлык или нет его.

[habib2302]

saurn,
мне автор давал доработанный скрипт.держи

Код:

function LoadLibraryEx(lpFileName: String; hFile: THandle; dwFlags: DWORD): THandle; external 'LoadLibraryExW@kernel32.dll stdcall';
function LoadString(hInstance: THandle; uID: SmallInt; var lpBuffer: Char; nBufferMax: Integer): Integer; external 'LoadStringW@user32.dll stdcall';

// thank for code to "El Sanchez" from forum.oszone.net
procedure PinToTaskbar(Filename: String; IsPin: Boolean);
var
	hInst: THandle;
  buf: array [0..255] of char;
  i, Res: Integer;
  strVerb, sVBSFile: String;
  objShell, colVerbs, oFile: Variant;
begin
  if (GetWindowsVersion shr 24 < 6) or ((GetWindowsVersion shr 24 = 6) and ((GetWindowsVersion shr 16) and $FF < 1)) then Exit; // Windows 7 check

  if not FileExists(Filename) then Exit;
  
  if IsPin then Res := 5386 else Res := 5387;
  begin
    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 strVerb := strVerb + Buf[i];
      try
        objShell := CreateOleObject('Shell.Application');
      except
        ShowExceptionMessage;
        Exit;
      end;
      oFile    := objShell.Namespace(ExtractFileDir(Filename)).ParseName(ExtractFileName(Filename));
      colVerbs := oFile.Verbs;
      
      if IsWin64 and (Pos (ExpandConstant ('{pf64}\'), Filename) = 1) then begin
        sVBSFile := GenerateUniqueName (GetTempDir, 'mpc_be.vbs');
        SaveStringToFile (sVBSFile, \
          'Set oShell=CreateObject("Shell.Application")'  + #13 + \
          'Set oVerbs=oShell.NameSpace("' + ExtractFileDir (Filename) + '").ParseName("' + ExtractFileName (Filename) + '").Verbs' + #13 + \
          'For Each oVerb In oVerbs'											+ #13 + \
          '  If (oVerb="' + strVerb + '") Then'						+ #13 + \
          '    oVerb.DoIt'														    + #13 + \
          '    Exit For'															    + #13 + \
          '  End If'															        + #13 + \
          'Next'																, False);
  
        exec( ExpandConstant ('{win}\Sysnative\cscript.exe'), '"' + sVBSFile + '" /B', '', SW_HIDE, ewWaitUntilTerminated, i);
        DeleteFile (sVBSFile);
      end else begin
        for i := colVerbs.Count downto 1 do if colVerbs.Item[i].Name = strVerb then begin
			    if (IsPin and oFile.IsLink) then
				    DeleteFile (ExpandConstant ('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + ExtractFileName (Filename));
          
          colVerbs.Item[i].DoIt;
          Break;
        end;
      end;
    finally
      FreeDLL(hInst);
    end;
  end;
end;

а вот так юзать:
 при инсталле - PinToTaskbar(ExpandConstant('{app}\{#mpcbe_exe}'), True);
 при удалениее - PinToTaskbar(ExpandConstant('{app}\{#mpcbe_exe}'), False);

только я не знаю как этот код присвоить к секции tasks т.е чтобы можно было выбрать создавать ярлык или нет.и незнаю куда этот код пихать
при инсталле - PinToTaskbar(ExpandConstant('{app}\{#mpcbe_exe}'), True);
при удалениее - PinToTaskbar(ExpandConstant('{app}\{#mpcbe_exe}'), False);
и что нужно писать в секции icons
если этот скрипт будет работать,то скинь мне его

[saurn]

только я не знаю как этот код присвоить к секции tasks т.е чтобы можно было выбрать создавать ярлык или нет »

Код:

if IsTaskSelected('ляляля') then
PinToTaskbar(ExpandConstant('{app}\{#mpcbe_exe}'), True);

и незнаю куда этот код пихать »

По логике:

Код:

В CurStepChanged на шаге ssPostInstall - PinToTaskbar(ExpandConstant('{app}\{#mpcbe_exe}'), True);
В CurUninstallStepChanged на шаге usUninstall - PinToTaskbar(ExpandConstant('{app}\{#mpcbe_exe}'), False);

В секции icons писать ничего не нужно, тут все делается через code. Спасибо. Попробую позже.

[audiofeel]

evoll@vk,

помогите распотрошить и воссоздать полностью этот инсталлер как есть. »

Смотрю я опаздал, но не выкидывать же, я сделал вместе с исдон - держите = http://rghost.ru/45948186

[by_gangster]

Здравствуйте, возник вопрос по скрипту который качает файлы из интернета... Проблема в том что он после скачивания из временной папки (temp) должен перенести файл в указанную папку при инсталляции, но он этого не делает... В строке itd_addfile('http://sayt.ru/1.rar',expandconstant('{tmp}\1.rar')); tmp менял на src (т.е что бы файл лежал рядом с инсталлом) тогда он ложит файл рядом с инсталломЮ но опятть же его он не переносит в указанную папку...

Код:

[_Code]
procedure InitializeWizard();
begin
 itd_init;
 itd_addfile('http://sayt.ru/1.rar',expandconstant('{tmp}\1.rar'));


 //Start the download after the "Ready to install" screen is shown
 itd_downloadafter(wpReady);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
 if CurStep=ssInstall then begin //Lets install those files that were downloaded for us
  filecopy(expandconstant('{src}\1.rar'),expandconstant('{app}\1.rar'),false);

 end;
end;