[Mihail88]

STR1KEE, насчет скинов, может эти...

[mitek_gsm]

Добрый вечер всем.
Есть папка A и папка Б, в папке А лежит файл 1.txt, его нужно перенести в папку Б c именем 2.txt (после копирования файлов)
Как это реализовать в Inno Setup ?

[Rosich]

Добрый вечер всем. Есть папка A и папка Б, в папке А лежит файл 1.txt, его нужно перенести в папку Б c именем 2.txt (после копирования файлов) Как это реализовать в Inno Setup ? »

Легко:
[Files]
Source: папка а\1.txt; DestDir: {app}\папка б; DestName: 2.txt; Flags: ignoreversion
Поясняю: в DestName: – задается новое название файла, в нашем случае - 2.txt.

[Serega]

Легко: »

Если я правильно понял, то нужно после копирования, т.е. после установки...

Как это реализовать в Inno Setup ? »

В секции кода, запишите:

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpFinished then // выполнится на финальной странице
  if FileExists(ExpandConstant('{app}\A\1.txt')) then // проверка на присутствие файла
    begin
      // создаём папку, если её нет
      if not DirExists(ExpandConstant('{app}\B')) then CreateDir(ExpandConstant('{app}\B'));
      // копируем файл
      FileCopy(ExpandConstant('{app}\A\1.txt'), ExpandConstant('{app}\B\2.txt'), False);
      // удаляем файл
      DeleteFile(ExpandConstant('{app}\A\1.txt'));
    end;
end;

[mitek_gsm]

Rosich, В вашем примере файл копируется в папку еще на этапе компиляции, а мне нужно было после установки. В этом случае код Serega, более правильный.

P.S. и новая задачка )) Есть {app}, в ней есть папка A, нужно после установки скопировать содержимое в папку B (должно получится {app}В)

[Serega]

новая задачка »

Приблизительно так же, как и в SHFileOperation.iss:

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Code]
type
  TSHFileOpStruct =  record
    wFunc: UINT;
    pFrom: PChar;
    pTo: PChar;
    fFlags: Word;
  end;

const
   FO_MOVE            = $0001;
   FO_COPY            = $0002;
   FOF_SILENT         = $0004;
   FOF_NOCONFIRMATION = $0010;
   FOF_FILESONLY      = $0080;
   FOF_NOCONFIRMMKDIR = $0200;

function SHFileOperation(const lpFileOp: TSHFileOpStruct):Integer; external 'SHFileOperation@shell32.dll stdcall';

function MoveDir(const fromDir, toDir: string; IsMove: Boolean): Boolean;
var
  fos: TSHFileOpStruct;
  _fromDir, _toDir: string;
  SR: TFindRec;
  res: Boolean;
begin
    ForceDirectories(toDir);
  if IsMove then
    fos.wFunc  := FO_MOVE else
    fos.wFunc  := FO_COPY;
    fos.fFlags := FOF_FILESONLY or FOF_SILENT or
               FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
    _fromDir:= AddBackslash(fromDir);
    _toDir  := AddBackslash(toDir);
  if (Length(fromDir) = Length(_fromDir)) then
    begin
        res:= FindFirst(_fromDir + '*', SR);
      try
        while res do
        begin
          if (SR.Name <> '') and (SR.Name <> '.') and (SR.Name <> '..') then
          begin
            if SR.Attributes = FILE_ATTRIBUTE_DIRECTORY then
              begin
                _fromDir:= _fromDir + SR.Name + #0#0;
                _toDir  := _toDir + #0#0;
                fos.pFrom  := PChar(_fromDir);
                fos.pTo    := PChar(_toDir);
              end else
              begin
                _fromDir:= _fromDir + SR.Name + #0#0;
                _toDir  := _toDir   + SR.Name + #0#0;
                fos.pFrom  := PChar(_fromDir);
                fos.pTo    := PChar(_toDir);
              end;
                Result := (0 = ShFileOperation(fos));
                _fromDir:= ExtractFilePath(_fromDir);
                _toDir:= ExtractFilePath(_toDir);
          end;
          res := FindNext(SR);
        end;
      finally
        FindClose(SR);
      end;
    end else
    begin
      _fromDir:= RemoveBackslashUnlessRoot(_fromDir) + #0#0;
      _toDir  := RemoveBackslashUnlessRoot(_toDir)   + #0#0;
      fos.pFrom  := PChar(_fromDir);
      fos.pTo    := PChar(_toDir);
      Result := (0 = ShFileOperation(fos));
    end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpFinished then
  if DirExists(ExpandConstant('{app}\A')) then
    begin
      MoveDir(ExpandConstant('{app}\A'), ExpandConstant('{app}\B'), True);
    end;
end;

[zl0ybot]

Здравствуйте, кто может сделать: чтобы архив freearc распаковал Precomp а патом распаковал эти архивы .

[Serega]

кто может сделать: чтобы архив freearc распаковал Precomp а патом распаковал эти архивы . »

zl0ybot, здравствуйте, сказать честно, звучит как, сделайте за меня скрипт, который я бы хотел в последствии использовать...
Нет, чтоб, вот у меня рабочий код (не скрипт, скрипты есть в интернете и много ума не надо, чтоб скопировать) распаковки FreeArc'a и код распаковки Precomp'a, а как сделать распаковку сначала одного, а затем другого. Либо, вот распаковываю так, а здесь вылетает ошибка...

Вы сделайте, хоть что-нибудь сами, т.е. своими руками, а в моментах, где не будет получаться, вам обязательно помогут и подскажут.

[Mihail88]

Вы сделайте, хоть что-нибудь сами, т.е. своими руками, а в моментах, где не будет получаться, вам обязательно помогут и подскажут. »

Проигрывание mp3 с возможность ютключения чекбоксом, прописал bass.dll с коммандами, но что то не выходит. не пропускает "if BASS_StreamCreateFile(FALSE, PAnsiChar(Name1), 0, 0, BASS_SAMPLE_LOOP) then"
Скрипт http://webfile.ru/3827892

Вверху ссобщение с dll и mp3 файлом.

[BlackSelf]

Mihail88, пробуйте:

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

Код:

[Setup]
AppName=Example.Play.MP3.Music.On.Start.Up.With.Texture
AppVerName=Example.Play.MP3.Music.On.Start.Up.With.Texture
AppPublisher=genri.sampron.iTASmania_Inc.uncle
DefaultDirName=C:\Play.MP3
OutputBaseFilename=play.mp3.by.genri.sampron.iTASmania_Inc.uncle


[Files]
Source: compiler:BASS.dll; DestDir: "{tmp}"; Flags: dontcopy noencryption
Source: G:\Inet\Music\Marselle\Marselle - MarsFM (mixtape)\13 - Marselle - Он был.mp3; DestDir: {tmp}; Flags: dontcopy noencryption nocompression


[_Code]
const
  BASS_ACTIVE_STOPPED = 0;
  BASS_ACTIVE_PLAYING = 1;
  BASS_ACTIVE_STALLED = 2;
  BASS_ACTIVE_PAUSED = 3;
  BASS_SAMPLE_LOOP = 4;

var
  mp3Handle: HWND;
  mp3Name: String;
  cb:TCheckBox;

function BASS_Init(device: Integer; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean;
  external 'BASS_Init@files:BASS.dll stdcall delayload';

function BASS_StreamCreateFile(mem: BOOL; f: PChar; offset: DWORD; length: DWORD; flags: DWORD): DWORD;
  external 'BASS_StreamCreateFile@files:BASS.dll stdcall delayload';

function BASS_Start(): Boolean;
  external 'BASS_Start@files:BASS.dll stdcall delayload';

function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean;
  external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload';

function BASS_ChannelIsActive(handle: DWORD): Integer;
  external 'BASS_ChannelIsActive@files:BASS.dll stdcall delayload';

function BASS_ChannelPause(handle: DWORD): Boolean;
  external 'BASS_ChannelPause@files:BASS.dll stdcall delayload';

function BASS_Stop(): Boolean;
  external 'BASS_Stop@files:BASS.dll stdcall delayload';

function BASS_Pause(): Boolean;
  external 'BASS_Pause@files:BASS.dll stdcall delayload';

function BASS_Free(): Boolean;
  external 'BASS_Free@files:BASS.dll stdcall delayload';

function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('BASS.dll');
  ExtractTemporaryFile('13 - Marselle - Он был.mp3');
  mp3Name := ExpandConstant('{tmp}\13 - Marselle - Он был.mp3');
  BASS_Init(-1, 44100, 0, 0, 0);
  mp3Handle := BASS_StreamCreateFile(FALSE, PChar(mp3Name), 0, 0, BASS_SAMPLE_LOOP);
  BASS_Start();
  BASS_ChannelPlay(mp3Handle, False);
  Result := True;
end;

procedure cbmusic(Sender: TObject);
begin
if cb.checked = true then
 begin
  case BASS_ChannelIsActive(mp3Handle) of
    BASS_ACTIVE_PAUSED:
      begin
        BASS_ChannelPlay(mp3Handle, False);
      end;
    BASS_ACTIVE_STOPPED:
      begin
        BASS_Init(-1, 44100, 0, 0, 0);
        mp3Handle := BASS_StreamCreateFile(FALSE, PChar(mp3Name), 0, 0, BASS_SAMPLE_LOOP);
        BASS_Start();
        BASS_ChannelPlay(mp3Handle, False);
      end;
  end;
end;
if cb.checked = false then
  BASS_ChannelPause(mp3Handle);
end;


procedure InitializeWizard();
begin
  cb:=TCheckBox.Create(WizardForm);
  cb.Parent:=WizardForm;
  cb.Width:=ScaleX(220);
  cb.Left:=ScaleY(10);
  cb.Top:=ScaleY(330);
  cb.CAPTION:='Проигрывание музыки';
  cb.ONCLICK:=@cbmusic;
  cb.checked:=true
end;

procedure DeinitializeSetup();
begin
  BASS_Stop();
  BASS_Free();
end;