[Serega]

Хотелось бы вставить картинку вместо надписи »

Прикрепил пример, с библиотекой.

[katok888]

InnoUnpacker одна из возможностей этой программы заключается в том, что можно просмотреть содержание CompiledCode.bin

ISTool 5.30 и Русификатор

[чей-то бот]

Вроде вот dll-ка (можете переименовать на unpack.dll, если очень надо) - http://narod.ru/disk/9755536000/arc.dll.html »

дллка хорошая,в особенности порадовалочто можно перетаскивать окно и сворачива,но вот напрягает то что слишком много места в прогрессбаре отводится для распаковки файлов из инсталла (порою их в него вообще не добавляю) , и нет поддержки юникод-версии инно. можно как-нибудь попросить автора поправить?

[BlackSelf]

чей-то бот, пиши z1oyded, но исходники мне он не дал да и что-то править ради других он тоже вряд ли будет.
Вот ещё dll-ка со скриптом для распаковки freearc-архивов. Автор Bulat_Ziganshin. Скачать

[чей-то бот]

BlackSelf, дай плиз контакты его

[BlackSelf]

Вот лс на т.ру.

[p3rf3ct1c]

Люди а как убрать надписи отмеченные красным?

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

[Raf-9600]

p3rf3ct1c, добавь в скрипт:

Код:

[Messages]
WelcomeLabel1=
WelcomeLabel2=
ClickNext=
FinishedHeadingLabel=
FinishedLabelNoIcons=
ClickFinish=

[volk1234]

Подскажет ли кто, как расшифровать на язык cmd следущие строки:

Код:

Source: "{sys}\msvcr71.dll"; DestDir: "{sys}"; MinVersion: 4.1,5.0.2195; Flags: uninsneveruninstall onlyifdoesntexist 
Source: "{cf}\prog1\prog1.dll"; DestDir: "{cf}\prog1"; MinVersion: 4.1,5.0.2195; Flags: regserver sharedfile

если запускаю родной инсталлятор Inno - библиотеки регистрируются и работают. Сделал свой инсталятор, не регистрируются
библиотеки в коммандной строке.
Строка (во всех вариациях, с кавычками, без кавычек, из бат файла, из коммандной строки)

Код:

regsrv32  prog1.dll

вызывает ошибку

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

Код:

---------------------------
RegSvr32
---------------------------
Ошибка при вызове LoadLibrary("G:\CREATION\prog1\beta.view\musor\temp\prog1.dll")  - Не найдена указанная процедура.

---------------------------
ОК   
---------------------------

Посмотрел DependencyWallker - нехватает msjava.dll (хотя ее и в Inno установке нет) подложил и ее - без толку, ругается уже на точку входа.

Как вообще расшифровывается regserver sharedfile
Что эта комманда делает, я в справке почитал.
Нечто вроде regsvr32 (вызов DllRegisterServer) и запись библиотеки в раздел реестра SharedFiles.
Кто знает подробнее??

[Raf-9600]

Ктонить может доработать этот код, так чтобы для слайд-шоу можно было использовать JPG картинки, и само слайд-шоу показывало их не по порядку, а рандомно?

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

Код:

#define TIME_FOR_VIEW 5

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=none
SolidCompression=yes

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

[Files]
Source: compiler:get_hw_caps.dll; DestDir: {tmp}; Flags: dontcopy
Source: compiler:InnoCallback.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: F:\ISSkin\TR\Slide_Img\Image_1.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: F:\ISSkin\TR\Slide_Img\Image_2.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: F:\ISSkin\TR\Slide_Img\Image_3.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: F:\ISSkin\TR\Slide_Img\Image_4.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: F:\ISSkin\TR\Slide_Img\Image_5.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: F:\ISSkin\TR\Slide_Img\Image_6.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: F:\ISSkin\TR\Slide_Img\Image_7.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: F:\ISSkin\TR\Slide_Img\Image_8.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: F:\ISSkin\TR\Slide_Img\Image_9.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: F:\ISSkin\TR\Slide_Img\Image_10.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak

[_Code]
var
  TimerID: LongWord;
  currTime: Integer;
  SplashImage: TBitmapImage;
type
  TProc = procedure(HandleW, msg, idEvent, TimeSys: LongWord);

function WrapTimerProc(callback:TProc; paramcount:integer):longword;
  external 'wrapcallback@files:InnoCallback.dll stdcall';

function SetTimer(hWnd: LongWord; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord): LongWord;
  external 'SetTimer@user32.dll stdcall';

function KillTimer(hWnd: LongWord; nIDEvent: LongWord): LongWord;
  external 'KillTimer@user32.dll stdcall';

procedure OnTimer(HandleW, msg, idEvent, TimeSys: LongWord);
begin
   currTime := currTime + 1;
   case currTime of
   {#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_2.bmp')) end;
   2*{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_3.bmp')) end;
   3*{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_4.bmp')) end;
   4*{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_5.bmp')) end;
   5*{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_6.bmp')) end;
   6*{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_7.bmp')) end;
   7*{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_8.bmp')) end;
   8*{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_9.bmp')) end;
   9*{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_10.bmp'))end;
   end;
   if CurrTime = 9*{#TIME_FOR_VIEW} then CurrTime := -1;
end;


procedure InitializeWizard;
begin
  ExtractTemporaryFile('Image_1.bmp');
  ExtractTemporaryFile('Image_2.bmp');
  ExtractTemporaryFile('Image_3.bmp');
  ExtractTemporaryFile('Image_4.bmp');
  ExtractTemporaryFile('Image_5.bmp');
  ExtractTemporaryFile('Image_6.bmp');
  ExtractTemporaryFile('Image_7.bmp');
  ExtractTemporaryFile('Image_8.bmp');
  ExtractTemporaryFile('Image_9.bmp');
  ExtractTemporaryFile('Image_10.bmp');

  currTime := 0;

  WizardForm.ProgressGauge.Parent := WizardForm;
  WizardForm.ProgressGauge.Top := WizardForm.CancelButton.Top + ScaleY(12);
  WizardForm.ProgressGauge.Left := ScaleX(10);
  WizardForm.ProgressGauge.Width := WizardForm.MainPanel.Width - ScaleX(20);
  WizardForm.ProgressGauge.Height := 16;
  WizardForm.ProgressGauge.Hide;
  
  WizardForm.FileNameLabel.Parent := WizardForm;
  WizardForm.FileNameLabel.Top := WizardForm.ProgressGauge.Top - ScaleY(18);
  WizardForm.FileNameLabel.Left := ScaleX(10);
  WizardForm.FileNameLabel.Width := ScaleX(397);
  WizardForm.FileNameLabel.Hide;
  
  SplashImage := TBitmapImage.Create(WizardForm);
  SplashImage.Top := 0;
  SplashImage.Left := 0;
  SplashImage.Width := WizardForm.MainPanel.Width;
  SplashImage.Height := WizardForm.Bevel.Top;
  SplashImage.Parent := WizardForm.InnerPage;
  SplashImage.Stretch := True;
  SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_1.bmp'));
  SplashImage.Hide;
end;

procedure CurPageChanged(CurPageID: Integer);
var
   pfunc: LongWord;
begin
if (CurPageID = wpInstalling) then
     begin
      pfunc := WrapTimerProc(@OnTimer, 5);
      TimerID := SetTimer(0, 0, 1000, pfunc);
      WizardForm.PageNameLabel.Visible:=false
      WizardForm.PageDescriptionLabel.Visible:=false
      WizardForm.InnerNotebook.Hide;
      WizardForm.Bevel1.Hide;
      WizardForm.MainPanel.Hide;
      WizardForm.PageNameLabel.Hide;
      WizardForm.PageDescriptionLabel.Hide;
      WizardForm.ProgressGauge.Show;
      WizardForm.FileNameLabel.Show;
      SplashImage.Show;
      WizardForm.CancelButton.Enabled :=True
      WizardForm.CancelButton.Top := WizardForm.Bevel.Top + ScaleY(100)
      end
  else
    begin
    WizardForm.ProgressGauge.Hide;
    SplashImage.Hide;
    WizardForm.FileNameLabel.Hide;
    if (CurPageID > wpInstalling) and (CurPageID < wpFinished) then
     begin
      WizardForm.InnerNotebook.Show;
      WizardForm.Bevel1.Show;
      WizardForm.MainPanel.Show;
      WizardForm.PageNameLabel.Show;
      WizardForm.PageDescriptionLabel.Show;
     end
     If CurPageID=wpFinished then
end;
end;

procedure DeInitializeSetup();
begin
 KillTimer(0, TimerID);
end;