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

[Serega]

YURSHAT,
При отправке сообщения были допущены следующие ошибки: :

YURSHAT превысил максимальный объем сохраненных персональных сообщений и не может получать новые сообщения, пока не удалит часть старых.

[South]

Цитата Chelluga:
насколько это сложно в написании поэтому и спросил »
Я не говорю, что это не возможно, но действительно, писанины очень много... »
там действительно не очень много писать, вешается таймер на основной прогрессбар, ну и имея время начала установки, текущее время и зная текущую позицию и максимум прогрессбара не сложно посчитать оставшееся время

[Chelluga]

там действительно не очень много писать, вешается таймер на основной прогрессбар, ну и имея время начала установки, текущее время и зная текущую позицию и максимум прогрессбара не сложно посчитать оставшееся время »
А Вы бы не могли написать скрипт со всем вышеперечисленным??

[YURSHAT]

YURSHAT превысил максимальный объем сохраненных »
Удалил :)

[Serega]

Ну не проходит скин с этой версией »
Специально поставил себе ispack-5.3.7-unicode и скачал последнюю версию ISSkin.
Сразу скомпилировал первый скрипт ISSkinAdv.iss в каталоге ISSkin'а. Всё нормально скомпилировалось и запустилось, ошибок не было.

[mash]

Serega, вот посмотри какой скомпилированный этот демо скрипт у меня:
http://s002.radikal.ru/i200/1001/b4/5e658bb7f7aft.jpg (http://radikal.ru/F/s002.radikal.ru/i200/1001/b4/5e658bb7f7af.jpg.html)
Вместо вот такого-серебранного окна:
http://s006.radikal.ru/i213/1001/4d/a379b7bd8ecet.jpg (http://radikal.ru/F/s006.radikal.ru/i213/1001/4d/a379b7bd8ece.jpg.html)
У меня проходят только .bmp, а вид окна синий, обычный Хр-шный не серебрянный как должен бы быть, кнопки не те, обычные. Если у тебя был серебрянный точно, то я не знаю на что грешить, на ХР-SP3?
PS Да, все ошибки что были внизу, я поборол, спасибо тебе, а вот скин не идет, ..только он.
Еще проверил на соседней Х64 , синее окно демы, не серебрянное.
Кстати, обычная 5.3.7 со скинами дружит.

[volk1234]

mash перенес ваши сообщения в "правильную" тему.
На будущее - если в шапке темы что- то написано красными буквами - стоит прочитать :)

[mash]

Я Вас понял, но мой вопрос, хоть я и затронул скрипты, скорее про новую версию с юникодом, с прежними версиями (не юникод) у меня нет проблем.

[svensoft]

YURSHAT, помоги пожайлуста, сделал я рисунок .bmp (497 * 360), вставил код из шапки форума (для вставки фонового рисунка инсталлятора), все вроде запаковалось, в момент старта исталляционного пакета ошибка выскакивает - Runtime Error (at 35:2062) Could not call proc. Посмотри пожайлуста что там не так ?...


[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{C609B4C1-5331-4D1E-96A4-7420EC33C4CB}
AppName=Sven
AppVerName=Sven
DefaultDirName={pf}\Sven
DisableDirPage=yes
DefaultGroupName=Sven
AllowNoIcons=yes
OutputDir=C:\Documents and Settings\Alexander\Ðàáî÷èé ñòîë
OutputBaseFilename=Sven (foto+video).exe
SetupIconFile=C:\Documents and Settings\Alexander\XXX\ico-èêîíêè\ya.ico
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes
WizardImageFile=C:\Documents and Settings\Alexander\\XXX\image3.bmp
WizardImageStretch=yes

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

[Files]
Source: "C:\Documents and Settings\Alexander\XXX\autorun.exe"; DestDir: "{app}"; Flags:

ignoreversion

[Run]
Filename: "{app}\autorun.exe"; Description: "{cm:LaunchProgram,Sven}";

[Code]
var
lbl1, lbl2, lbl3: TLabel;
txt1, txt2, txt3: string;
i: Integer;
tmr1: TTimer;
pnl: TPanel;

procedure tmr1Timer(Sender: TObject);
begin
tmr1.Enabled:= False;

lbl1.Caption:= 'текст';
txt2:= 'текст2';
txt3:= 'текст3';

lbl2.Caption:= '';
for i:= 1 to Length(txt2) do begin
if Application.Terminated then Break;
lbl2.Caption:= lbl2.Caption + txt2[i];
Application.ProcessMessages;
Sleep(50);
end;

lbl3.Caption:= '';
for i:= 1 to Length(txt3) do begin
if Application.Terminated then Break;
lbl3.Caption:= lbl3.Caption + txt3[i];
Application.ProcessMessages;
Sleep(25);
end;
end;

procedure CreateComponents;
begin
WizardForm.PageNameLabel.Hide;
WizardForm.PageDescriptionLabel.Hide;
WizardForm.ReadyLabel.Hide;

lbl1:= TLabel.Create(WizardForm);
with lbl1 do begin
Left:= 0;
Top:= 0;
Width:= 400;
Height:= 100;
AutoSize:= False;
WordWrap:= True;
Alignment:= taCenter;
Font.Style:= [fsBold];
Font.Size:= 16;
Font.Color:= clDkGray;
Transparent:= True;
Caption:= '';
Parent:= WizardForm.ReadyLabel.Parent;
end;

lbl2:=TLabel.Create(WizardForm);
with lbl2 do begin
Left:= 0;
Top:= 70;
Width:= 400;
Height:= 70;
AutoSize:= False;
WordWrap:= True;
Font.Style:= [fsBold];
Font.Size:= 10;
Font.Color:= clTeal;
Transparent:= True;
Caption:= '';
Parent:= WizardForm.ReadyLabel.Parent;
end;

lbl3:=TLabel.Create(WizardForm);
with lbl3 do begin
Left:= 0;
Top:= 130;
Width:= 400;
Height:= 100;
AutoSize:= False;
WordWrap:= True;
Font.Style:= [fsBold];
Font.Size:= 8;
Font.Color:= clBlue;
Transparent:= True;
Caption:= '';
Parent:= WizardForm.ReadyLabel.Parent;
end;

tmr1:= TTimer.Create(WizardForm);
with tmr1 do begin
Interval:= 500;
OnTimer:= @tmr1Timer;
end;
end;

procedure ReadyPage;
var
ready_str: string;
begin
ready_str:= WizardForm.ReadyMemo.Text;
with TLabel.Create(pnl) do
begin
SetBounds(45,115,WizardForm.ReadyMemo.Width, WizardForm.ReadyMemo.Height);
Caption:= ready_str;
with Font do
begin
Color:= WizardForm.ReadyLabel.Font.Color;
Style:= WizardForm.ReadyLabel.Font.Style;
Name:= WizardForm.ReadyLabel.Font.Name;
Size:= WizardForm.ReadyLabel.Font.Size;
end;
Transparent:= True;
Parent:= pnl;
end;
with TBevel.Create(WizardForm) do
begin
SetBounds(40,110, WizardForm.ReadyMemo.Width, WizardForm.ReadyMemo.Height);
Parent:= pnl;
end;
with TLabel.Create(pnl) do
begin
AutoSize:= WizardForm.ReadyLabel.AutoSize;
SetBounds(40,70, WizardForm.ReadyLabel.Width, WizardForm.ReadyLabel.Height);
WordWrap:= WizardForm.ReadyLabel.WordWrap;
Caption:= WizardForm.ReadyLabel.Caption;
with Font do
begin
Color:= WizardForm.ReadyLabel.Font.Color;
Style:= WizardForm.ReadyLabel.Font.Style;
Name:= WizardForm.ReadyLabel.Font.Name;
Size:= WizardForm.ReadyLabel.Font.Size;
end;
Transparent:= True;
Parent:= pnl;
end;
pnl.Repaint;
end;

procedure CurPageChanged(CurPageID: Integer);

begin
If CurPageID=wpWelcome then
begin
WizardForm.NextButton.OnClick(WizardForm.NextButton);
end
else
If CurPageID=wpReady then
begin
WizardForm.BackButton.Hide;
CreateComponents;
ReadyPage;
end
else
If CurPageID=wpFinished then
begin
WizardForm.NextButton.OnClick(WizardForm.NextButton);
end;
end;

[volk1234]

mash , я вас тоже понял. Затрудняюсь определить в силу того, что ни той ни той версией не пользовался, но судил по коду- раз есть код - значит сюда, если вопрос по юникоду без кода, туда :)

[Vengeance]

вот! должно работать! главное что бы у тебя в C:\s\a\mode* в папке "а" были файлы а не твоя папка, иначе так и установится папкой, короче в папку "а" кидай файлы напрямую из папки моделс! думаю понял »

То есть мне в папку "a" надо слить те файлы которые у мя устанавливались, при установить модели 1 и 2? А если у них одинаковое название? Короче я вообще не разобрался :(

[South]

А Вы бы не могли написать скрипт со всем вышеперечисленным?? »
ну, сейчас я еще раз писать этот скрипт не буду, дождись когда YURSHAT выложит (обещал вроде завтра), у него точно есть
mash,
если не ошибаюсь для работы с юникод-версией инно существует ISSkinU.dll, попробуй ее использовать

[Tukash]

TNeWNotebookPage не двигаеться в Инно от Рестола... в чем причина?
и все подобные тоже, блин второй день уже мучаюсь она невкатую, все подвинул...
я бы хотел растянуть как обычно, но все поля стоящие на этом месте на двигаються...
вот скрин:
http://i064.radikal.ru/1001/4e/0095a2acfce5.jpg (http://www.radikal.ru)
Vengeance
в папку "а" кидаешь модели из первого чекбока, в папку "б" из второго, если они одинаковые они заменят друг друга, поэтому они у тебя в папках!

[mash]

South, молодчина, так и есть, ведь перед носом же лежала Dll-шка и эта буква U, блин как просто. Спасибо огромное!

[vint56]

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

[svensoft]

Пока YURSHAT-а нету здесь, может кто-нибудь сможет помочь, плиззз !!! Сделал я рисунок .bmp (497 * 360), вставил код из шапки форума (для вставки фонового рисунка инсталлятора), все вроде запаковалось, в момент старта исталляционного пакета ошибка выскакивает - Runtime Error (at 35:2062) Could not call proc. Посмотрите пожайлуста что там не так ?...

[svensoft]

И вот еще вопросик, как можно вот такую шапку сделать в инсталляторе ?..
Заранее благодарен всем откликнувшимся..

[vint56]

svensoft, вот сам скрипт http://forum.oszone.net/post-1328266-929.html

[svensoft]

vint56, спасибо...

[Jerichoman]

Помогите http://s006.radikal.ru/i213/1001/9f/e31f7385e68at.jpg (http://radikal.ru/F/s006.radikal.ru/i213/1001/9f/e31f7385e68a.jpg.html)