[ToBeLife]

Доброго времени суток.
Подскажите код
что бы перед началом установки инсталятор удалил определённый файл и только потом начинал установку программы.
и второе, если выбрать определённый компонент, скажем патч в инсталяторе, что бы установился в начале он и только потом все остальные файлы.

[R.i.m.s.k.y.]

что бы перед началом установки инсталятор удалил определённый файл и только потом начинал установку программы »

Код:

[CODE]
procedure RD(Dir:string);
begin
  Exec('cmd.exe', ' /c rd /S /Q  ' + '"'+Dir+'"',ExpandConstant('{sys}'), SW_Hide,ewWaitUntilTerminated,res);
end;

procedure RF(file:string);
begin
  Exec('cmd.exe', ' /c del /F /Q  ' + '"'+file+'"',ExpandConstant('{sys}'), SW_Hide,ewWaitUntilTerminated,res);
end;

Function InitializeSetup: Boolean;
var file2delete : string;
Begin
  file2delete := твой файл;
  RF(file2delete);
  if (not FileExists(file2delete)) then Result := true else Result := False;
end;

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

Читай в справке Installation Order.
Установщик выполняет скрипт сверху вниз, так что как вариант в секции Files просто нужно поставить файлы "твоего компонента" первыми.

[ToBeLife]

R.i.m.s.k.y.,
Благодарствую, и как всегда спасибо.

[R.i.m.s.k.y.]

El Sanchez,
расскажи пожалуйста, поподробнее про ключи реестра в 64-х битных системах
К примеру три ключа
- HKLM\SOFTWARE\Wow6432Node
- HKLM64\SOFTWARE\
- HKLM\SOFTWARE\
к каким разрядностям относятся? не являются первый и третий ключи синонимами и если нет - в каких случаях юзается первый и последний?

[ToBeLife]

R.i.m.s.k.y.,
простите благодушно, по поводу кода, у меня inno ругается на неизвестный идентификатор res
Exec('cmd.exe', ' /c rd /S /Q ' + '"'+Dir+'"',ExpandConstant('{sys}'), SW_Hide,ewWaitUntilTerminated,res);
подскажите пожалуйста

[R.i.m.s.k.y.]

ToBeLife,

Код:

[CODE]
var res : integer;

procedure RD(Dir:string);
begin
  Exec('cmd.exe', ' /c rd /S /Q  ' + '"'+Dir+'"',ExpandConstant('{sys}'), SW_Hide,ewWaitUntilTerminated,res);
end;

procedure RF(file:string);
begin
  Exec('cmd.exe', ' /c del /F /Q  ' + '"'+file+'"',ExpandConstant('{sys}'), SW_Hide,ewWaitUntilTerminated,res);
end;

Function InitializeSetup: Boolean;
var file2delete : string;
Begin
  file2delete := твой файл;
  RF(file2delete);
  if (not FileExists(file2delete)) then Result := true else Result := False;
end;

[ToBeLife]

простите, это я невнимателен, ещё раз спасибо

[R.i.m.s.k.y.]

ToBeLife, та ни, это я строчку var res : integer; забыл

[ToBeLife]

R.i.m.s.k.y.,
а в каком формате писать, просто имя с расширением или в кавычки брать?

Begin file2delete := твой файл; RF(file2delete); if (not FileExists(file2delete)) then Result := true else Result := False; end; »

потому как нужный файл не удаляется.

[Johny777]

R.i.m.s.k.y., ToBeLife,
можно ж проще
просто удаление:

читать дальше »

Код:

function InitializeSetup(): Boolean;
begin
  Result := not FileExists(ExpandConstant('{userdesktop}\Half-Life 2.lnk'));
  if not Result then Result := DeleteFile(ExpandConstant('{userdesktop}\Half-Life 2.lnk'));
end;

если у файла есть атрибут "только чтение":

читать дальше »

Код:

function GetFileAttributes(lpFileName: string): integer;external 'GetFileAttributesA@kernel32.dll stdcall';
function SetFileAttributes(lpFileName: string; dwFileAttributes: integer): integer;external 'SetFileAttributesA@kernel32.dll stdcall';

function InitializeSetup(): Boolean;
begin
  Result := not FileExists(ExpandConstant('{userdesktop}\Half-Life 2.lnk'));
  if not Result then
  begin
    if (GetFileAttributes(ExpandConstant('{userdesktop}\Half-Life 2.lnk')) and FILE_ATTRIBUTE_READONLY) = FILE_ATTRIBUTE_READONLY then SetFileAttributes(ExpandConstant('{userdesktop}\Half-Life 2.lnk'), FILE_ATTRIBUTE_NORMAL);
    Result := DeleteFile(ExpandConstant('{userdesktop}\Half-Life 2.lnk'));
  end;
end;