[kotkovets]

MKN, Я уже подумываю над этим, на днях выложу.

[wolkow70]

Тогда помести в свои папки по скрытому файлику без расширения нулевого размера. »

Такая мысль мне уже приходила. Нет уж, я лучше создам в скрипте пустые папки, хотя странно, что функционал NSIS не предусматривает такую мелочь....

[kotkovets]

После установки программы в тихой установке с ключом /S, установленная программа сразу же запускается, что надо прописать чтоб запуска программы не было или сможет как нибудь убить этот процесс »

Избитый вопрос...
Можно так:

Код:

start /w Setup.exe /S
TASKKILL /F /IM процесс.exe

Но окошко моргнет...
А лучше всего сделать репак дистра.

[MKN]

установленная программа сразу же запускается »

А с какой стати ей сразу запускаться, если сам же не попросишь в скрипте ?

[kotkovets]

А можно расширить функционал DelRegKey.nsh, поручив ему удалять по маске значения в ключах ? »

Добавлена такая возможность:
Читать внимательно тут

[Shukaj]

Добрый день. Используясь NSIS написал собственный инсталятор, но столкнулся с одной проблемой. Во время установки пользователь вводит логин и пароль, которые инсталлятор заносит в params.ini. Этого я успешно добился (с помощью изучения вашего форума, кстати говоря). но возникла следующая ситуация. По принципу "as is" программа ругается на неверный логин/пароль. Дело в том, что в ней заложена своя система шифрования, и в .ini заносится уже шифрованое значение.
Для примера, пароль 123, если ввести это значение в самой программе, то в params.ini запишется “vќ. А мой инсталлятор записывает как есть, тоесть 123.
Есть .dll, в которой прописал алгоритм шифрования. Я так понимаю, надо в процессе установки сохранить пароль, введённый пользователем, вызвать функцию шифрования, зашифровать, а затем сохранить значение в .ini. Можно ли каким-нибудь образом обратиться из инсталлятора к .dll-ке?

[kotkovets]

Можно ли каким-нибудь образом обратиться из инсталлятора к .dll-ке? »

можно, теоретически, поместив соответствующую библиотеку в папку plugins NSIS и скомпильте какой-нибудь, любой скрипт. В логе компиляции вы увидите имя библиотеки (к примеру я закинул test.dll) и функции этой библиотеки, типа test::my_function и на этом все закончится....
Дело в том вы названия функции знаете, а прототип функции не знаете!
с какими параметрами вызывать, что передавать, какие аргументы функции и т.д. Обращаетесь к разработчикам библиотеки....ага засада! Так уж они вам все расскажут - алгоритм шифрования и дешифрования...

[Shukaj]

Так уж они вам все расскажут - алгоритм шифрования и дешифрования... »

Разработчик библиотеки сидит в соседнем кабинете, так что пример шифрования/дешифрования он мне сегодня утром показал Я просто ещё не углублялся в эту тему, расчитывал по лёгкой прикрутить функцию и всё.
В любом случае, спасибо за совет, буду разбираться. Если кому будет интересно, потом скину пример.

[kotkovets]

Shukaj,
Тогда уж лучше написать как плагин к NSIS c теме же алгоритмами работы как у приложения.
Здесь хедеры для этих дел, для обмена данными библиотеки и установщика.
http://forum.oszone.net/attachment.p...3&d=1266850604
Можно вызывать "чужую библиотеку" с помощью стандартного плагина System.dll (Docs\System\System.html)

[Shukaj]

К сожалению, пока ничего не получается. По идее, вызываю Crypt.dll (в ней 2 функции:
function DeCode(const _Str: Pointer): Pointer; stdcall; из кодированной строки в обычную
function Code(const _Str: Pointer): Pointer; stdcall; из обычной строки в кодированную)

Вот кусок кода в инсталляторе.

Код:

Section
  InitPluginsDir
  SetOutPath $PLUGINSDIR
  File Crypt.dll
  System::Call "Crypt::Code($R1) $R2"
SectionEnd

Но ничего не происходит. Я так понимаю, проблема в том, что Crypt.dll написана на делфи.

пример использования Crypt.dll:

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

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    dh: cardinal;
    DeCode: function (const _Str: Pointer): Pointer; stdcall;
    Code: function(const _Str: Pointer): Pointer; stdcall;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
 var
 s:string;
begin
 s := Edit1.Text;
 Edit2.Text := String(Code(@s)^);

 Edit3.Text := String(DeCode(@s)^);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 FreeLibrary(dh);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 DH := LoadLibrary('Crypt');
 @DeCode := GetProcAddress(dh,'DeCode');
 @Code := GetProcAddress(dh,'Code');
end;

end.

Плагины к NSIS, если не ошибаюсь, пишутся на си. Получается, что придётся переписать dll-ку с делфи на си?