[nik1967]

Ребят, объясните, чего у меня при компиляции выдаёт ошибку? »

Правильно, параметр то не указан:

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
  CurPageChanged1(CurPageID);
  CurPageChanged2(CurPageID);
end;

И ещё один косяк:

Код:

[Files]
Source: Files\Data\innocallback.dll; Flags: ignoreversion dontcopy nocompression
Source: Files\Data\1.bmp; Flags: ignoreversion dontcopy nocompression

Правда, в скрипте ещё косяков хватает, но просто не стал дальше разбираться, некогда.

[Gnom_aka_Lexander]

Вообщем слепил, но всё равно какая-то лажа получилась, при нажатии установить, закрывается и ни чего не делает! »

Дык, делает. Именно то, что ты ему и говориш делать.

Код:

procedure InstallButtonClick(Sender: TObject);
var
CurPageID: Integer;
begin
Exec(ExpandConstant('{src}\Setup.exe'),'','',SW_SHOW,ewNoWait,ResultCode); //Установить(но, ты заставляеш его запустить файл Setup.exe, которого нет, поскольку это и есть запущеный сетапник.)
AutoRun.Close; // закрываем форму авторана. (единственная нужная здесь строчка)
PostMessage(WizardForm.CancelButton.Handle, BM_CLICK, 0, 0); // до кучи, имитируем нажатие кнопки отмены , видимо - контольный в голову, чтоб наверняка :)
end;

В модуле AutoRUN.iss замени приведенный выше кусок, вот этим:

Код:

procedure InstallButtonClick(Sender: TObject);
var CurPageID: Integer;
begin AutoRun.Close; end;

Лександер, не поможешь? »

Я сейчас уперся рогом в свою проблему, всю голову сломал уже, как освобожусь - посмотрю, самому интересно.

[ssv14]

Лександер, не поможешь?
ни как не получается подружить трэкерную музыку с bass.dll v2.4.7

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

Код:

[_Code]
const
  BASS_MUSIC_RAMP               = 1;
  BASS_MUSIC_RAMPS             = 2;
  BASS_MUSIC_LOOP                = 4;
  BASS_MUSIC_FT2MOD           = 16;
  BASS_MUSIC_PT1MOD           = 32;
  BASS_MUSIC_SURROUND     = 512;
  BASS_MUSIC_SURROUND2   = 1024;


function BASS_Init(device: Integer; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean; 
external 'BASS_Init@files:BASS.dll stdcall delayload';

function BASS_MusicLoad(mem: BOOL; f: PChar; offset: DWORD; length: DWORD; flags: DWORD; frec: DWORD): Boolean;
external 'BASS_MusicLoad@files:BASS.dll stdcall delayload';

function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean; 
external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload';

function BASS_ChannelGetLevel(handle: DWORD): Boolean;
external 'BASS_Start@files:BASS.dll stdcall delayload';

function BASS_Start: Boolean; 
external 'BASS_Start@files:BASS.dll stdcall delayload';

function BASS_Stop: Boolean; 
external 'BASS_Stop@files:BASS.dll stdcall delayload';

function BASS_Free: Boolean; 
external 'BASS_Free@files:BASS.dll stdcall delayload';


function InitializeSetup(): Boolean;

var
  Mus: HWND;
  modName: string;
begin
  ExtractTemporaryFile('BASS.dll');
  ExtractTemporaryFile('BUSSI.S3M');
  modName := ExpandConstant('{tmp}\BUSSI.S3M');
  BASS_Init(-1, 44100, 0, 0, 0);
  Mus := BASS_MusicLoad(FALSE, PChar(modName), 0, 0, BASS_MUSIC_SURROUND, 0);
  BASS_Start();
  BASS_ChannelPlay(Mus, False);
  BASS_ChannelGetLevel();
  Result := True;
end;
 
procedure DeinitializeSetup();
begin
  BASS_Stop();
  BASS_Free();
end;

[Gnom_aka_Lexander]

сколько помню было так! »

Сейчас некогда смотреть, но логично предложить, что гдето в модулях отключена страница приветсятвия. Отчего я и не люблю модульную систему - при большом количестве процедур, собираемых в одну, инсталл начинает здорово тупить. Плюс, всегда есть шанс запутаться в правильности порядка подачи процедур, чего никогда не будет, если процедура одна.

[dracosha]

Neutron,

2. Имеется например инсталл »

язык

Код:

UsePreviousLanguage=yes
ShowLanguageDialog=yes
LanguageDetectionMethod=uilanguage

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

[Files]
Source: "{#MyAppSourcePath}\russian.txt"; DestDir: "{app}"; Languages: russian;
Source: "{#MyAppSourcePath}\english.txt"; DestDir: "{app}"; Languages: english;

[nik1967]

1. Как убрать выделение? »

Так:

Код:

with WizardForm.DirEdit do begin
    AutoSelect:= False;                
end;

[45king]

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