Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Dodakaedr

Ветеран


Сообщения: 863
Благодарности: 262

Профиль | Отправить PM | Цитировать


Цитата Beavimo:
но в реестре, в конце пути стоит символ {;} как его удалить? »
Цитата Beavimo:
а еще лутше так
C:\Program Files (x86)\Internet Explorer
тоисть удалить все что идет посте последнего \ »
используйте функции Copy и ExtractFilePath
Код: Выделить весь код
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
procedure InitializeWizard();
var
  s: string;
begin
  s := 'Path=C:\Program Files (x86)\Internet Explorer\IEXPLORE.EXE;';
  s := Copy(s, 0, Length(s)-1);
  s := RemoveBackslash(ExtractFilePath(s));
  MsgBox(s, mbInformation, MB_OK);
end;

-------
Inno Setup 5 Ultra Unicode


Последний раз редактировалось Dodakaedr, 18-02-2020 в 07:18.

Это сообщение посчитали полезным следующие участники:

Отправлено: 22:49, 17-02-2020 | #561