[saurn]

Костя_Антонов@fb

Код:

[Setup]
DefaultDirName={code:GetPreviousDir}

[Code]
function GetPreviousDir(AppInstallDir: String): String;
begin
  if RegKeyExists(HKLM, 'SOFTWARE\My,Program') then
  begin
    RegQueryStringValue(HKLM, 'SOFTWARE\My,Program', 'InstallLocation', AppInstallDir);
    Result := RemoveBackslash(AppInstallDir);
  end else
    Result := ExpandConstant('{pf}\My Program')
end;

[Костя_Антонов@fb]

Спасибо за помощь

[audiofeel]

"Доброй" ночи всем. подскажите , посаветуйте в чем разница между этими двумя "примерами"

Код:

procedure InitializeWizard();
begin 
  DirectX := TCheckBox.Create(WizardForm);
  With DirectX  do begin
    Parent   := WizardForm;
    Cursor   := crHand;
    TabOrder := 0;
    Checked  := False;
    SetBounds(50,166,15,15);
 end;                                                                                                                                         

и вот этим
procedure InitializeWizard();
begin 
  DirectX := TCheckBox.Create(WizardForm);
  DirectX.Parent   := WizardForm;
  DirectX.Cursor   := crHand;
  DirectX.TabOrder := 0;
  DirectX.SetBounds(50,166,15,15);
  DirectX.Checked  := False;
end;

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

[Nightwishh]

Подскажите, как перенести текст из "WizardForm.ComponentsDiskSpaceLabel" и "WizardForm.FinishedLabel" на Label? Пробовал через

Код:

 Label1.Caption:= WizardForm.ComponentsDiskSpaceLabel.Caption и
Label2.Caption:= WizardForm.FinishedLabel.Caption

получается просто звёздочка на лейбле.
2) и что лучше

Код:

SetBounds(ScaleX(23), ScaleY(102), ScaleX(150), ScaleY(22)); или
Left:= ScaleX(23);
Top:= ScaleY(102);
Width:= ScaleX(150);
Height:= ScaleY(22);

Спасибо!

[audiofeel]

Nightwishh, Я делаю вот так, пробуй

Код:

 Label1.Caption:= SetupMessage(msgComponentsDiskSpaceMBLabel);
Label2.Caption:= SetupMessage(msgFinishedLabel);

[neorom]

а какая ошибка? Скрынчык дай хоть бы... »

Фото

[saurn]

"Доброй" ночи всем. подскажите , посаветуйте в чем разница между этими двумя "примерами" »

Я обычно использую первый вариант, когда для контрола требуется задать много параметров - это избавляет от лишней писанины. И вторым вариантом, если требуется изменить какой-то один параметр. А насчет быстроты, не знаю, ни разу не обращал внимания.
Кстати, координаты лучше указывать вот так:

Код:

SetBounds(ScaleX(50), ScaleY(166), ScaleX(15), ScaleY(15));

В чем разница? Просто, координаты указаные без ScaleX, ScaleY будут являтся фактическими, и могут быть различные проблемы с отображением контролов, особенно, если в системе установлен размер текста не по умолчанию. Из-за не правильного указания координат обычно и возникают проблемы, типа: кнопка лежит не там, где задумано, текст вруг уехал в сторону и т.д. А так координаты контролов будут задаватся согласно размеру клиента.

и что лучше »

Первый вариант. Хотя бы тем, что сокращает колличество строк с четырех до одной.

neorom
Пробел потеряли.

Код:

PercentsLabel.Caption := 'Установка игры: ' + NumToStr((Position*100)/Max) + '.' + Chr(48 + Position mod{вот тут пробела нехватает}10) + ' %';

[neorom]

Тепер эсть так но не получаэтсь так

[Johny777]

Костя_Антонов@fb, saurn, (не забываем const AppInstallDir... во входных параметрах!), вот апдейт функции

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
AppId=123

DefaultDirName={code:GetPreviousDir}

[Code ]
function GetPreviousDir(const AppInstallDir: String): String;
begin
    RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1', 'InstallLocation', Result);
    if Result <> '' then RemoveBackslash(Result) else Result := ExpandConstant('{pf}\My Program');
end;

заместо функции GetPreviousDir(...) проще всего получить пред. путь так:

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

Код:

AppName=My Program
AppVerName=My Program v.1.2

AppId=proto15
DefaultDirName={reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1,InstallLocation|{pf}\Source Engine 15}
//DefaultDirName={reg:HKCU\Software\Valve\Steam,SourceModInstallPath|{pf}\valve\steam\SteamApps\SourceMods\Lost Coast}

тут 2 примера (верхний дал когда-то El Sanchez, а нижний выдрал для примера отсюда http://members.home.nl/albartus/issi...cript-1.07.iss ), каждая директива разделена |. Короче говоря, если первого пути который мы получаем из ключа reg:HKCU\Software\Valve\Steam , а в нём из записи SourceModInstallPath вернётся пустая строка '', то будет выведен путь справа от |, те путь по умолчанию
======================================================================

neorom, исправил, улучшил, замени у себя всю секцию кода на эту:

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

Код:

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';

Procedure MyTimerProc(h, msg, idevent, dwTime: Longword);
Begin
  if WizardForm.CurPageID = wpInstalling then with WizardForm.ProgressGauge do PercentsLabel.Caption:= Format('%s'#32'%s', ['Установка игры:', FormatFloat('0.0 %', (Position*100)/Max)]);
End;

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

procedure InitializeWizard();
begin
  PercentsLabel:= TLabel.Create(WizardForm);
  with PercentsLabel do
  begin
    Left:= WizardForm.DirEdit.Left;
    Top:= ScaleY(WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + 30);
    Width:= WizardForm.StatusLabel.Width;
    Height:= WizardForm.StatusLabel.Height;
    AutoSize:= False;
    Transparent := True;
    Alignment := taCenter;
    Font.Style:= [fsBold, fsItalic];
    Font.Size:= 14;
    Font.Name:= 'Times New Roman';
    Font.Color:= ClMaroon;
    Parent:= WizardForm.InstallingPage;
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssInstall then TimerID:= SetTimer(0, 0, 500 {Установка игры}, WrapTimerProc(@MyTimerProc, 4));
end;

[GolD18]

Здравствуйте. Не видно надпись снизу. Один квадратик остался. Что изменить надо?

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

const
Color = clblack;

procedure InitializeWizard2();
begin
WizardForm.Font.Color:=clLime;
WizardForm.Color:=Color;
WizardForm.WelcomePage.Color:=Color;
WizardForm.InnerPage.Color:=Color;
WizardForm.FinishedPage.Color:=Color;
WizardForm.LicensePage.Color:=Color;
WizardForm.PasswordPage.Color:=Color;
WizardForm.InfoBeforePage.Color:=Color;
WizardForm.UserInfoPage.Color:=Color;
WizardForm.SelectDirPage.Color:=Color;
WizardForm.SelectComponentsPage.Color:=Color;
WizardForm.SelectProgramGroupPage.Color:=Color;
WizardForm.SelectTasksPage.Color:=Color;
WizardForm.ReadyPage.Color:=Color;
WizardForm.PreparingPage.Color:=Color;
WizardForm.InstallingPage.Color:=clblack;
WizardForm.InfoAfterPage.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.DiskSpaceLabel.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.GroupEdit.Color:=Color;
WizardForm.PasswordLabel.Color:=Color;
WizardForm.PasswordEdit.Color:=Color;
WizardForm.PasswordEditLabel.Color:=Color;
WizardForm.ReadyMemo.Color:=Color;
WizardForm.TypesCombo.Color:=Color;
WizardForm.WelcomeLabel1.Color:=Color;
WizardForm.WelcomeLabel1.Font.Color:=clLime;
WizardForm.InfoBeforeClickLabel.Color:=Color;
WizardForm.MainPanel.Color:=Color;
WizardForm.PageNameLabel.Color:=Color;
WizardForm.PageDescriptionLabel.Color:=Color;
WizardForm.ReadyLabel.Color:=Color;
WizardForm.FinishedLabel.Color:=Color;
WizardForm.YesRadio.Color:=Color;
WizardForm.NoRadio.Color:=Color;
WizardForm.WelcomeLabel2.Color:=Color;
WizardForm.LicenseLabel1.Color:=Color;
WizardForm.InfoAfterClickLabel.Color:=Color;
WizardForm.ComponentsList.Color:=Color;
WizardForm.ComponentsDiskSpaceLabel.Color:=Color;
WizardForm.BeveledLabel.Color:=Color;
WizardForm.StatusLabel.Color:=Color;
WizardForm.FilenameLabel.Color:=Color;
WizardForm.SelectDirLabel.Color:=Color;
WizardForm.SelectStartMenuFolderLabel.Color:=Color;
WizardForm.SelectComponentsLabel.Color:=Color;
WizardForm.SelectTasksLabel.Color:=Color;
WizardForm.LicenseAcceptedRadio.Color:=Color;
WizardForm.LicenseNotAcceptedRadio.Color:=Color;
WizardForm.UserInfoNameLabel.Color:=Color;
WizardForm.UserInfoNameEdit.Color:=Color;
WizardForm.UserInfoOrgLabel.Color:=Color;
WizardForm.UserInfoOrgEdit.Color:=Color;
WizardForm.PreparingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Font.Color:=clLime;
WizardForm.UserInfoSerialLabel.Color:=Color;
WizardForm.UserInfoSerialEdit.Color:=Color;
WizardForm.TasksList.Color:=Color;
WizardForm.RunList.Color:=Color;
WizardForm.SelectDirBrowseLabel.Color:=Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
WizardForm.PageNameLabel.Font.Color:=clLime;
WizardForm.Bevel.visible:=False;
WizardForm.BeveledLabel.visible:=False;
WizardForm.Bevel1.visible:=False;
end;