[code]; Скрипт создан через Мастер Inno Setup Script.
; ИСПОЛЬЗУЙТЕ ДОКУМЕНТАЦИЮ ДЛЯ ПОДРОБНОСТЕЙ ИСПОЛЬЗОВАНИЯ INNO SETUP!
#define MyAppName "Моя программа"
#define MyAppVersion "1.5"
#define MyAppPublisher "Моя компания, Inc."
#define MyAppURL "http://www.сайт.com/"
#define MyAppExeName "MyProg.exe"
[Setup]
; Примечание: Значение AppId идентифицирует это приложение.
; Не используйте одно и тоже значение в разных установках.
; (Для генерации значения GUID, нажмите Инструменты | Генерация GUID.)
AppId={{B5BB5779-8526-4769-95BB-7F54ACCBC64A}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; Примечание: Не используйте "Flags: ignoreversion" для системных файлов
[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
Код:
var
cbDrive: TComboBox;
DrvLetters: array of string;
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:='';
DRIVE_RAMDISK: Result:='';
end;
end;
procedure cbDriveOnClick(Sender: TObject);
begin
WizardForm.DirEdit.Text := DrvLetters[cbDrive.ItemIndex] + '{#MyAppName}';
end;
procedure FillCombo();
var
drivesletters, drive, sd: string;
n, lenletters, disktype, posnull: integer;
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_REMOVABLE ) ) then
if ( not ( disktype = DRIVE_REMOTE ) ) then
if ( not ( disktype = DRIVE_CDROM ) ) then
if ( not ( disktype = DRIVE_RAMDISK ) ) 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 InitializeWizard();
begin
cbDrive := TComboBox.Create(WizardForm.SelectDirPage);
with cbDrive do begin
Parent := WizardForm.DirEdit.Parent;
Left := 0;
Top := WizardForm.DirEdit.Top+WizardForm.DirEdit.Height*2-15;
Width := 40;
Style := csDropDownList;
end
WizardForm.DirEdit.Text := WizardForm.DirEdit.Text+#0;
FillCombo;
cbDrive.OnClick := @cbDriveOnClick;
end;
