Скрипты Inno Setup. Помощь и советы [часть 6]

[saurn]

by_gangster, в скрипте не заметно строк связанных с переносом, только копирование.

[Mailchik]

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

[Code]
#ifdef UNICODE
type
PChar = PAnsiChar;
#endif

const
MOVEFILE_REPLACE_EXISTING = 1;

function MoveFileEx(lpExistingFileName, lpNewFileName: PChar; dwFlags: DWORD): BOOL;
external 'MoveFileExA@kernel32.dll stdcall';

procedure CurPageChanged(CurPageID : integer);
begin
case CurPageID of
wpSelectDir: begin
MoveFileEx(ExpandConstant('{src}\test.iss'), ExpandConstant('{src}\test2.iss'),
MOVEFILE_REPLACE_EXISTING);
end;
end;
end;

[by_gangster]

Mailchik, И что это ?

[saurn]

Mailchik, И что это ? »
Перемещение файлов это
[Code]
#ifdef UNICODE
type
PChar = PAnsiChar;
#endif

const
MOVEFILE_REPLACE_EXISTING = 1;

function MoveFileEx(lpExistingFileName, lpNewFileName: PChar; dwFlags: DWORD): BOOL;
external 'MoveFileExA@kernel32.dll stdcall';

procedure InitializeWizard();
begin
itd_init;
itd_addfile('http://sayt.ru/1.rar',expandconstant('{src}\1.rar'));
itd_downloadafter(wpReady);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
case CurStep of
ssInstall: MoveFileEx(ExpandConstant('{src}\1.rar'), ExpandConstant('{app}\1.rar'), MOVEFILE_REPLACE_EXISTING);
end;
end;

[by_gangster]

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

[saurn]

by_gangster, скрипт можно полностью увидеть?

[by_gangster]

saurn, Конечно !

[Setup]
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=example1
Compression=lzma
SolidCompression=true
CreateAppDir=true
ShowLanguageDialog=yes

[Languages]
Name: english; MessagesFile: compiler:Default.isl

#include ReadReg(HKEY_LOCAL_MACHINE,'Software\Sherlock Software\InnoTools\Downloader','ScriptPath','');

[_Code]
#ifdef UNICODE
type
PChar = PAnsiChar;
#endif

const
MOVEFILE_REPLACE_EXISTING = 1;

function MoveFileEx(lpExistingFileName, lpNewFileName: PChar; dwFlags: DWORD): BOOL;
external 'MoveFileExA@kernel32.dll stdcall';

procedure InitializeWizard();
begin
itd_init;
itd_addfile('http://sayt.ru/1.rar',expandconstant('{src}\1.rar'));
itd_downloadafter(wpReady);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
case CurStep of
ssInstall: MoveFileEx(ExpandConstant('{src}\1.rar'), ExpandConstant('{app}\1.rar'), MOVEFILE_REPLACE_EXISTING);
end;
end;

[habib2302]

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

[Johny777]

by_gangster, вот самодостаточный пример скачивания файла с последующим перемещением в нужную директорию
//procedure MoveFile(const SourceFile, DestFile: String);
//var
// oFS: Variant;
//begin
// if not FileExists(SourceFile) then Exit;
// if FileExists(DestFile) then Exit;
// if not DirExists(ExtractFileDir(DestFile)) then
// if not ForceDirectories(ExtractFileDir(DestFile)) then Exit;
//
// oFS := CreateOleObject('Scripting.FileSystemObject');
// try
// oFS.MoveFile(SourceFile, DestFile);
// except
//
// end;
//end;

const
S_OK = $00000000;
MOVEFILE_REPLACE_EXISTING = $00000001;

function URLDownloadToFile(Caller: IUnknown; URL, FileName: String; Reserved: DWORD; StatusCB: Longint): Longint; external 'URLDownloadToFileA@Urlmon.dll stdcall';
function MoveFileEx(lpExistingFileName, lpNewFileName: String; dwFlags: DWORD): BOOL; external 'MoveFileExA@kernel32.dll stdcall';

function DownloadFile(const SourceFile, DestFile: String): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, 0) = S_OK;
except
Result := False;
end;
end;


procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssInstall then
if DownloadFile('http://mse.dlservice.microsoft.com/download/7/6/0/760B9188-4468-4FAD-909E-4D16FE49AF47/ruRU/x86/mseinstall.ee', 'C:\file.exe') then
if not MoveFileEx('C:\file.exe', 'C:\Test\file.exe', MOVEFILE_REPLACE_EXISTING) then
MsgBox('Ошибка перемещения файла:' + #13#10 + SysErrorMessage(DLLGetLastError), mbError, MB_OK); // Debug
end;


я б на твоём месте сразу качал куда надо без перемещения
судя по прототипу функции itd_addfile (у меня также, только ф-я по другому называется) это не проблема

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

дай лучше полный скрипт по закреплению ярлыка в панели задач семерки »
habib2302, в шапку посмотри, в соответствующий пример El Sanchez-а

[saurn]

habib2302, я в своем скрипте сам разобратся не могу. Мой вопрос http://forum.oszone.net/post-2148420-416.html еще актуален))
Ну а по тому скрипту, вот:
[Tasks]
Name: quicklaunchiconforseven; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked; MinVersion: 0,6.1

[Code]
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;
procedure CurStepChanged(CurStep: TSetupStep);
begin
case CurStep of
ssPostInstall: if IsTaskSelected('quicklaunchiconforseven') then PinToTaskbar(ExpandConstant('{app}\{#mpcbe_exe}'), True);
end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
case CurUninstallStep of
usUninstall: PinToTaskbar(ExpandConstant('{app}\{#mpcbe_exe}'), False);
end;
end;


Хотя уважаемый Johny777 прав, в шапке есть.

[by_gangster]

Johny777, Я так и пытался делать в строчке itd_addfile('http://sayt.ru/1.rar',expandconstant('{src}\1.rar')); src изменил на app, но выскакивает ошибка...

P.S есть ли скрипт который сразу в указанную папку скачает?

[Johny777]

saurn, Мой вопрос http://forum.oszone.net/post-2148420-416.html еще актуален)) »
из шапки взял, из той же функции закрепления ярлыка в панели задач:
function ThereIsFile(const FileName: String): Boolean;
var
oFS: Variant;
begin
oFS := CreateOleObject('Scripting.FileSystemObject');
try
Result := oFS.FileExists(FileName);
except
//ShowExceptionMessage;
end;
end;

procedure InitializeWizard();
begin
if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + 'Mozilla Firefox.lnk') then MsgBox('OK', mbInformation, MB_OK);
//if ThereIsFile(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + 'Mozilla Firefox.lnk') then MsgBox('OK', mbInformation, MB_OK);
end;

PS: у тебя тоже вроде правильный путь был, но ни FileExists(...) ни альтернативная ThereIsFile(...)так не считали (аномалия ! ), но сейчас вроде работает :) и это главное!

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

by_gangster,
P.S есть ли скрипт который сразу в указанную папку скачает? »
в примере что я тебе дал
function DownloadFile(const SourceFile, DestFile: String): Boolean;

и в шапке ещё пример El Sanchez-а

[saurn]

Johny777, дак по этому же принципу и проверял - ноль эмоций. Даже, если ярлык присутствует все равно вызов ShellExec проходит. В шапке еще есть второй пример закрепления ярлыка от El Sanchez, но у меня с ним траблы кое-какие(с скриптом не связаные) потому остановился на этом примере. Но, например, если запустить переустановку, то уже созданный ярлык удаляется.

[Johny777]

saurn, насколько я помню код El Sanchez-а порт того самого VBS скрипта, какие траблы у тебя?
function PinToTaskbar(const szFilename: String; IsPin: Boolean): Boolean;
первый входной параметр - путь к файлу, к которому нужно закрепить ярлык, второй - булев значение - закрепить/удалить ярлык

[habib2302]

короче по поводу закрепления ярлыка в панели задач семерки задавайте вопросы автору Aleksoid1978 (http://forum.oszone.net/member.php?userid=47790)
кстати.в inno setup есть скрипт
[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp

[ code]
const
LOAD_LIBRARY_AS_DATAFILE = $2;

#ifdef UNICODE
#define A "W"
#else
#define A "A"
#endif

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';

//Filename: full path to executable file
//IsPin: False - unpin from TaskBar, True - pin to TaskBar
function PinToTaskbarWin7(Filename: String; IsPin: Boolean): Boolean;
var
hInst: THandle;
buf: array [0..255] of char;
i, Res: Integer;
strVerb: String;
objShell, colVerbs: Variant;
begin
if not FileExists(Filename) then Exit;
if IsPin then Res := 5386 else Res := 5387;
if (GetWindowsVersion shr 24 = 6) and ((GetWindowsVersion shr 16) and $FF = 1) then 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;
colVerbs := objShell.Namespace(ExtractFileDir(Filename)).ParseName(ExtractFileName(Filename)).Verbs;
for i := colVerbs.Count downto 1 do if colVerbs.Item[i].Name = strVerb then begin
colVerbs.Item[i].DoIt;
Result := True;
Break;
end;
finally
FreeDLL(hInst);
end;
end;
end;

procedure InitializeWizard();
begin
PinToTaskbarWin7('c:\windows\notepad.exe', True);
end;
вот он и закрепляет иконку,но можно этот скрипт доработать

[by_gangster]

Johny777, А в примере от El Sanchez, можно сделать что бы окно выбора (http://i46.fastpic.ru/big/2013/0513/f0/5afaad405eaec1600df096148121cbf0.png) не высвечивалось ?

[habib2302]

люди.я незнаю как вам сказать.короче.как назначить иконку для ярлыка в этом скрипте Закрепить ярлык на панели задач в Windows 7 (вариант №1) (http://forum.oszone.net/post-1444931-2009.html)

[by_gangster]

habib2302, Я не совсем понял, если иконка инсталла то

[_setup]
IconFilename: "{app}\myicon.ico"

[saurn]

как назначить иконку для ярлыка в этом скрипте »
В качестве иконки ярлыка берется иконка исполняемого файла.

[habib2302]

by_gangster, для инсталла я знаю
обрати внимание на выделенный жирным текст "как назначить иконку для ярлыка в этом скрипте"
например вот так
IconFilename: {app}\ico.ico;