Inno Setup (создание инсталяционных пакетов). Часть 3

[neorom]

У когось эсть пример как растятуть текст по вертикале и по горизонтале , и сжать текст по вертикале и по горизонтале. (Font.Size не придлагать.)
Фото

 

[Mickey1s]

Кто может подсказать как прописать в текстовый документ чтото при выборе любого из компонентов?
Не в INI (через одноименную секцию) а именно в текстовый файл.

 

[vint56]

Mickey1s только в место [KDN].bat свой текстовый файл

Спойлер: пример

[Setup]
AppName=World of Tanks
AppVerName=World of Tanks
DefaultDirName={sd}\Games\World_of_Tanks
DefaultGroupName=World_of_Tanks
AppVersion=0.1
AppCopyright=[KDN]
UsePreviousAppDir=False


[Types]
Name: custom; Description: Выборочная установка; Flags: iscustom

[Components]
Name: readme; Description: Установка; Flags: exclusive
Name: readme\on; Description: Установка RaidCall+WOT; Flags: exclusive
Name: readme\off; Description: Установка RaidCall+XVM; Flags: exclusive

procedure CurStepChanged(CurStep: TSetupStep);
 var
    S: String;
 begin
    If CurStep=ssPostInstall then begin
    if IsComponentSelected('readme\on') then
    S := ExpandConstant('{app}');
    StringChangeEx(S, ':\', ':\|', True);
    SaveStringToFile(ExpandConstant('{app}')+'\[KDN].bat', '@echo off' + #13#10, true);
    SaveStringToFile(ExpandConstant('{app}')+'\[KDN].bat', 'start http://www.raidcall.com/go.php?sid=5644622' + #13#10, true);
    SaveStringToFile(ExpandConstant('{app}')+'\[KDN].bat', 'ping -n 10 localhost > nul' + #13#10, true);
    SaveStringToFile(ExpandConstant('{app}')+'\[KDN].bat', 'cd ' + ExpandConstant('{app}') + #13#10, true);
    SaveStringToFile(ExpandConstant('{app}')+'\[KDN].bat', 'start WoTLauncher.exe' + #13#10, true);
    if IsComponentSelected('readme\off') then
    S := ExpandConstant('{app}');
    StringChangeEx(S, ':\', ':\|', True);
    SaveStringToFile(ExpandConstant('{app}')+'\[KDN].bat', '@echo off' + #13#10, true);
    SaveStringToFile(ExpandConstant('{app}')+'\[KDN].bat', 'start http://www.raidcall.com/go.php?sid=5644622' + #13#10, true);
    SaveStringToFile(ExpandConstant('{app}')+'\[KDN].bat', 'ping -n 10 localhost > nul' + #13#10, true);
    SaveStringToFile(ExpandConstant('{app}')+'\[KDN].bat', 'cd ' + ExpandConstant('{app}') + #13#10, true);
    SaveStringToFile(ExpandConstant('{app}')+'\[KDN].bat', 'start xvm-stat.exe /launcher' + #13#10, true);
   end;
 end;[/SPOILER]

 

[Mickey1s]

vint56, можешь подправить скрипт? какой компонент бы не выбрал прописываются оба

 

[vint56]

Mickey1s

Спойлер: delete

end;

 

[Mickey1s]

vint56, точно так же

 

[vint56]

Mickey1s

Спойлер: ПРимер

[Setup]
AppName=World of Tanks
AppVerName=World of Tanks
DefaultDirName={sd}\Games\World_of_Tanks


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

[Types]
Name: custom; Description: Выборочная установка; Flags: iscustom

[Components]
Name: comp; Description: Установка; Flags: exclusive
Name: comp\1; Description: Установка RaidCall+WOT; Flags: exclusive disablenouninstallwarning
Name: comp\2; Description: Установка RaidCall+XVM; Flags: exclusive disablenouninstallwarning


[UninstallDelete]
Type: filesandordirs; Name: {app}
Name: {app}\[KDN].bat; Type: filesandordirs

procedure CurStepChanged(CurStep: TSetupStep);
var
S,J: String;
begin
If CurStep=ssPostInstall then begin
  if IsComponentSelected('comp\1') then
  begin
  CreateDir(ExpandConstant('{app}'));
  StringChangeEx(S, ':\', ':\|', True);
  s := + '@echo off' + #13#10 + #13#10 + 'start http://www.raidcall.com/go.php?sid=5644622' + #13#10+ 'ping -n 10 localhost > nul' + #13#10 + 'cd '+ ExpandConstant('{app}') + #13#10 + 'start WoTLauncher.exe' + #13#10;
  SaveStringToFile(ExpandConstant('{app}\Readme-A.txt'), s, False)
  end;
  if IsComponentSelected('comp\2') then
  begin
  StringChangeEx(J, ':\', ':\|', True);
  J := + '@echo off' + #13#10 + #13#10 + 'start http://www.raidcall.com/go.php?sid=5644622' + #13#10+ 'ping -n 20 localhost > nul' + #13#10 + 'cd '+ ExpandConstant('{app}') + #13#10 + 'start xvm-stat.exe /launcher' + #13#10;
  SaveStringToFile(ExpandConstant('{app}\Readme-B.txt'), J, False);
end;
end;
end;[/SPOILER]

 

[Mickey1s]

Работает, спасибо
А можно сделать чтоб было 2 строки в файле, к примеру:

res_y 1366
res_x 768

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

 

[vint56]

Mickey1s

Спойлер: Пример

[Setup]
AppName=World of Tanks
AppVerName=World of Tanks
DefaultDirName={sd}\Games\World_of_Tanks

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

[Types]
Name: custom; Description: Выборочная установка; Flags: iscustom

[Components]
Name: comp; Description: Установка; Flags: exclusive
Name: comp\1; Description: Установка RaidCall+WOT; Flags: exclusive disablenouninstallwarning
Name: comp\2; Description: Установка RaidCall+XVM; Flags: exclusive disablenouninstallwarning


[UninstallDelete]
Type: filesandordirs; Name: {app}
Name: {app}\[KDN].bat; Type: filesandordirs

procedure CurStepChanged(CurStep: TSetupStep);
var
S,J: String;
begin
If CurStep=ssPostInstall then begin
if IsComponentSelected('comp\1') then
begin
CreateDir(ExpandConstant('{app}'));
StringChangeEx(S, ':\', ':\|', True);
s := + 'res_y 1366' + #13#10 + 'res_x 768' + #13#10;
SaveStringToFile(ExpandConstant('{app}\Readme-A.txt'), s, False)
end;
if IsComponentSelected('comp\2') then
begin
StringChangeEx(J, ':\', ':\|', True);
J := + '@res_y 13662' + #13#10 + 'res_x 7682' + #13#10;
SaveStringToFile(ExpandConstant('{app}\Readme-A.txt'), J, False);
end;
end;
end;[/SPOILER]

 

[Mickey1s]

vint56, прости что навязываюсь, наверно объясняю не правильно :-[
Мне нужны вот такие компоненты:

[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: langtext; Description: Язык субтитров; Types: full; Flags: fixed
Name: langtext\rus; Description: Русский; Flags: exclusive disablenouninstallwarning
Name: langtext\eng; Description: Английский; Flags: exclusive disablenouninstallwarning
Name: langvoice; Description: Выбор озвучки; Types: full; Flags: fixed
Name: langvoice\rus; Description: Русский; Flags: exclusive disablenouninstallwarning
Name: langvoice\eng; Description: Английский; Flags: exclusive disablenouninstallwarning

И при выборе определенного записывалось в документ.
Пример: выбирают Язык субтитров русский и Выбор озвучки Английский, прописывается

text rus
voice eng

Выбирают Язык субтитров русский и Выбор озвучки русский, прописывается

text rus
voice rus

P.S. Заранее спс

 

[Adil]

Всем привет, можно ли отключить прокрутку мышкой в компонент листе?

 

[Mailchik]

Mickey1s, пример..

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

[Types]
 Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: langtext; Description: Язык субтитров; Types: full; Flags: fixed
Name: langtext\rus; Description: Русский; Flags: exclusive disablenouninstallwarning
Name: langtext\eng; Description: Английский; Flags: exclusive disablenouninstallwarning
Name: langvoice; Description: Выбор озвучки; Types: full; Flags: fixed
Name: langvoice\rus; Description: Русский; Flags: exclusive disablenouninstallwarning
Name: langvoice\eng; Description: Английский; Flags: exclusive disablenouninstallwarning

[b][[/b]Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
 tLang, vLang: string;
 begin
  case CurStep of
   ssPostInstall: begin
    if IsComponentSelected('langtext\rus') then tLang := 'text rus';
    if IsComponentSelected('langtext\eng') then tLang := 'text eng';
    if IsComponentSelected('langvoice\rus') then vLang := 'voice rus';
    if IsComponentSelected('langvoice\eng') then vLang := 'voice eng';
    SaveStringToFile(ExpandConstant('{app}\ReadMe.txt'),
     tLang + #13#10 + vLang, False {True, если нужно добавлять строки в конец файла, а не перезаписывать});
   end;
  end;
end;

 

[sergey3695]

Всем привет, можно ли отключить прокрутку мышкой в компонент листе?

const
  GWL_WNDPROC = -4;
  WM_MOUSEWHEEL = $020A;
type
  LPARAM = Integer;
  WPARAM = Integer;
  LRESULT = Integer;
  TFNWndProc = Integer;
var
  WindowProc: Longint;

function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall';
function CallWindowProc(lpPrevWndFunc: TFNWndProc; hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; external 'CallWindowProc{#A}@user32.dll stdcall';

function Proc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
begin
  case Msg of WM_MOUSEWHEEL:
begin
  Msg := 0;
end;
end;
  Result := CallWindowProc(WindowProc, hWnd, Msg, wParam, lParam);
end;

procedure InitializeWizard();
begin
  WindowProc := SetWindowLong(WizardForm.ComponentsList.Handle, GWL_WNDPROC, CallbackAddr('Proc'));
end;

procedure DeinitializeSetup();
begin
  SetWindowlong(CheckListBox.Handle, GWL_WNDPROC, WindowProc);
end;

 

[Shegorat]

Всем привет, можно ли отключить прокрутку мышкой в компонент листе?

Сделать то можно, примерно так

[noparse][Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp

[Components]
Name: langtext; Description: Язык субтитров; Types: full; Flags: fixed
Name: langtext\rus; Description: Русский; Flags: exclusive disablenouninstallwarning
Name: langtext\eng; Description: Английский; Flags: exclusive disablenouninstallwarning
Name: langtext\fra; Description: Французский; Flags: exclusive disablenouninstallwarning
Name: langtext\spa; Description: Испанский; Flags: exclusive disablenouninstallwarning
Name: langtext\ita; Description: Итальянский; Flags: exclusive disablenouninstallwarning
Name: langtext\ger; Description: Немецкий; Flags: exclusive disablenouninstallwarning
Name: langtext\pol; Description: Польский; Flags: exclusive disablenouninstallwarning
Name: langvoice; Description: Выбор озвучки; Types: full; Flags: fixed
Name: langvoice\rus; Description: Русский; Flags: exclusive disablenouninstallwarning
Name: langvoice\eng; Description: Английский; Flags: exclusive disablenouninstallwarning
Name: langvoice\fra; Description: Французский; Flags: exclusive disablenouninstallwarning
Name: langvoice\spa; Description: Испанский; Flags: exclusive disablenouninstallwarning
Name: langvoice\ita; Description: Итальянский; Flags: exclusive disablenouninstallwarning
Name: langvoice\ger; Description: Немецкий; Flags: exclusive disablenouninstallwarning
Name: langvoice\pol; Description: Польский; Flags: exclusive disablenouninstallwarning

[Files]
Source: compiler:innocallback.dll; DestDir: {tmp}; Flags: dontcopy

[code]
const
  WM_MOUSEWHEEL       = $020A;
  GWL_WNDPROC         = -4;
  
type
  TCallbackProc = function(h:hWnd;Msg,wParam,lParam:Longint):Longint;
  
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function WndProcCallBack(P:TCallbackProc;ParamCount:integer):LongWord; external 'wrapcallback@files:innocallback.dll stdcall';
function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint; external 'CallWindowProcA@user32.dll stdcall';

var
OldProc: Longint;

function MyProc(h: HWND; Msg, wParam, lParam: longint): Longint;
begin
  if Msg=WM_MOUSEWHEEL then
    Result:= 0
  else
    Result:= CallWindowProc(OldProc, h, Msg, wParam, lParam);
end;

procedure InitializeWizard();
begin
  OldProc:= SetWindowLong(WizardForm.ComponentsList.Handle, GWL_WNDPROC, WndProcCallBack(@MyProc, 4));
end;

procedure DeinitializeSetup();
begin
  SetWindowlong(WizardForm.ComponentsList.Handle, GWL_WNDPROC, OldProc);
end;[/noparse]

Вопрос только зачем?

P.S. Пока писал пример и отвечал, уже ответили...

 

[sergey3695]

Вопрос только зачем?
P.S. Пока писал пример и отвечал, уже ответили...

если щелкнуть на компонент лист и прокрутить потом мышкой,то будет съезжать наложенное изображение.
p.s. кстати на расширенной версии innocallback.dll уже не нужен для данной цели

 

[Mickey1s]

Наткнулся на такую интересную штуку

Спойлер: Вот

R.G. Механики точно так же делали. сложно это сделать?

 

[HoLmEs]

Подскажите как на языке inno будет blue? если можно то все коды цветов скиньте)

 

[sergey3695]

HoLmEs, вводишь в Яндекс 'цвета Html'
пример: цвет 'яндекс' ffcc00 -> $00ccff; (впереди $ и передние два знака назад,а задние два,вперед.)
воу..ля. Готово. Все цвета можно таким несложным макаром.

 

[Лёха]

HoLmEs,
а можно через фотошоп или любой редактор фоток, выбираешь цвет и ставишь его код.
-----------------------
Народ, видел код через который идёт проверка на реестр,

Function GetInstallDir( AppID: String ): String; var dir: String;
begin
if not RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\CAPCOM\Resident Evil 6', 'installdir', dir) then
RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\CAPCOM\Resident Evil 6', 'installdir', dir);
Result:= dir;
end;

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

а как сделать что бы паралельно проверялось ещё и в 86х битной винде??

 

[vint56]

Лёха

Спойлер: пример

Function GetInstallDir( AppID: String ): String; var dir: String;
begin
if not RegQueryStringValue(HKLM, 'SOFTWARE\CAPCOM\Resident Evil 6', 'installdir', dir) then
RegQueryStringValue(HKLM, 'SOFTWARE\CAPCOM\Resident Evil 6', 'installdir', dir);
Result:= dir;
end;

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