VPF::Удалить символы в строке - Форум программистов

bel_nikita

Дата 13.9.2005, 16:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Эксперт
Сообщений: 2304
Регистрация: 12.10.2003
Где: Поезд №21/22 ( ст . Прага )

Репутация: нет
Всего: 47

Пишу инсталяшку с помощью Inno Setup. Там используется pascal в качестве скриптового языка.
Как удалить из строки "? smile

Код


function GetUnInstallExe( AppID: String ): String;
var
   sPrevPath: String;
begin
  sPrevPath := '';
  if not RegQueryStringValue( HKLM,
    'Software\Microsoft\Windows\CurrentVersion\Uninstall\'+AppID+'_is1',
    'UninstallString', sPrevpath) then
    RegQueryStringValue( HKCU, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\'+AppID+'_is1' ,
    'UninstallString', sPrevpath);
  Result := sPrevPath;
end;

function InitializeSetup(): Boolean;
var
    sPrevPath: String;
    sUnInstallPath: String;
    sTemp: String;
    sPrevID: String;
    ResultCode: Integer;
begin
  sPrevID := 'SW820004';
  Result := false;
  sPrevPath := GetPathInstalled( sprevID );

  if ( Length(sPrevPath) > 0 ) then begin
    MsgBox( 'Application with ID ' + sPrevID + ' is alredy installed in ' + sPrevPath, mbInformation, MB_OK );
    sUnInstallPath := GetUnInstallExe(sprevID);
    sTemp := 'C:\Program Files\TestTerminal\Tests\unins001.exe';
    MsgBox( sUnInstallPath + '' #13#13 '' + sTemp, mbInformation, MB_OK );
      if Exec(sUnInstallPath, '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
      begin
        MsgBox( 'OK', mbInformation, MB_OK );
      end
      else begin
        MsgBox( 'ERROR: ' + SysErrorMessage(ResultCode), mbInformation, MB_OK );
      end;
    end
  else begin
    MsgBox( 'Application with ID ' + sPrevID + ' is not installed' , mbInformation, MB_OK );
    end;
end;

Пjлучаю sUnInstallPath = ' "C:\Program Files\TestTerminal\Tests\unins001.exe" ', а нужно сделать, чтобы было sUnInstallPath = 'C:\Program Files\TestTerminal\Tests\unins001.exe'

--------------------

— регистрация доменов от 150 руб.

volvo877

Дата 13.9.2005, 22:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

bel_nikita,
так забери все, что между кавычками:

Код

function GetUnInstallExe( AppID: String ): String;
var
   sPrevPath: String;
begin
  sPrevPath := '';
  if not RegQueryStringValue( HKLM,
    'Software\Microsoft\Windows\CurrentVersion\Uninstall\'+AppID+'_is1',
    'UninstallString', sPrevpath) then
    RegQueryStringValue( HKCU, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\'+AppID+'_is1' ,
    'UninstallString', sPrevpath);
  Result := Copy(sPrevPath, 2, Length(sPrevPath) - 2); { <--- !!! }
end;

Snowy

Дата 13.9.2005, 22:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484

Хм... А зачем удалять?
Оно и взято в кавычки потому, что путь с пробелом.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »