[Rikill]

bagrat, проблема либо в exe либо в виртуалке, инно не виновна, ну или на другой диск, скорее всего кряк гумно

[bagrat]

Rikill, нет не кряк, ввожу сирийник вручную

так это при удалении ошибки? тыж писал что при установке! »

ошибка - при запуске ярлыка игры!

а при удалении http://s1.ipicture.ru/uploads/20110729/kB0ITs1P.jpg

[nik1967]

ну кроме WizardForm.Bevel1.visible, в оригинале в инно нет переменных с цифрами »

Хм, кто тебе это сказал? Из справки (F1):

Код:

TWizardForm = class(TSetupForm)
property Bevel1: TBevel; read;

[bagrat]

ребята проблема с ошибками снята это их давала вирт машина , но главный вопрос как в скрипте прописать серийник к запуску игры

ребята читая на форуме наталкиваюсь на запись скриптов, к примеру

Код:

   SaveStringsToFile(F, S, False); // сохраняем файл

в самом скрипте когда редактирую, создаю что- то начиная с // ... писать надо или это для пояснения пользователям писать не надо в скрипте

[alert30]

Ребята, дайте скрипт, чтобы показывалось в процессе инсталлятора, проценты, заранее спасибо...

[No4noylis]

alert30,

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

Код:

[Files]
Source: innocallback.dll; Flags: dontcopy

[_code]
type
    TTimerProc = procedure(HandleW, Msg, idEvent, TimeSys: LongWord);

var
  TimerID: LongWord;
  PercentsLabel: TLabel;
  
function WrapTimerProc(callback: TTimerProc; Paramcount: Integer): longword; external 'wrapcallback@files:innocallback.dll stdcall';
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): longword; external 'SetTimer@user32';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32 stdcall delayload';

Function NumToStr(Float: Extended): String;
Begin
    Result:= Format('%.1n', [Float]); StringChange(Result, ',', '.');
    while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = '.')) and (Pos('.', Result) > 0) do
        SetLength(Result, Length(Result)-1);
End;

procedure PercentsInstall();
begin
  with WizardForm.ProgressGauge do
  begin
    PercentsLabel.Caption:= 'Выполнено ' + NumToStr((Position-Min)/((Max - Min)/100)) + ' %';
  end;
end;

Procedure MyTimerProc(h, msg, idevent, dwTime: Longword);
Begin
    if WizardForm.CurPageID = wpInstalling then PercentsInstall();
End;

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

procedure InitializeWizard();
begin
    PercentsLabel:= TLabel.Create(WizardForm);
  with PercentsLabel do
  begin
    Left:= WizardForm.DirEdit.Left + ScaleX(150);
    Top:= WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + ScaleY(5);
    Width:= WizardForm.StatusLabel.Width;
    Height:= WizardForm.StatusLabel.Height + ScaleY(5);
    AutoSize:= False;
    Transparent := True;
    Font.Style:= [fsBold, fsItalic];
    Font.Size:= 13;
    Font.Name:= 'Constantia' ;
    Font.Color:= ClWhite;
    Parent:= WizardForm.InstallingPage;
   end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssInstall then
  begin
  TimerID:= SetTimer(0, 0, 500 {Полсекунды}, WrapTimerProc(@MyTimerProc, 4));
  end;
end;

innocallback.dll кинешь в папку с скриптом.

[nik1967]

это для пояснения пользователям»

Так сказать, комментарии.
А писать или нет - тебе решать.

[alert30]

No4noylis, сорри, я видел в процессе инсталляции проценты, только шрифт белый, спасибо.

[insombia]

alert30 вот что тебе нужно скачай пачку скриптов там есть несколько скриптов насчет процентов в прогресс баре

[alert30]

insombia, еще раз спасибо.