[Painkiller]

апи не надо не любить, а пользоваться, эти функции объявлены в "заголовках" дельфи.. в батниках я не спец, но обязательно нужно опредилить путь к makensis и полный путь к скрипту ${NSISDIR}\makensis.exe "путь к скрипту" Вам пример привести на делфи или на nsis посредством апи? »

Приведите , посмотрим

[kotkovets]

Пример на делфи

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

Код:

function Exec(RunApp : string; cmdline : string) : bool;
var
    si : TStartupInfo;
    pi : TProcessInformation;
begin
    try
      ZeroMemory(@si,SizeOf(si));
      si.cb := SizeOf(si);
      si.dwFlags := STARTF_USESHOWWINDOW;
      si.wShowWindow := SW_SHOW; // SW_HIDE - скрытый запуск
      Result := CreateProcess(PChar(RunApp),PChar(' ' + cmdline),nil, nil,False,0,nil,nil,si,pi);
	  WaitForSingleObject(pi.hProcess, INFINITE); // ожидаем завершения процесса
      CloseHandle(pi.hThread);
      CloseHandle(pi.hProcess);
    except
      Result := false;
    end;
end;
//запуск функции
//  Exec('путь к makensis', 'путь к скрипту');

Пример на апи, запуск консоли, в скрытом режиме и ожидание завершения. Если все хорошо в $0 возвращается 0

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

Код:

!include "MUI2.nsh"
!include "Util.nsh"

OutFile "Tes_Run_MAKE.exe"
ShowInstDetails show

!insertmacro MUI_PAGE_INSTFILES
!insertmacro MUI_LANGUAGE "Russian"

!define INFINITE          -1
!define DETACHED_PROCESS  0x00000008
!define ExecWait  "!insertmacro ExecWaitCall"

!macro ExecWaitCall CmdLine ExitCode
	Push `${CmdLine}`
	${CallArtificialFunction} _CallExecWait
	Pop ${ExitCode}
!macroend

!macro _CallExecWait
    System::Store S
    Push error
    System::Alloc 72
    Pop $2
    System::Call "*$2(i72)"
    System::Call "*(i,i,i,i)i.r3"
    Exch
    System::Call "kernel32::CreateProcess(i0, ts, i0, i0, i0, i${DETACHED_PROCESS}, i0, i0, ir2, ir3)i.r4"
    ${Unless} $4 = 0
        Pop $6
        System::Call "*$3(i.r4)"
        System::Call "kernel32::WaitForSingleObject(ir4, i${INFINITE})"
        System::Call "kernel32::GetExitCodeProcess(ir4, *i.s)"
        System::Call "kernel32::CloseHandle(ir4)"
    ${EndUnless}
    System::Free $2
    System::Free $3
    System::Store L
!macroend

Section ""
  ${ExecWait} '"${NSISDIR}\makensis.exe" "D:\designer\Debug.nsi"' $0
  DetailPrint "ExitCode: $0"
SectionEnd

Если через диспетчер завершть makensis - код возврата 1

[Painkiller]

kotkovets, в том то и дело что путь к makensis', 'путь к скрипту не работает. И я использую функцию

Код:

 function SwitchToProg(const Path: string): Boolean;
var
  SI: TStartupInfo;
  PI: TProcessInformation;
  ExitCode: Cardinal;
begin
  FillChar(SI, SizeOf(SI), 0);
  SI.cb := SizeOf(SI);

  Result := CreateProcess(nil, PChar(Path), nil, nil, False, 0, nil, nil,
    SI, PI);

  if Result then
  begin

    while GetExitCodeProcess(PI.hProcess, ExitCode) and
      (ExitCode = STILL_ACTIVE) do
      ; // ждем завершения, пустой цикл
   Form1.StatusBar1.SimpleText:='                                       Копиляция выполнена!';
    Form2.show;
  end;
end;

Мне нужно как-то запустить makensis ? Получается запустить только через батник. А ту функцию что вы мне написали я знаю. Ещё куча других подобных примеров есть . Мне лишь нужно знать как запустить makensis ?

[kotkovets]

А на фига здесь цикл? WaitForSingleObject - и все!

Мне нужно как-то запустить makensis »

Так укажите полный путь к makensis! если вы правильно указали путь, но не указали командную строку или неправильно - makensis сразу завершается, с кодом возврата 1 . Пропишите полный путь к исполнителю и скрипту... или где то еще у вас косяк, проверьте у себя скрипт который я показал в качестве примера - уверяю вас все отработает как нужно.
или вы просто не вылазите из цикла...

[Painkiller]

Ваш пример не работает. Где тут ошибка? :

Код:

 function Exec(RunApp : string; cmdline : string) : bool;
var
    si : TStartupInfo;
    pi : TProcessInformation;
begin
    try
      ZeroMemory(@si,SizeOf(si));
      si.cb := SizeOf(si);
      si.dwFlags := STARTF_USESHOWWINDOW;
      si.wShowWindow := SW_SHOW; // SW_HIDE - ñêðûòûé çàïóñê
      Result := CreateProcess(PChar(RunApp),PChar(' ' + cmdline),nil, nil,False,0,nil,nil,si,pi);
	  WaitForSingleObject(pi.hProcess, INFINITE); // îæèäàåì çàâåðøåíèÿ ïðîöåññà
      CloseHandle(pi.hThread);
      CloseHandle(pi.hProcess);
    except
      Result := false;
    end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 Exec('C:\Program Files\NSIS\makensis.exe','C:\myscript.nsi');
end;
end.

Пример на nsis работает

[kotkovets]

Вы наверно в юникоде работаете... это для анси..

[Painkiller]

Вы наверно в юникоде работаете... это для анси.. »

Значит нужно перекодировать в анси

[Krinkels]

Могу привести еще один пример, функция для запуска exe с параметром и ожидание его завершения.

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

Код:

function ExecAndWait(const FileName, Params: string; WindowState: Word): Longword;
var { by Pat Ritchey }
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  CmdLine: string;
begin
  CmdLine := '"' + FileName + '"' + Params;
  FillChar(StartupInfo, SizeOf(StartupInfo), #0);
  StartupInfo.cb          := SizeOf(StartupInfo);
  StartupInfo.dwFlags     := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := WindowState;
  if not CreateProcess(nil,
    PChar(CmdLine), // pointer to command line string
    nil, // pointer to process security attributes
    nil, // pointer to thread security attributes
    False, // handle inheritance flag
    CREATE_NEW_CONSOLE or // creation flags
    NORMAL_PRIORITY_CLASS,
    nil, //pointer to new environment block
    nil, // pointer to current directory name {PChar(ExtractFilePath(FileName)),}
    StartupInfo, // pointer to STARTUPINFO
    ProcessInfo) // pointer to PROCESS_INF
    then Result := WAIT_FAILED
  else
  begin
    while WaitForSingleObject(ProcessInfo.hProcess, 0) = WAIT_TIMEOUT do
    begin
      Application.ProcessMessages;
      Sleep(50);
    end;
    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess, Result);
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
  end;
end;

//Пример использования
procedure TForm1.Button1Click(Sender: TObject);
begin
    ExecAndWait( 'C:\Program Files\NSIS\makensis.exe', 'C:\myscript.nsi', SW_HIDE );
end;

[Painkiller]

Могу привести еще один пример, функция для запуска exe с параметром и ожидание его завершения. « скрыть »

Эту функцию я тоже знаю и тоже использую иногда . И с ней не пашит. Дело тут не в функциях .

[yyv]

уже мозг кипит, не знаю, может вы чем сможете помочь.
нужно сделать кастомную страницу лицензии.

так исторически сложилось, что делается все на ини файлах.
сделал поле

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

Код:

[Field 1]
Type=Bitmap
Text=C:\WINDOWS\TEMP\captura.bmp
Left=0
Right=290
Top=20
Bottom=43

[Field 2]
Type=Text
State=
Left=4
Right=288
Top=44
Bottom=94
Flags=MULTILINE|VSCROLL|NOTABSTOP

но как в него запихнуть текст лицензии?
пробовал читать текст из файла построчно в переменную, а затем вставить его

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

Код:

!insertmacro INSTALLOPTIONS_WRITE "pantallatoolbar" "Field 1" "Text" "$TEMP\captura.bmp"
!insertmacro INSTALLOPTIONS_WRITE "pantallatoolbar" "Field 2" "State" "$text_license"

но тут наткнулся на ограничение NSIS "default, variables are limited to 1024 characters. "

нашел плагин " CustomLicense" пробовал на его основе запихнуть текст в свое окно, тоже не вышло...
как можно какой нибудь текст неизвестной за ранее длины из файла запихнуть в требуемое поле?