Lanya CorelVBA Test Version InnoSetup.iss

InnoSetup/CorelVBA.iss

@@ -1,10 +1,10 @@
 ; Script generated by the Inno Setup Script Wizard.
 ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
 
-#define MyAppName "蘭雅CorelVBA 2023版"
-#define MyAppVersion "1.1"
-#define MyAppPublisher "蘭雅sRGB CorelDRAW 免费开源插件"
-#define MyAppURL "https://262235.xyz/"
+#define MyAppName "Lanya CorelVBA Test Version"
+#define MyAppVersion "2023.7.5"
+#define MyAppPublisher "lyvba.com"
+#define MyAppURL "https://lyvba.com/"
 #define MyAppExeName "GMS"
 #define MyAppAssocName MyAppName + ""
 #define MyAppAssocExt ".myp"
@@ -27,8 +27,8 @@ DisableProgramGroupPage=yes
 ; Uncomment the following line to run in non administrative install mode (install for current user only.)
 ;PrivilegesRequired=lowest
 OutputDir=C:\app\CorelVBA
-OutputBaseFilename=蘭雅CorelVBA
-SetupIconFile=C:\app\CorelVBA\GMS\262235.xyz\蘭.ico
+OutputBaseFilename=Lanya_CorelVBA
+SetupIconFile=C:\app\CorelVBA\GMS\LYVBA\LOGO.ico
 Compression=lzma
 SolidCompression=yes
 WizardStyle=modern
@@ -42,7 +42,17 @@ var
   InstallDir: String;
 begin
   // 从注册表中读取安装目录
-  if RegQueryStringValue(HKLM64, 'SOFTWARE\Corel\Setup\CorelDRAW Graphics Suite 2022', 'Destination', InstallDir) then
+  if RegQueryStringValue(HKLM64, 'SOFTWARE\Corel\Setup\CorelDRAW Graphics Suite 2023', 'Destination', InstallDir) then
+  begin
+    Result := ExtractFilePath(InstallDir) + 'Draw\GMS';
+  end 
+
+  else if RegQueryStringValue(HKLM64, 'SOFTWARE\Corel\Setup\CorelDRAW Graphics Suite 2022', 'Destination', InstallDir) then
+  begin
+    Result := ExtractFilePath(InstallDir) + 'Draw\GMS';
+  end 
+
+  else if RegQueryStringValue(HKLM64, 'SOFTWARE\Corel\Setup\CorelDRAW Graphics Suite 2021', 'Destination', InstallDir) then
   begin
     Result := ExtractFilePath(InstallDir) + 'Draw\GMS';
   end 
@@ -52,6 +62,16 @@ begin
     Result := ExtractFilePath(InstallDir) + 'Draw\GMS';
   end 
 
+  else if RegQueryStringValue(HKLM64, 'SOFTWARE\Corel\Setup\CorelDRAW Graphics Suite 2019', 'Destination', InstallDir) then
+  begin
+    Result := ExtractFilePath(InstallDir) + 'Draw\GMS';
+  end 
+
+  else if RegQueryStringValue(HKLM64, 'SOFTWARE\Corel\Setup\CorelDRAW Graphics Suite 2018', 'Destination', InstallDir) then
+  begin
+    Result := ExtractFilePath(InstallDir) + 'Draw\GMS';
+  end 
+
   else if RegQueryStringValue(HKLM64, 'SOFTWARE\Corel\Setup\CorelDRAW Graphics Suite 16', 'Destination', InstallDir) then
   begin
     Result := ExtractFilePath(InstallDir) + 'Draw\GMS';
@@ -65,24 +85,32 @@ begin
 end;
 
 [Languages]
+Name: en; MessagesFile: "compiler:Default.isl"
 Name: "chinesesimplified"; MessagesFile: "compiler:Languages\ChineseSimplified.isl"
+Name: nl; MessagesFile: "compiler:Languages\Dutch.isl"
+Name: de; MessagesFile: "compiler:Languages\German.isl"
+
 
 [Tasks]
 Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
 
 [Files]
-Source: "C:\app\CorelVBA\GMS\262235.xyz.gms"; DestDir: "{app}"; Flags: ignoreversion
+Source: "C:\app\CorelVBA\GMS\LYVBA.gms"; DestDir: "{app}"; Flags: ignoreversion
 Source: "C:\app\CorelVBA\GMS\Adobe_Illustrator.gms"; DestDir: "{app}"; Flags: ignoreversion
 Source: "C:\app\CorelVBA\GMS\ColorMark.cdr"; DestDir: "{app}"; Flags: ignoreversion
-Source: "C:\app\CorelVBA\GMS\ZeroBase.gms"; DestDir: "{app}"; Flags: ignoreversion
-Source: "C:\app\CorelVBA\GMS\学习CorelVBA.gms"; DestDir: "{app}"; Flags: ignoreversion
 ; NOTE: Don't use "Flags: ignoreversion" on any shared system files
-Source: "C:\app\CorelVBA\GMS\262235.xyz\*"; DestDir: "{app}\262235.xyz\"; Flags: ignoreversion
+Source: "C:\app\CorelVBA\GMS\LYVBA\*"; DestDir: "{app}\LYVBA\"; Flags: ignoreversion
+Source: "C:\app\CorelVBA\GMS\LYVBA\100\*"; DestDir: "{app}\LYVBA\100\"; Flags: ignoreversion
+Source: "C:\app\CorelVBA\GMS\LYVBA\125\*"; DestDir: "{app}\LYVBA\125\"; Flags: ignoreversion
+Source: "C:\app\CorelVBA\GMS\LYVBA\150\*"; DestDir: "{app}\LYVBA\150\"; Flags: ignoreversion
+Source: "C:\app\CorelVBA\GMS\LYVBA\175\*"; DestDir: "{app}\LYVBA\175\"; Flags: ignoreversion
+Source: "C:\app\CorelVBA\GMS\LYVBA\200\*"; DestDir: "{app}\LYVBA\200\"; Flags: ignoreversion
+
 Source: "C:\app\CorelVBA\TSP\*"; DestDir: "C:\TSP\"; Flags: ignoreversion
 
 [Icons]
 Name: "{autoprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
-Name: "{autodesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
+;Name: "{autodesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
 
 [Run]
 ;Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: shellexec postinstall skipifsilent

donate.md

@@ -45,6 +45,7 @@ a-嘉盟
 舞
 方华广告
 肥崽很忙
+Thanh Van
 ```