|
inno setup
#36740992
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
|
может быть на этом форуме и не в тему,но если кто сталкивался с созданием exe файлов в INNO SETUP .Написал скрипт на обнаружение net framework...если обнаружил установщик net framework то устанавливаем моё приложение.Вопрос:1. В скрипте указываю конкретный путь к экзешнику net framework(C:\tech\dotNetFx35setup.exe).То есть если перенести папку в другое место экзешник не проходит).Как указать текущую папку?Вопрос 2:Как в этот же скрипт приписать обнаружение на наличие IBM Informix Client-SDK 3.50?Моё приложение работает с БД Informix/Ниже сам скрипт
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
#define MyAppName "Учёт компьютерной техники"
#define MyAppVerName "Учёт компьютерной техники 1.0"
#define MyAppPublisher "Ukrpost Software"
#define MyAppExeName "tech.exe"
[Setup]
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
DefaultDirName={pf}\{#MyAppName}
DisableDirPage=yes
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=tech
Compression=lzma
SolidCompression=yes
//AppName=NETFramework
//AppVerName=NETFramework
//DefaultDirName={pf}\NETFramework
//DisableStartupPrompt=true
[Languages]
Name: russian; MessagesFile: compiler:Default.isl
[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
[Files]
Source: C:\tech\tech.exe; DestDir: {app}; Flags: ignoreversion
[Icons]
Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName}
Name: {group}\{cm:UninstallProgram,{#MyAppName}}; Filename: {uninstallexe}
Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: quicklaunchicon
[code]
function InitializeSetup(): Boolean;
var
ErrorCode: Integer;
NetFrameWorkInstalled : Boolean;
Result1 : Boolean;
begin
NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5');
if NetFrameWorkInstalled =true then
begin
Result1 := MsgBox('.NET Framework v3.5 уже установлен.',
mbConfirmation, MB_YESNO) = idYes;
Result := true;
end;
if NetFrameWorkInstalled = false then
begin
NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5');
if NetFrameWorkInstalled = true then
begin
Result := true;
end;
if NetFrameWorkInstalled =false then
begin
Result1 := MsgBox('Для работы с этой программой требуется .NET Framework v3.5. Вы хотите установить .NET Framework v3.5 сейчас?',
mbConfirmation, MB_YESNO) = idYes;
if Result1 =false then
begin
Result:=false;
end
else
begin
ShellExec('open', ExpandConstant('C:\tech\dotNetFx35setup.exe'),'', '', SW_SHOW, ewNoWait, ErrorCode);
Result:=false;
end;
end;
end;
end;
|
|
|
