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

Twoface · Отправлено: **16:21, 31-08-2012** | #**781**

Ivan_009,
Отправил в ЛС.

SatHan · Отправлено: **17:54, 31-08-2012** | #**782**

Johny777, R.i.m.s.k.y., Спасибо.
R.i.m.s.k.y., да это было не важно что из окон открыто. Главное было параметры shutdown в инно узнать.
просто я прописывал перезагрузку как указала команда shutdown help
[Run]
Filename: shutdown.exe; Parameters: -r -t 5; Flags: runhidden nowait postinstall unchecked
что в конечном счете у меня перезагрузка не происходила. а оказалось что в инно параметры задаются совсем другим способом.

а так для надежности есть более радикальный и удобный способ. например

R.i.m.s.k.y. · Конфигурация компьютера

SatHan, есть глобальная функция NeedRestart - почитай про нее

al1511 · Отправлено: **21:20, 31-08-2012** | #**784**

El Sanchez, в том варианте, который вы предложили, при компиляции пишет type mismatch
Вот код:

Код:

var
   phMPQ: THandle;

function SFileSetAddFileCallback(hMpq: THandle; pfnAddFileCB, pvUserData: Longint): BOOL; external 'SFileSetAddFileCallback@files:stormlib.dll stdcall';

procedure AddFileCallback(pvUserData: Longint; dwBytesWritten, dwTotalBytes: DWORD; bFinalCall: BOOL);
begin
    //
end;

//
procedure CurStepChanged(CurStep: TSetupStep);
begin
    SFileSetAddFileCallback (phMPQ, @AddFileCallback, 0);
end;

А вот так пробовал я. В этом случае компилируется, но выходит ошибка в инсталляторе
"Exeption: Accsess violation at adress xxxxxxxx. Write of address xxxxxxxx

Код:

var
   phMPQ: THandle;

type
  TCallback = procedure (pvUserData: Integer; dwBytesWritten, dwTotalBytes: DWORD; bFinalCall: BOOL);

function SFileSetAddFileCallback(hMpq: THandle; pfnAddFileCB: TCallback; pvUserData: Integer): BOOL; external 'SFileSetAddFileCallback@files:stormlib.dll stdcall';

procedure AddFileCallback(pvUserData: Integer; dwBytesWritten, dwTotalBytes: DWORD; bFinalCall: BOOL);
begin
    //
end;

//
Procedure CurPageChanged(CurPageID: Integer);
begin
 
    SFileSetAddFileCallback (phMPQ, @AddFileCallback, 0);
end;

SatHan · Отправлено: **07:04, 01-09-2012** | #**785**

Цитата SatHan:

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

может как можно (выгрузкой Unload или таймерами KillTimer) завершить? в помощи почитал но ничего не понял совсем что там нада делать.

при принудительном завершении setup.tmp и setup.exe всё равно нагрузка идёт, в %temp% обнаружил папки *..tmp. в одной из них есть ещё папка _isetup в ней два файла _RegDLL.tmp и _shfoldr.dll может из за них идёт нагрузка. мож на них нада какую процедуру повесить?

El Sanchez · Конфигурация компьютера

Цитата al1511:

El Sanchez, в том варианте, который вы предложили, при компиляции пишет type mismatch
Вот код: »

Цитата al1511:

SFileSetAddFileCallback (phMPQ, @AddFileCallback, 0); »

al1511, ну и где я это предлагал? Я написал:

Код:

SFileSetAddFileCallback(phMPQ, CallbackAddr('AddFileCallback'), 0);

CallbackAddr - функция из расширенной китайской версии Inno, возвращающая указатель на callback-функцию AddFileCallback. Если у вас оригинальная версия, то для работы с callback-функциями понадобится сторонняя библиотека innocallback.dll

al1511 · Отправлено: **18:23, 02-09-2012** | #**787**

Цитата El Sanchez:

CallbackAddr - функция из расширенной китайской версии Inno, »

Я не знал, что это функция из расширенной версии. Спасибо

al1511 · Отправлено: **10:31, 03-09-2012** | #**788**

Callback работает, но теперь возникла другая проблема )) Во время упаковки файлов в архив окно Inno Setup зависает (как будто ждёт завершения выполнения dll) и отвисает только тогда, когда заканчивается добавление файлов в архив... Информация в окне во время добавления файлов не меняется, и окошко даже нельзя двигать...
Помогите, пожалуйста, разобраться!

spice · Отправлено: **11:14, 03-09-2012** | #**789**

Народ помогите новичку! слепил скрипт из is game script generator и решил вставить скин из isskins при компиляции выдает такую ошибку, что не так сделал?

Код:

[Setup]
SourceDir=.
OutputDir=Setup
AppName=GTA San Andreas
AppVerName=GTA San Andreas
AppVersion=GTA San Andreas
AppPublisher=Îëåã Ãèíèÿòîâ
AppCopyright=Îëåã Ãèíèÿòîâ
AppPublisherURL=SpiCeMaN@spaces.ru
AppSupportURL=SpiCeMaN@spaces.ru
AppUpdatesURL=SpiCeMaN@spaces.ru
DefaultDirName={pf}\GTA San Andreas
DefaultGroupName=GTA San Andreas
AllowNoIcons=yes
OutputBaseFilename=setup
WizardImageFile=C:\Users\Vadim\Desktop\ISS\GTA-San-Andreas.bmp
WizardSmallImageFile=C:\Users\Vadim\Desktop\ISS\grand_theft_auto_san_andreas_icon_v2_1_by_kamizanon-d4tuvym.bmp
SetupIconFile=C:\Users\Vadim\Desktop\ISS\grand_theft_auto_san_andreas_icon_v2_1_by_kamizanon-d4tuvym.ico
WindowVisible=no
WindowShowCaption=no
WindowResizable=no
Compression=lzma/normal
DiskSpanning=yes
DiskSliceSize=2100000000
SlicesPerDisk=1
LicenseFile=license.txt

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

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"

[Files]
Source: "isgsg.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "bass.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "C:\Users\Vadim\Desktop\ISS\GTA_San_Andreas-GTA_San_Andreas.mp3"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: C:\Users\Vadim\Desktop\ISS\ISSkin.dll; DestDir: {tmp}; Flags: dontcopy
Source: C:\Users\Vadim\Desktop\ISS\tiger.cjstyles; DestDir: {tmp}; Flags: dontcopy
Source: "C:\GAMES\GTA San Andreas\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension

[Icons]
Name: "{group}\GTA San Andreas"; Filename: "{app}\gta_sa.exe"; WorkingDir: "{app}";
Name: "{userdesktop}\GTA San Andreas"; Filename: "{app}\gta_sa.exe"; WorkingDir: "{app}"; Tasks: desktopicon;
Name: "{group}\{cm:UninstallProgram,GTA San Andreas}"; Filename: "{uninstallexe}"

[Run]
Description: "{cm:LaunchProgram, GTA San Andreas}"; Filename: "{app}\gta_sa.exe"; WorkingDir: "{app}"; Flags: nowait postinstall skipifsilent unchecked

[UninstallDelete]
Type: filesandordirs; Name: "{app}"

[сode]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';

procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('aqualux.cjstyles');
LoadSkin(ExpandConstant('{tmp}\aqualux.cjstyles'), '');
Result := True;
end;

procedure DeinitializeSetup();
begin
UnloadSkin();
end;



const
  Indent=10;
  dURL=2;

var
  URLLabel,URLLabelShadow:TLabel;

procedure ShowMP3Panel(hMainFrm:HWND;StartVolume:integer;DefMP3Dir,BASSDir,MLabel:PChar;IsShowMP3Info,IsBkgFrmVisible:boolean;ShowTimeMP3Info:integer;dBottom:integer);external 'ShowMP3Panel@files:isgsg.dll stdcall';
procedure KillMP3Panel;external 'KillMP3Panel@files:isgsg.dll stdcall';

procedure URLLabelClick(Sender: TObject);
var
  ErrorCode:integer;
begin
  ShellExec('open','SpiCeMaN@spaces.ru','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
end;

procedure URLLabelMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
  URLLabel.Top:=URLLabel.Top+dURL;
  URLLabel.Left:=URLLabel.Left+dURL;
  URLLabel.Font.Style:=URLLabel.Font.Style+[fsUnderline];
  URLLabel.Font.Color:=clBlue;
  URLLabelShadow.Visible:=False;
end;

procedure URLLabelMouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
  URLLabel.Top:=URLLabel.Top-dURL;
  URLLabel.Left:=URLLabel.Left-dURL;
  URLLabel.Font.Style:=URLLabel.Font.Style-[fsUnderline];
  URLLabel.Font.Color:=clMaroon;
  URLLabelShadow.Visible:=True;
end;

function InitializeSetup:boolean;
begin
  ExtractTemporaryFile('GTA_San_Andreas-GTA_San_Andreas.mp3');
  ExtractTemporaryFile('bass.dll');
  Result:=True;
end;

procedure InitializeWizard;
begin
  URLLabelShadow:=TLabel.Create(WizardForm);
  with URLLabelShadow do begin
    Top:=ScaleY(331);
    Left:=ScaleX(25);
    Caption:='SpiCeMaN@spaces.ru';
    AutoSize:=True;
    Parent:=WizardForm;
    Transparent:=True;
    Font.Color:=$969696;
    Font.Size:=9;
    Font.Style:=Font.Style+[fsBold];
  end;
  URLLabel:=TLabel.Create(WizardForm);
  with URLLabel do begin
    Top:=ScaleY(331)-dURL;
    Left:=ScaleX(25)-dURL;
    Caption:='SpiCeMaN@spaces.ru';
    AutoSize:=True;
    Parent:=WizardForm;
    Cursor:=crHand;
    Transparent:=True;
    Font.Color:=clMaroon;
    Font.Size:=9;
    Font.Style:=Font.Style+[fsBold];
    BringToFront;
    OnClick:=@URLLabelClick;
    OnMouseDown:=@URLLabelMouseDown;
    OnMouseUp:=@URLLabelMouseUp;
  end;
  ShowMP3Panel(WizardForm.Handle,80,ExpandConstant('{tmp}'),ExpandConstant('{tmp}'),'www.csmania.ru',False,False,0,Indent);
end;

procedure DeinitializeSetup;
begin
  KillMP3Panel;
end;

Habetdin · Отправлено: **11:59, 03-09-2012** | #**790**

spice, в секции [code] дублируются одинаковые функции/процедуры InitializeSetup и DeinitializeSetup. Fixed version, вроде должно работать

, только секция [code]:

Код:

procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';

procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

const
  Indent=10;
  dURL=2;

var
  URLLabel,URLLabelShadow:TLabel;

procedure ShowMP3Panel(hMainFrm:HWND;StartVolume:integer;DefMP3Dir,BASSDir,MLabel:PChar;IsShowMP3Info,IsBkgFrmVisible:boolean;ShowTimeMP3Info:integer;dBottom:integer);external 'ShowMP3Panel@files:isgsg.dll stdcall';
procedure KillMP3Panel;external 'KillMP3Panel@files:isgsg.dll stdcall';

procedure URLLabelClick(Sender: TObject);
var
  ErrorCode:integer;
begin
  ShellExec('open','http://spaces.ru/mysite/?name=SpiCeMaN','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
end;

procedure URLLabelMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
  URLLabel.Top:=URLLabel.Top+dURL;
  URLLabel.Left:=URLLabel.Left+dURL;
  URLLabel.Font.Style:=URLLabel.Font.Style+[fsUnderline];
  URLLabel.Font.Color:=clBlue;
  URLLabelShadow.Visible:=False;
end;

procedure URLLabelMouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
  URLLabel.Top:=URLLabel.Top-dURL;
  URLLabel.Left:=URLLabel.Left-dURL;
  URLLabel.Font.Style:=URLLabel.Font.Style-[fsUnderline];
  URLLabel.Font.Color:=clMaroon;
  URLLabelShadow.Visible:=True;
end;

function InitializeSetup:boolean;
begin
  ExtractTemporaryFile('GTA_San_Andreas-GTA_San_Andreas.mp3');
  ExtractTemporaryFile('bass.dll');
  ExtractTemporaryFile('aqualux.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\aqualux.cjstyles'), '');
  Result:=True;
end;

procedure InitializeWizard;
begin
  URLLabelShadow:=TLabel.Create(WizardForm);
  with URLLabelShadow do begin
    Top:=ScaleY(331);
    Left:=ScaleX(25);
    Caption:='SpiCeMaN@spaces.ru';
    AutoSize:=True;
    Parent:=WizardForm;
    Transparent:=True;
    Font.Color:=$969696;
    Font.Size:=9;
    Font.Style:=Font.Style+[fsBold];
  end;
  URLLabel:=TLabel.Create(WizardForm);
  with URLLabel do begin
    Top:=ScaleY(331)-dURL;
    Left:=ScaleX(25)-dURL;
    Caption:='SpiCeMaN@spaces.ru';
    AutoSize:=True;
    Parent:=WizardForm;
    Cursor:=crHand;
    Transparent:=True;
    Font.Color:=clMaroon;
    Font.Size:=9;
    Font.Style:=Font.Style+[fsBold];
    BringToFront;
    OnClick:=@URLLabelClick;
    OnMouseDown:=@URLLabelMouseDown;
    OnMouseUp:=@URLLabelMouseUp;
  end;
  ShowMP3Panel(WizardForm.Handle,80,ExpandConstant('{tmp}'),ExpandConstant('{tmp}'),'www.csmania.ru',False,False,0,Indent);
end;

procedure DeinitializeSetup;
begin
  UnloadSkin();
  KillMP3Panel;
end;