Про софт и железки.
-
Tr1p
- Нович0к
- Сообщения: 4
- Зарегистрирован: 15.08.2009
#76
Сообщение
17.08.2009, 00:47
оййййй в пуск => все программы туда тоже такой же ярлык как впихнуть?
-
argnist
- VIP
- Сообщения: 1083
- Зарегистрирован: 21.05.2006
- Откуда: Украина, Днепропетровск
- Поблагодарили: 1 раз
#77
Сообщение
17.08.2009, 13:16
Код: Выделить всё
[Icons]
Name: {group}\Half-Life 2; Filename: {app}\hl2.exe; WorkingDir: {app}; IconFilename: {app}\game.ico
-
M1ke
- Модератор
- Сообщения: 1464
- Зарегистрирован: 17.06.2007
- Откуда: 54
- Благодарил (а): 2 раза
- Поблагодарили: 90 раз
-
Контактная информация:
#78
Сообщение
17.08.2009, 14:26
Tr1p, на предыдущей странице есть ссылка на русккий хелп - прочитай её, и не задавай глупых(ламерских, нубских)вопросов.
-
Nikk1488
- VIP
- Сообщения: 2492
- Зарегистрирован: 01.01.2008
- Поблагодарили: 4 раза
-
Контактная информация:
#79
Сообщение
17.08.2009, 17:23
Проще взглянуть выше.
[txtspoil]Adiost и я - гей шлюхи!!![/txtspoil]
-
Tr1p
- Нович0к
- Сообщения: 4
- Зарегистрирован: 15.08.2009
#80
Сообщение
17.08.2009, 18:47
M1ke Я смотрю ты тут слишком умный. Не нравится что то не помогай мне.
argnist Спасибо.
Nikk :)
-
supercores
- Лейтенант
- Сообщения: 167
- Зарегистрирован: 03.04.2009
- Благодарил (а): 1 раз
#81
Сообщение
28.08.2009, 19:32
Здравствуйте уважаемые.
Нужно реализовать открытие распакованного файла во время установки (сразу после распаковки файла), процесс установки должен в это время приостановится, до момента закрытия файла.
Заранее спасибо.
-
supercores
- Лейтенант
- Сообщения: 167
- Зарегистрирован: 03.04.2009
- Благодарил (а): 1 раз
#82
Сообщение
29.08.2009, 10:23
Вопрос не актуален, спасибо.
Procedure Open();
var
ResultCode:integer;
Path:string;
begin
Path:=ExpandConstant(CurrentFileName);
If FileExists(Path)
Then Exec(Path, '', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;
[Files]
Source: "C:Program FilesInno Setup 5ExamplesMyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
-
Fatman
- Лейтенант
- Сообщения: 112
- Зарегистрирован: 20.06.2008
- Откуда: Pyroland
- Благодарил (а): 1 раз
- Поблагодарили: 2 раза
-
Контактная информация:
#83
Сообщение
15.09.2009, 21:07
Парни помогите пожалуйста правильно обьединить
Это
Код: Выделить всё
const
ButtonWidth = 80;
ButtonHeight = 23;
bidBack = 0;
bidNext = 1;
bidCancel = 2;
bidDirBrowse = 3;
bidGroupBrowse = 4;
var
NeedSize: Integer;
FreeMB, TotalMB: Cardinal;
NeedSpaceLabel,FreeSpaceLabel: TLabel;
ButtonPanel: array [0..4] of TPanel;
ButtonImage: array [0..4] of TBitmapImage;
ButtonLabel: array [0..4] of TLabel;
procedure GetFreeSpaceCaption(Sender: TObject);
var
Path: String;
begin
Path := ExtractFileDrive(WizardForm.DirEdit.Text);
GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
if FreeMB > 1024 then
FreeSpaceLabel.Caption := ExpandConstant('{cm:FREESIZE}') + ': ' + FloatToStr(round(FreeMB/1024*100)/100) + ' GB' else
FreeSpaceLabel.Caption := ExpandConstant('{cm:FREESIZE}') + ': ' + IntToStr(FreeMB) + ' MB';
if FreeMB < NeedSize then
begin
WizardForm.NextButton.Enabled := False;
end else
begin
WizardForm.NextButton.Enabled := True;
ButtonLabel[bidNext].Enabled := True;
ButtonPanel[bidNext].Enabled := True;
end;
end;
procedure GetNeedSpaceCaption;
begin
if NeedSize > 1024 then
NeedSpaceLabel.Caption := ExpandConstant('{cm:NEEDSIZE}') + ': ' + FloatToStr(round(NeedSize/1024*100)/100) + ' GB'
else
NeedSpaceLabel.Caption := ExpandConstant('{cm:NEEDSIZE}') + ': ' + IntToStr(NeedSize)+ ' MB';
end;
procedure ButtonLabelClick(Sender: TObject);
var
Button: TButton;
begin
ButtonImage[TLabel(Sender).Tag].Left:=0
case TLabel(Sender).Tag of
bidBack: Button:=WizardForm.BackButton
bidNext: Button:=WizardForm.NextButton
bidCancel: Button:=WizardForm.CancelButton
bidDirBrowse: Button:=WizardForm.DirBrowseButton
bidGroupBrowse: Button:=WizardForm.GroupBrowseButton
else
Exit
end
Button.OnClick(Button)
end;
procedure ButtonLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if ButtonLabel[TLabel(Sender).Tag].Enabled then
ButtonImage[TLabel(Sender).Tag].Left:=-ButtonWidth
end;
procedure ButtonLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ButtonImage[TLabel(Sender).Tag].Left:=0
end;
procedure LoadButtonImage(AButton: TButton; AButtonIndex: integer);
var
Image: TBitmapImage;
Panel: TPanel;
Labl: TLabel;
begin
Panel:=TPanel.Create(WizardForm)
Panel.Left:=AButton.Left
Panel.Top:=AButton.Top
Panel.Width:=AButton.Width
Panel.Height:=AButton.Height
Panel.Tag:=AButtonIndex
Panel.Parent:=AButton.Parent
ButtonPanel[AButtonIndex]:=Panel
Image:=TBitmapImage.Create(WizardForm)
Image.Width:=160
Image.Height:=23
Image.Enabled:=False
Image.Bitmap.LoadFromFile(ExpandConstant('{tmp}\button.bmp'))
Image.Parent:=Panel
ButtonImage[AButtonIndex]:=Image
with TLabel.Create(WizardForm) do begin
Tag:=AButtonIndex
Parent:=Panel
Width:=Panel.Width
Height:=Panel.Height
Transparent:=True
OnClick:=@ButtonLabelClick
OnDblClick:=@ButtonLabelClick
OnMouseDown:=@ButtonLabelMouseDown
OnMouseUp:=@ButtonLabelMouseUp
end
Labl:=TLabel.Create(WizardForm)
Labl.Left:=23
Labl.Top:=5
Labl.Autosize:=True
Labl.Alignment:=taCenter
Labl.Tag:=AButtonIndex
Labl.Transparent:=True
Labl.Font.Color:=clWhite
Labl.Caption:=AButton.Caption
Labl.OnClick:=@ButtonLabelClick
Labl.OnDblClick:=@ButtonLabelClick
Labl.OnMouseDown:=@ButtonLabelMouseDown
Labl.OnMouseUp:=@ButtonLabelMouseUp
Labl.Parent:=Panel
ButtonLabel[AButtonIndex]:=Labl
end;
procedure UpdateButton(AButton: TButton;AButtonIndex: integer);
begin
ButtonLabel[AButtonIndex].Caption:=AButton.Caption
ButtonPanel[AButtonIndex].Visible:=AButton.Visible
ButtonLabel[AButtonIndex].Enabled:=Abutton.Enabled
end;
procedure LicenceAcceptedRadioOnClick(Sender: TObject);
begin
ButtonLabel[bidNext].Enabled:=True
end;
procedure LicenceNotAcceptedRadioOnClick(Sender: TObject);
begin
ButtonLabel[bidNext].Enabled:=False
end;
procedure InitializeWizard();
begin
NeedSize := 307200;
WizardForm.DiskSpaceLabel.Hide;
NeedSpaceLabel := TLabel.Create(WizardForm);
NeedSpaceLabel.Left := ScaleX(0);
NeedSpaceLabel.Top := ScaleY(202);
NeedSpaceLabel.Width := ScaleX(209);
NeedSpaceLabel.Height := ScaleY(13);
NeedSpaceLabel.Parent := WizardForm.SelectDirPage;
FreeSpaceLabel := TLabel.Create(WizardForm);
FreeSpaceLabel.Left := ScaleX(0);
FreeSpaceLabel.Top := ScaleY(220);
FreeSpaceLabel.Width := ScaleX(209);
FreeSpaceLabel.Height := ScaleY(13);
FreeSpaceLabel.Parent := WizardForm.SelectDirPage;
WizardForm.BackButton.Width:=ButtonWidth
WizardForm.BackButton.Height:=ButtonHeight
WizardForm.NextButton.Width:=ButtonWidth
WizardForm.NextButton.Height:=ButtonHeight
WizardForm.CancelButton.Width:=ButtonWidth
WizardForm.CancelButton.Height:=ButtonHeight
WizardForm.DirBrowseButton.Left:=337
WizardForm.DirBrowseButton.Width:=ButtonWidth
WizardForm.DirBrowseButton.Height:=ButtonHeight
WizardForm.GroupBrowseButton.Left:=337
WizardForm.GroupBrowseButton.Width:=ButtonWidth
WizardForm.GroupBrowseButton.Height:=ButtonHeight
WizardForm.LicenseAcceptedRadio.OnClick:=@LicenceAcceptedRadioOnClick
WizardForm.LicenseNotAcceptedRadio.OnClick:=@LicenceNotAcceptedRadioOnClick
ExtractTemporaryFile('button.bmp')
LoadButtonImage(WizardForm.BackButton,bidBack)
LoadButtonImage(WizardForm.NextButton,bidNext)
LoadButtonImage(WizardForm.CancelButton,bidCancel)
LoadButtonImage(WizardForm.DirBrowseButton,bidDirBrowse)
LoadButtonImage(WizardForm.GroupBrowseButton,bidGroupBrowse)
end;
procedure CurPageChanged(CurPageID: Integer);
begin
UpdateButton(WizardForm.BackButton,bidBack)
UpdateButton(WizardForm.NextButton,bidNext)
UpdateButton(WizardForm.CancelButton,bidCancel)
if CurPageID = wpSelectDir then
begin
GetNeedSpaceCaption;
WizardForm.DirEdit.OnChange := @GetFreeSpaceCaption;
WizardForm.DirEdit.Text := WizardForm.DirEdit.Text + #0;
if FreeMB < NeedSize then
begin
WizardForm.NextButton.Enabled := False;
ButtonLabel[bidNext].Enabled := False;
ButtonPanel[bidNext].Enabled := False;
end;
end;
end;[/spoiler]
и
[spoiler="это"][Code]
const
Color = clblack;
var
WelcomeLabel1, WelcomeLabel2: TLabel;
BmpFile: TBitmapImage;
procedure InitializeWizard1();
begin
ExtractTemporaryFile('fon.bmp');
BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\fon.bmp'));
BmpFile.SetBounds(0, 0, 497, 320); // ðàçìåð êàðòèíêè
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.WelcomePage;
with WizardForm do
begin
WelcomeLabel1.Hide;
WelcomeLabel2.hide;
end;
WelcomeLabel1:= TLabel.Create(WizardForm);
with WelcomeLabel1 do
begin
Left:= ScaleX(0);
Top:= ScaleY(0);
Width:= ScaleX(0);
Height:= ScaleY(0);
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
Font.Size:= 12;
Font.Color:=ClWhite
Parent:= WizardForm.WelcomePage;
Caption:= WizardForm.WelcomeLabel1.Caption;
end;
WelcomeLabel2:=TLabel.Create(WizardForm);
with WelcomeLabel2 do
begin
Top:= ScaleY(0);
Left:= ScaleX(0);
Width:= ScaleX(0);
Height:= ScaleY(0);
AutoSize:= false;
WordWrap:= true;
Font.Color:=ClWhite
Transparent:= true;
Parent:= WizardForm.WelcomePage;
Caption:= WizardForm.WelcomeLabel2.Caption;
end;
end;
procedure InitializeWizard2();
begin
with WizardForm do begin
with MainPanel do
Height := Height - 1;
with WizardSmallBitmapImage do begin
Left := 0;
Top := 0;
Height := 58; //
Width := 497; //
end;
with PageNameLabel do begin
Width := Width - 0; //
Left := Left + 0; //
end;
with PageDescriptionLabel do begin
Width := Width - 0; //
Left := Left + 0; //
end;
end;
end;
procedure InitializeWizard();
begin
InitializeWizard1();
InitializeWizard2();
begin
WizardForm.PageNameLabel.Font.Color:=clWhite;
WizardForm.LicenseAcceptedRadio.Font.Color:=clWhite;
WizardForm.LicenseNotAcceptedRadio.Font.Color:=clWhite;
WizardForm.Font.Color:=clWhite;
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:=Color;
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.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.UserInfoSerialLabel.Color:=Color;
WizardForm.UserInfoSerialEdit.Color:=Color;
WizardForm.TasksList.Color:=Color;
WizardForm.RunList.Color:=Color;
WizardForm.SelectDirBrowseLabel.Color:=Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
end;
end;[/spoiler]
-
argnist
- VIP
- Сообщения: 1083
- Зарегистрирован: 21.05.2006
- Откуда: Украина, Днепропетровск
- Поблагодарили: 1 раз
#84
Сообщение
23.09.2009, 11:18
-
Fatman
- Лейтенант
- Сообщения: 112
- Зарегистрирован: 20.06.2008
- Откуда: Pyroland
- Благодарил (а): 1 раз
- Поблагодарили: 2 раза
-
Контактная информация:
#85
Сообщение
23.09.2009, 13:16
Бесполезная вещь абсолютно.Ещё ни разу правильно не обьединила.
-
argnist
- VIP
- Сообщения: 1083
- Зарегистрирован: 21.05.2006
- Откуда: Украина, Днепропетровск
- Поблагодарили: 1 раз
#86
Сообщение
23.09.2009, 21:54
Fatman
значит я везунчик... у меня нормально прикрутило скрипт проверки системных требований к обычному скрипту
-
Fatman
- Лейтенант
- Сообщения: 112
- Зарегистрирован: 20.06.2008
- Откуда: Pyroland
- Благодарил (а): 1 раз
- Поблагодарили: 2 раза
-
Контактная информация:
#87
Сообщение
23.09.2009, 23:28
argnist писал(а):Fatman
значит я везунчик... у меня нормально прикрутило скрипт проверки системных требований к обычному скрипту
Я в основном балуюсь с
-
argnist
- VIP
- Сообщения: 1083
- Зарегистрирован: 21.05.2006
- Откуда: Украина, Днепропетровск
- Поблагодарили: 1 раз
#88
Сообщение
24.09.2009, 07:34
дык сам подумай, скрипт перерисовующий виндоу капшн и применяющий вызов из длл + системные требования - здесь я сам не смог объеденить, чтоб работало. А джойнер смог!
-
Fatman
- Лейтенант
- Сообщения: 112
- Зарегистрирован: 20.06.2008
- Откуда: Pyroland
- Благодарил (а): 1 раз
- Поблагодарили: 2 раза
-
Контактная информация:
#89
Сообщение
24.09.2009, 12:12
Ну флаг ему в руки значит :D
-
argnist
- VIP
- Сообщения: 1083
- Зарегистрирован: 21.05.2006
- Откуда: Украина, Днепропетровск
- Поблагодарили: 1 раз
#90
Сообщение
24.09.2009, 19:47
вышла версия 5.3.5