[South]

semiono, на все вопросы
сначала читаем хэлп, потом пишем код
есть еще вариант, к сожалению наиболее часто используемый, тупо копируем чужой код и не вникаем

ЗЫ в хэлпе есть ответы процентов на 60 вопросов. на твой

И чем отличается Exec() от ShellExec() »

в том числе. с примерами использования

[semiono]

Из хелпа

Код:

Example:
var
  ResultCode: Integer;
begin
  // Launch Notepad and wait for it to terminate
  if Exec(ExpandConstant('{win}\notepad.exe'), '', '', SW_SHOW,
     ewWaitUntilTerminated, ResultCode) then
  begin
    // handle success if necessary; ResultCode contains the exit code
  end
  else begin
    // handle failure if necessary; ResultCode contains the error code
  end;
end;

begin
// мне было бы понятнее и достаточным так -
Exec(ExpandConstant('{win}\notepad.exe'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
// и всё!!! Но бывает что это тоже не работает, а я паскаль не знаю к сожалению.
end;

А такое меня обычно вообще в ступор приводит
function ShellExec(const Verb, Filename, Params, WorkingDir: String; const ShowCmd: Integer; const Wait: TExecWait; var ErrorCode: Integer): Boolean;
Если взять современный ассемблер, то все эти безумные типы на паскаль приводяться лишь к dd dw db ;- а классов вообще нет ))))

Ответ знаю, надо учиться!

[YURSHAT]

И чем отличается Exec() от ShellExec(), первый я так и не смог использовать »

Exec - запускает исполняемый файл

ShellExec используется для запуска не исполняемого файла (не .exe и не .bat файла) (например открыть файл readMe.txt)

function Exec (const Filename, Params, WorkingDir: String; const ShowCmd: Integer; const Wait: TExecWait; var ResultCode: Integer): Boolean;

Описание:

Выполняет указанные исполняемые файлы. Параметр Wait указывает, возвратить значение функции немедленно или подождать, пока запущенный процесс завершится или освободится. Возвращает True если выполнение файла прошло успешно, иначе False. Если возвращено True и Wait=ewWaitUntilTerminated, то ResultCode возвращает код выхода для процесса. Если возвращено False, ResultCode выдает ошибку. Используй SysErrorMessage(ResultCode) для получения описания ошики.

function ShellExec (const Verb, Filename, Params, WorkingDir: String; const ShowCmd: Integer; const Wait: TExecWait; var ErrorCode: Integer): Boolean;

Описание:

Открывает указанный файл или выполняет другое действие, указанное в Verb. В Filename может быть указан документ или папка. Параметр Wait указывает, возвратить значение функции немедленно или подождать, пока запущенный процесс завершится или освободится. Возвращает True, если файл открыт успешно, иначе False. Если возвращено False, ErrorCode выдаст ошибку. Используй SysErrorMessage(ErrorCode) для получения описания ошики.

[semiono]

Я пожалуй всё написал! Наверное без логических ошибок.

Код:

[Kode]
procedure InitializeWizard();
begin
  try DeleteFile(ExpandConstant('{sd}\dopuslib.tmp'))
  except Exit; end;
end;

procedure CurPageChanged(CurPageID: Integer);
var
ResultCode: Integer;
begin
  ExtractTemporaryFile('pkill.exe');
  if CurPageID = wpReady then
  begin
  Exec(ExpandConstant('{tmp}\pkill.exe'), 'dopus.exe', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
  Exec(ExpandConstant('{tmp}\pkill.exe'), 'dopusrt.exe', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);

      if FileExists(ExpandConstant('{reg:HKLM32\Software\VST,Proton.bin|{pf}}\DOpus\dopuslib.dll')) then
      try
      RenameFile(ExpandConstant('{reg:HKLM32\Software\VST,Proton.bin|{pf}}\DOpus\dopuslib.dll'), ExpandConstant('{sd}\dopuslib.tmp'))
      except Exit; end;

          try
          DelTree(ExpandConstant('{reg:HKLM32\Software\VST,Proton.bin|{pf}}\DOpus'), False, True, True);
          except
          Beep; Beep; Exit; end; end;
end;

procedure DeinitializeSetup();
...

Хотя я бы хотел ещё циклы подключить, вообще не знаю как это зделать.
Например, чтобы троекратно запустить
Exec(ExpandConstant('{tmp}\pkill.exe'), 'dopus.exe', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
но при этом не писать три раза эту строку.

Или например вызвать эту строку после такого кода -
RenameFile(ExpandConstant('{reg:HKLM32\Software\VST,Proton.bin|{pf}}\DOpus\dopuslib.dll'), ExpandConstant('{sd}\dopuslib.tmp'))
except

Для усиления работы. Или задержки при выполнении практически невозможны? Я имею ввиду, что если
файл должен быть переименован, то это выполниться безкомпрописно?

Я даже на autoit подстраховывался, хотя так никто не делает, но для скриптов это возможно оправдано -
WinWait()
WinWait()
WinWait()
Send()
?

Ещё по существу, можно ли отпралять файл в корзину?
RenameFile(ExpandConstant('{pf}\DOpus\dopuslib.dll'), ExpandConstant('{sd}\Recycled\dopuslib.tmp'))

Или это заглючит? Причём тут лучше бы переменная была {Recycled} иначе для NTFS не валидно!

[brodovski]

здравствуйте у меня такая проблема "#ifdef UNICODE ; если у вас ошибка на этой строке, то установите препроцессор или исправьте скрипт для вашей версии Inno Setup " вообще незнаю что уже делать,и другие версии Inno Setup ставил,это скрипт для разархивирования FreeArc,помогите пожалуйста(((

[alex2010]

вот код на цвет изменения цвета инстала:

Код:

[code_]
procedure InitializeWizard();
begin
WizardForm.Font.Color:=Clgreen;
WizardForm.WelcomeLabel1.Font.Color:=ClRed;
WizardForm.FinishedHeadingLabel.Font.Color:=ClRed;
WizardForm.PageNameLabel.Font.Color:=ClRed;
end;

но "Доступно места на диске" не меняется:

может стоит еще что-нибудь дописать, чтобы цвет изменился?

[YURSHAT]

вот код на цвет изменения цвета инстала: »

Ну так этот код для стандартных элементов инсталла, а у вас создан кастомный.

Измените цвет текста этого лейбла и все (FreeSpaceLabel:= TLabel.Create(WizardForm))

[alex2010]

YURSHAT, спасибо. только я все равно не понял где это прописывать , но просмотрел код "подсчет свободного места на ЖД"
и увидел там:

Код:

begin
  SelectDirText_1.Font.Color:= ClBlack;

. изменил black на green и все стало как надо

[semiono]

Мне недавно понадобилось найти в файле нужный параметр и дописать к нему своё значение. »

Спасибо! Как можно этот код использовать вызывая его многократно!!?
Например, грубо говоря я читаю реестр
$1 = RegRead(HKLM\Software\Classes\exefile\DefaultIcon)
$2 = RegRead(HKLM\Software\Classes\dllfile\DefaultIcon)
$3 = RegRead(HKLM\Software\Classes\sysfile\DefaultIcon)
(пишу наугад, на синтаксис не обращайте внимание)
Как мне эти переменные $(1,2,3) поочерёдно вписывать в файл с заменой,
найти A и заменить на $1, найти B и заменить на $2...
То-есть условие поиска должно изменятся разумеется...
Но ведь весь код поиска для этого глупо переписывать, особенно если переменных штук десять и более.
??? Очень хотелось бы такой код поглядеть! Это было бы ещё полезнее для пользования.
И пожалуйста полный пример напишите вместе с RegRead() кодом корректно?
Процедура может быть DeInitializate Install ~ в конце кароче установки...
?!

[Chelluga]

Здравствуй народ.

Кто знает, где найти такую тему (см. вложение)?