Jump to content
Korean Random
EvilAlex

Создание инсталляторов для модпаков на базе Inno Setup

Recommended Posts

как задать артибуту для создаваемого файла только чтение и скрытность?

function SetFileAttributes(lpFileName: string; dwFileAttributes: DWORD): BOOL; external '[email protected] stdcall';

SetFileAttributes(ExpandConstant('{app}\Readme.txt'), FILE_ATTRIBUTE_HIDDEN);

Параметры: тык!

AtotIK, хоть и поменял координаты все равно не видно их.

Значит неправильно задаёшь: procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);

  • Upvote 1
  • Downvote 1

Share this post


Link to post

Short link
Share on other sites

function SetFileAttributes(lpFileName: string; dwFileAttributes: DWORD): BOOL; external '[email protected] stdcall';

SetFileAttributes(ExpandConstant('{app}\Readme.txt'), FILE_ATTRIBUTE_HIDDEN);

Параметры: тык!

del

Edited by Dark_Knight_MiX
  • Downvote 1

Share this post


Link to post

Short link
Share on other sites

Потому что ты тупдолжен понимать, что атрибут вешается на уже созданный файл!

  • Upvote 1
  • Downvote 1

Share this post


Link to post

Short link
Share on other sites

Потому что ты тупдолжен понимать, что атрибут вешается на уже созданный файл!

Дошло уже  :ok:

  • Upvote 1
  • Downvote 1

Share this post


Link to post

Short link
Share on other sites

Дайте скин как у WOT FuN ПЛИЗ 

Вообще то у модпака WOT FuN нет скина  :heh:

это картинки на каждой страницы  

Edited by Dark_Knight_MiX

Share this post


Link to post

Short link
Share on other sites

Нифига подобного.

я имел ввиду что ему это сложно будет 

Share this post


Link to post

Short link
Share on other sites

Всем привет как увеличить ето окно после установки модов c4a9f135a8fb.png

код 

function WindowResize(): Boolean;
var
  HeightOffset, WidthOffset: Integer;
begin
  HeightOffset:=140;
  WidthOffset:=140;

  WizardForm.Height:=WizardForm.Height + HeightOffset;
  WizardForm.Width:=WizardForm.Width + WidthOffset;

  WizardForm.NextButton.Top:=WizardForm.NextButton.Top + HeightOffset;
  WizardForm.BackButton.Top:=WizardForm.BackButton.Top + HeightOffset;
  WizardForm.CancelButton.Top:=WizardForm.CancelButton.Top + HeightOffset;
  WizardForm.NextButton.Left:=WizardForm.NextButton.Left + WidthOffset;
  WizardForm.BackButton.Left:=WizardForm.BackButton.Left + WidthOffset;
  WizardForm.CancelButton.Left:=WizardForm.CancelButton.Left + WidthOffset;

  WizardForm.OuterNotebook.Height:=WizardForm.OuterNotebook.Height + HeightOffset;
  WizardForm.InnerNotebook.Height:=WizardForm.InnerNotebook.Height + HeightOffset;
  WizardForm.OuterNotebook.Width:=WizardForm.OuterNotebook.Width + WidthOffset;
  WizardForm.InnerNotebook.Width:=WizardForm.InnerNotebook.Width + WidthOffset;
  WizardForm.WizardSmallBitmapImage.Left:= WizardForm.WizardSmallBitmapImage.Left + WidthOffset;
  WizardForm.Bevel.Top:=WizardForm.Bevel.Top + HeightOffset;
  WizardForm.BeveledLabel.Top:=WizardForm.BeveledLabel.Top + HeightOffset;
  WizardForm.Bevel.Width:=WizardForm.Bevel.Width + WidthOffset;
  WizardForm.Bevel1.Width:=WizardForm.Bevel1.Width + WidthOffset;
  WizardForm.MainPanel.Width:=WizardForm.MainPanel.Width + WidthOffset;
  WizardForm.BeveledLabel.Width:=WizardForm.BeveledLabel.Width + WidthOffset;
  WizardForm.Center;

  WizardForm.WelcomeLabel1.Hide;
  WizardForm.WelcomeLabel2.Hide;
  WizardForm.FinishedLabel.Hide;
  WizardForm.FinishedHeadingLabel.Hide;
  WizardForm.WizardBitmapImage.Width:=640;
  WizardForm.WizardBitmapImage.Height:=465;
  WizardForm.WizardBitmapImage2.Width:=640;
  WizardForm.WizardBitmapImage2.Height:=452;
  WizardForm.PageNameLabel.Hide;
  WizardForm.PageDescriptionLabel.Hide;
  WizardForm.WizardSmallBitmapImage.Top:=0;
  WizardForm.WizardSmallBitmapImage.Left:=0;
  WizardForm.WizardSmallBitmapImage.Width:=WizardForm.Width;
  WizardForm.WizardSmallBitmapImage.Height:=58;

  WizardForm.WelcomeLabel1.Hide;
  WizardForm.WelcomeLabel2.Hide;
  WizardForm.WizardBitmapImage.Width:=640;
  WizardForm.WizardBitmapImage.Height:=465;

  WizardForm.FinishedHeadingLabel.Hide;
  WizardForm.FinishedLabel.Hide;
  WizardForm.YesRadio.Hide;
  WizardForm.NoRadio.Hide;
  WizardForm.WizardBitmapImage2.Width:=640;
  WizardForm.WizardBitmapImage2.Height:=465;

  WizardForm.PageNameLabel.Hide;
  WizardForm.PageDescriptionLabel.Hide;
  WizardForm.WizardSmallBitmapImage.Top:=0;
  WizardForm.WizardSmallBitmapImage.Left:=0;
  WizardForm.WizardSmallBitmapImage.Width:=650;
  WizardForm.WizardSmallBitmapImage.Height:=60;

  WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width + WidthOffset;
  WizardForm.WelcomeLabel1.Height:=WizardForm.WelcomeLabel1.Height + HeightOffset;
  WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width + WidthOffset;

  WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width + WidthOffset;
  WizardForm.WelcomeLabel2.Height:=WizardForm.WelcomeLabel2.Height + HeightOffset;
  WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width + WidthOffset;


  WizardForm.LicenseLabel1.Width:=WizardForm.LicenseLabel1.Width + WidthOffset;
  WizardForm.LicenseMemo.Height:=WizardForm.LicenseMemo.Height + HeightOffset;
  WizardForm.LicenseMemo.Width:=WizardForm.LicenseMemo.Width + WidthOffset;
  WizardForm.LicenseNotAcceptedRadio.Top:=WizardForm.LicenseNotAcceptedRadio.Top + HeightOffset;
  WizardForm.LicenseAcceptedRadio.Top:=WizardForm.LicenseAcceptedRadio.Top + HeightOffset;

  WizardForm.InfoBeforeClickLabel.Width:=WizardForm.InfoBeforeClickLabel.Width + WidthOffset;
  WizardForm.InfoBeforeMemo.Height:=WizardForm.InfoBeforeMemo.Height + HeightOffset;
  WizardForm.InfoBeforeMemo.Width:=WizardForm.InfoBeforeMemo.Width + WidthOffset;

  WizardForm.SelectDirLabel.Width:=WizardForm.SelectDirLabel.Width + WidthOffset;
  WizardForm.SelectDirBrowseLabel.Width:=WizardForm.SelectDirBrowseLabel.Width + WidthOffset;
  WizardForm.DiskSpaceLabel.Top:=WizardForm.DiskSpaceLabel.Top + HeightOffset;
  WizardForm.DirBrowseButton.Left:=WizardForm.DirBrowseButton.Left + HeightOffset;
  WizardForm.DirEdit.Width:=WizardForm.DirEdit.Width + HeightOffset;

  WizardForm.ComponentsDiskSpaceLabel.Top:=WizardForm.ComponentsDiskSpaceLabel.Top + HeightOffset;
  WizardForm.SelectComponentsLabel.Width:=WizardForm.SelectComponentsLabel.Width + WidthOffset;
  WizardForm.ComponentsList.Height:=WizardForm.ComponentsList.Height + HeightOffset;
  WizardForm.ComponentsList.Width:=WizardForm.ComponentsList.Width + WidthOffset;

  WizardForm.ReadyLabel.Width:=WizardForm.ReadyLabel.Width + WidthOffset;
  WizardForm.ReadyMemo.Height:=WizardForm.ReadyMemo.Height + HeightOffset;
  WizardForm.ReadyMemo.Width:=WizardForm.ReadyMemo.Width + WidthOffset;

  WizardForm.ProgressGauge.Width:=WizardForm.ProgressGauge.Width + HeightOffset;
  WizardForm.FilenameLabel.Width:=WizardForm.FilenameLabel.Width + HeightOffset;
  WizardForm.StatusLabel.Width:=WizardForm.StatusLabel.Width + HeightOffset;
end;
Edited by voin_123

Share this post


Link to post

Short link
Share on other sites

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

Share this post


Link to post

Short link
Share on other sites

Всем привет как увеличить ето окно после установки модов c4a9f135a8fb.png

код

 

function WindowResize(): Boolean;var  HeightOffset, WidthOffset: Integer;begin  HeightOffset:=140;  WidthOffset:=140;  WizardForm.Height:=WizardForm.Height + HeightOffset;  WizardForm.Width:=WizardForm.Width + WidthOffset;  WizardForm.NextButton.Top:=WizardForm.NextButton.Top + HeightOffset;  WizardForm.BackButton.Top:=WizardForm.BackButton.Top + HeightOffset;  WizardForm.CancelButton.Top:=WizardForm.CancelButton.Top + HeightOffset;  WizardForm.NextButton.Left:=WizardForm.NextButton.Left + WidthOffset;  WizardForm.BackButton.Left:=WizardForm.BackButton.Left + WidthOffset;  WizardForm.CancelButton.Left:=WizardForm.CancelButton.Left + WidthOffset;  WizardForm.OuterNotebook.Height:=WizardForm.OuterNotebook.Height + HeightOffset;  WizardForm.InnerNotebook.Height:=WizardForm.InnerNotebook.Height + HeightOffset;  WizardForm.OuterNotebook.Width:=WizardForm.OuterNotebook.Width + WidthOffset;  WizardForm.InnerNotebook.Width:=WizardForm.InnerNotebook.Width + WidthOffset;  WizardForm.WizardSmallBitmapImage.Left:= WizardForm.WizardSmallBitmapImage.Left + WidthOffset;  WizardForm.Bevel.Top:=WizardForm.Bevel.Top + HeightOffset;  WizardForm.BeveledLabel.Top:=WizardForm.BeveledLabel.Top + HeightOffset;  WizardForm.Bevel.Width:=WizardForm.Bevel.Width + WidthOffset;  WizardForm.Bevel1.Width:=WizardForm.Bevel1.Width + WidthOffset;  WizardForm.MainPanel.Width:=WizardForm.MainPanel.Width + WidthOffset;  WizardForm.BeveledLabel.Width:=WizardForm.BeveledLabel.Width + WidthOffset;  WizardForm.Center;  WizardForm.WelcomeLabel1.Hide;  WizardForm.WelcomeLabel2.Hide;  WizardForm.FinishedLabel.Hide;  WizardForm.FinishedHeadingLabel.Hide;  WizardForm.WizardBitmapImage.Width:=640;  WizardForm.WizardBitmapImage.Height:=465;  WizardForm.WizardBitmapImage2.Width:=640;  WizardForm.WizardBitmapImage2.Height:=452;  WizardForm.PageNameLabel.Hide;  WizardForm.PageDescriptionLabel.Hide;  WizardForm.WizardSmallBitmapImage.Top:=0;  WizardForm.WizardSmallBitmapImage.Left:=0;  WizardForm.WizardSmallBitmapImage.Width:=WizardForm.Width;  WizardForm.WizardSmallBitmapImage.Height:=58;  WizardForm.WelcomeLabel1.Hide;  WizardForm.WelcomeLabel2.Hide;  WizardForm.WizardBitmapImage.Width:=640;  WizardForm.WizardBitmapImage.Height:=465;  WizardForm.FinishedHeadingLabel.Hide;  WizardForm.FinishedLabel.Hide;  WizardForm.YesRadio.Hide;  WizardForm.NoRadio.Hide;  WizardForm.WizardBitmapImage2.Width:=640;  WizardForm.WizardBitmapImage2.Height:=465;  WizardForm.PageNameLabel.Hide;  WizardForm.PageDescriptionLabel.Hide;  WizardForm.WizardSmallBitmapImage.Top:=0;  WizardForm.WizardSmallBitmapImage.Left:=0;  WizardForm.WizardSmallBitmapImage.Width:=650;  WizardForm.WizardSmallBitmapImage.Height:=60;  WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width + WidthOffset;  WizardForm.WelcomeLabel1.Height:=WizardForm.WelcomeLabel1.Height + HeightOffset;  WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width + WidthOffset;  WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width + WidthOffset;  WizardForm.WelcomeLabel2.Height:=WizardForm.WelcomeLabel2.Height + HeightOffset;  WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width + WidthOffset;  WizardForm.LicenseLabel1.Width:=WizardForm.LicenseLabel1.Width + WidthOffset;  WizardForm.LicenseMemo.Height:=WizardForm.LicenseMemo.Height + HeightOffset;  WizardForm.LicenseMemo.Width:=WizardForm.LicenseMemo.Width + WidthOffset;  WizardForm.LicenseNotAcceptedRadio.Top:=WizardForm.LicenseNotAcceptedRadio.Top + HeightOffset;  WizardForm.LicenseAcceptedRadio.Top:=WizardForm.LicenseAcceptedRadio.Top + HeightOffset;  WizardForm.InfoBeforeClickLabel.Width:=WizardForm.InfoBeforeClickLabel.Width + WidthOffset;  WizardForm.InfoBeforeMemo.Height:=WizardForm.InfoBeforeMemo.Height + HeightOffset;  WizardForm.InfoBeforeMemo.Width:=WizardForm.InfoBeforeMemo.Width + WidthOffset;  WizardForm.SelectDirLabel.Width:=WizardForm.SelectDirLabel.Width + WidthOffset;  WizardForm.SelectDirBrowseLabel.Width:=WizardForm.SelectDirBrowseLabel.Width + WidthOffset;  WizardForm.DiskSpaceLabel.Top:=WizardForm.DiskSpaceLabel.Top + HeightOffset;  WizardForm.DirBrowseButton.Left:=WizardForm.DirBrowseButton.Left + HeightOffset;  WizardForm.DirEdit.Width:=WizardForm.DirEdit.Width + HeightOffset;  WizardForm.ComponentsDiskSpaceLabel.Top:=WizardForm.ComponentsDiskSpaceLabel.Top + HeightOffset;  WizardForm.SelectComponentsLabel.Width:=WizardForm.SelectComponentsLabel.Width + WidthOffset;  WizardForm.ComponentsList.Height:=WizardForm.ComponentsList.Height + HeightOffset;  WizardForm.ComponentsList.Width:=WizardForm.ComponentsList.Width + WidthOffset;  WizardForm.ReadyLabel.Width:=WizardForm.ReadyLabel.Width + WidthOffset;  WizardForm.ReadyMemo.Height:=WizardForm.ReadyMemo.Height + HeightOffset;  WizardForm.ReadyMemo.Width:=WizardForm.ReadyMemo.Width + WidthOffset;  WizardForm.ProgressGauge.Width:=WizardForm.ProgressGauge.Width + HeightOffset;  WizardForm.FilenameLabel.Width:=WizardForm.FilenameLabel.Width + HeightOffset;  WizardForm.StatusLabel.Width:=WizardForm.StatusLabel.Width + HeightOffset;end;
В редакторе делай, а это удали Edited by Dark_Knight_MiX

Share this post


Link to post

Short link
Share on other sites

Как отключить показ веса файлов компонентов 


Уже нашел 

Share this post


Link to post

Short link
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...