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

TryRooM · Отправлено: **16:40, 08-08-2015** | #**871**

us_ov, Примерно так

Скрытый текст

Код:

var
cbDrive: TComboBox;
DrvLetters: array of string;
FreeSpaceLabel: TLabel;

function GetDriveType(lpDisk: string): integer;
external 'GetDriveTypeA@kernel32.dll stdcall';

function GetLogicalDriveStrings(nLenDrives: LongInt; lpDrives: string): integer;
external 'GetLogicalDriveStringsA@kernel32.dll stdcall';

const
DRIVE_UNKNOWN=0;
DRIVE_NO_ROOT_DIR=1;
DRIVE_REMOVABLE=2;
DRIVE_FIXED=3;
DRIVE_REMOTE=4;
DRIVE_CDROM=5;
DRIVE_RAMDISK=6;

function DriveTypeString(dtype: integer): string;
    begin
      case dtype of
      DRIVE_NO_ROOT_DIR: Result:='Неверный путь';
      DRIVE_REMOVABLE: Result:='Съемный';
      DRIVE_FIXED: Result:='Фиксированный';
      DRIVE_REMOTE: Result:='Сетевой';
      DRIVE_CDROM: Result:='CD-ROM';
      DRIVE_RAMDISK: Result:='Ram диск';
      else
      Result:='Неизвестный';
    end;
end;

procedure cbDriveOnClick(Sender: TObject);
  begin
    WizardForm.DirEdit.Text:=DrvLetters[cbDrive.ItemIndex]+'!Po';
  end;

procedure FillCombo();
var
  n: integer;
  drivesletters: string; lenletters: integer;
  drive: string;
  disktype, posnull: integer;
  sd: string;
begin
  sd:=UpperCase(ExpandConstant('{sd}'));
  drivesletters:=StringOfChar(' ', 64);
  lenletters:=GetLogicalDriveStrings(63, drivesletters);
  SetLength(drivesletters, lenletters);
  drive:='';
  n:=0;
  while ((Length(drivesletters) > 0)) do
    begin
      posnull:=Pos(#0, drivesletters);
      if posnull > 0 then
        begin
          drive:=UpperCase(Copy(drivesletters, 1, posnull-1));
          disktype:=GetDriveType(drive);
          if ( not ( disktype = DRIVE_CDROM ) ) then
            begin
              cbDrive.Items.Add(drive+DriveTypeString(disktype))
              SetArrayLength(DrvLetters, N+1);
              DrvLetters[n]:=drive;
              if (Copy(drive, 1, 2)=sd) then cbDrive.ItemIndex:=n;
              n:=n+1;
            end
          drivesletters:=Copy(drivesletters, posnull+1, Length(drivesletters));
        end
    end;
  cbDriveOnClick(cbDrive);
end;

procedure GetFreeSpaceCaption(Sender: TObject);
var
  Path: string;
  FreeMB, TotalMB: cardinal;
    begin
      Path:=ExtractFileDrive(WizardForm.DirEdit.Text);
      GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
      if FreeMB > 1024 then
      FreeSpaceLabel.Caption:='Свободно на диске: ' + FloatToStr(round(FreeMB/1024*100)/100) + ' GB'
      else
      FreeSpaceLabel.Caption:='Свободно на диске: ' + IntToStr(FreeMB) + ' MB'
    end;

procedure InitializeWizard();

begin
      cbDrive:=TComboBox.Create(WizardForm.SelectDirPage);
      FreeSpaceLabel:=TLabel.Create(WizardForm);
      with cbDrive do
        begin
          Parent:=WizardForm.DirEdit.Parent;
          Left := ScaleX(0);
        //  Left:=WizardForm.DirEdit.Left+41; //  41
          Top:=WizardForm.DirEdit.Top+WizardForm.DirEdit.Height*2-15; //2-15
        //  Width:=WizardForm.DirEdit.Width;
          Width := ScaleX(400); //размер
          Style:=csDropDownList;
        end
      with FreeSpaceLabel do
        begin
          Parent:=WizardForm.SelectDirPage;
          Left:=ScaleX(0);
          Top:=Scaley(195);
          Width:=ScaleX(209); //209
          Height:=ScaleY(13);
        end;
    WizardForm.DirBrowseButton.Visible:=false; // False
    WizardForm.DirEdit.Enabled:=true;
    WizardForm.DirEdit.OnChange:=@GetFreeSpaceCaption;
    WizardForm.DirEdit.Text:=WizardForm.DirEdit.Text+#0;
    FillCombo;
    cbDrive.OnClick:=@cbDriveOnClick;

  with WizardForm.DirEdit do
  begin
    Left := ScaleX(0);
    Top := ScaleY(80); //выше ниже
    Height := ScaleY(23);
    Width:=ScaleX(400); //209 размер
  end;
    
  with WizardForm.DirBrowseButton do// пришлось сдвинуть  обзор
  begin
    Left := ScaleX(0);
    Top := ScaleY(150);
    Height := ScaleY(30);
  end;
  end;

us_ov · Отправлено: **17:11, 08-08-2015** | #**872**

TryRooM, СПАСИБО!

vadjliss · Отправлено: **19:12, 08-08-2015** | #**873**

парни нужна помощь срочно на скрине думаю всё понятно

TryRooM · Отправлено: **20:58, 08-08-2015** | #**874**

vadjliss,
[Setup]
;AllowNoIcons=yes не создавать папку в меню пуск

Вы закомментировали?

Посмотрите, у вас в коде нет этого.
var
No_Icons_CheckBox: TNewCheckBox;

vadjliss · Отправлено: **21:32, 08-08-2015** | #**875**

TryRooM
[Setup]
;AllowNoIcons=yes не создавать папку в меню пуск
не отключает

Nordek · Конфигурация компьютера

vadjliss, Удалите:

Код:

AllowNoIcons=yes

или замените yes на no:

Код:

AllowNoIcons=no

palsn2000 · Конфигурация компьютера

Здравствуйте.
Решил сделать слайдшоу, нашел пример с использованием isgsg.dll:

Фрагмент кода

А можно ли как нибудь прописать показ изображений с помощью цикла - чтобы Inno сам формировал себе список для слайдшоу из изображений, которые найдёт в папке {tmp} ?

vadjliss · Отправлено: **14:57, 11-08-2015** | #**878**

нужна помощь
как сделать
чтобы перед установкой удалило старую версию программы
потом установила новую версию

с меня плюсик

Sotonisto · Конфигурация компьютера

Цитата vadjliss:

перед установкой удалило старую версию программы»

Как-то так:

Скрипт

Код:

#define gameid "{11110000-2222-3333-4444-555500000000}"
#define appname "My Program"
#define appversion "1.0"

[Setup]
AppId={{#gameid}
AppName={#appname}
AppVerName={#appname}
AppVersion={#appversion}
DefaultDirName={pf}\{#appname}
OutputDir=.
OutputBaseFilename=setup
Compression=lzma2/ultra64
SolidCompression=true
PrivilegesRequired=poweruser

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

[CustomMessages]
rus.DeleteInfo1=Перед установкой необходимо удалить предыдущую версию приложения. Удалить?
rus.DeleteInfo2=Удаление предыдущей версии  приложения завершилось неудачей.

[Code_]
function UninstallMyApp(): Boolean;
var
  Buff: String;
  i: Integer;
begin
  Result:= not RegQueryStringValue(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{#gameid}_is1', 'UninstallString', Buff);
  if not Result then Result:= not FileExists(RemoveQuotes(Buff));
  if not Result then
  if MsgBox(ExpandConstant('{cm:DeleteInfo1}'), mbError, MB_YESNO) = IDYES then
  try
  Exec(RemoveQuotes(Buff), '', ExtractFilePath(RemoveQuotes(Buff)), SW_SHOW, ewWaitUntilTerminated, i);
  finally Result:= not RegQueryStringValue(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{#gameid}_is1', 'UninstallString', Buff );
  if not Result then MsgBox(ExpandConstant('{cm:DeleteInfo2}'), mbError, MB_OK);
  end;
end;

function InitializeSetup(): Boolean;
begin
  Result:= UninstallMyApp();
end;

vadjliss · Отправлено: **19:58, 12-08-2015** | #**880**

Цитата Sotonisto:

#define gameid "{11110000-2222-3333-4444-555500000000}"
#define appname "My Program"
#define appversion "1.0"
[Setup]
AppId={{#gameid}
AppName={#appname}
AppVerName={#appname}
AppVersion={#appversion}
DefaultDirName={pf}\{#appname}
OutputDir=.
OutputBaseFilename=setup
Compression=lzma2/ultra64
SolidCompression=true
PrivilegesRequired=poweruser
[Languages]
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl";
[CustomMessages]
rus.DeleteInfo1=Перед установкой необходимо удалить предыдущую версию приложения. Удалить?
rus.DeleteInfo2=Удаление предыдущей версии приложения завершилось неудачей.
[Code_]
function UninstallMyApp(): Boolean;
var
Buff: String;
i: Integer;
begin
Result:= not RegQueryStringValue(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{#gameid}_is1', 'UninstallString', Buff);
if not Result then Result:= not FileExists(RemoveQuotes(Buff));
if not Result then
if MsgBox(ExpandConstant('{cm:DeleteInfo1}'), mbError, MB_YESNO) = IDYES then
try
Exec(RemoveQuotes(Buff), '', ExtractFilePath(RemoveQuotes(Buff)), SW_SHOW, ewWaitUntilTerminated, i);
finally Result:= not RegQueryStringValue(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{#gameid}_is1', 'UninstallString', Buff );
if not Result then MsgBox(ExpandConstant('{cm:DeleteInfo2}'), mbError, MB_OK);
end;
end;
function InitializeSetup(): Boolean;
begin
Result:= UninstallMyApp();
end; »

что то не выходит
не отображаются надписи
ред установкой необходимо удалить предыдущую версию приложения. Удалить?
Удаление предыдущей версии приложения завершилось неудачей.