[nerZEROn]

Добрый день!
Нужно написать утилиту, которая будет при нажатии кнопки устанавливать программы по списку из ini-файла.

Пример содержания файла:

[soft]
7zip=7zip\7z.exe
WinRAR=winrar\setup.exe

При нажатии кнопки установки, утилита должна читать ini-файл, а затем, следуя списку, запускать по очереди инсталляторы. При этом хочется, чтобы это происходило в отдельном потоке, основная программа была бы доступна, и имелась возможность прервать процесс установки по нажатию соответствующей кнопки.

Собственно, вопрос: как правильно считать значения ключей из секции ini-файла и запихнуть их в CreateProcess, снабдив все это отдельным потоком?

[poli-smen]

Сообщение от nerZEROn

Собственно, вопрос: как правильно считать значения ключей из секции ini-файла и запихнуть их в CreateProcess, снабдив все это отдельным потоком?

В модуле IniFiles есть класс TMemIniFile - открываешь с его помощью свой ini-файл, методом ReadSection читаешь из секции 'soft' имена ключей и потом в цикле методом ReadString считываешь каждый параметр и отдаёшь его в CreateProcess.

CreateProcess используешь примерно так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

var   SI: TStartupInfo;   PI: TProcessInformation; ..... begin .....   FillChar(SI, SizeOf(SI), 0);   SI.cb := SizeOf(SI);   SI.wShowWindow := SW_NORMAL;   SI.dwFlags := STARTF_USESHOWWINDOW;     if CreateProcess('Запускаемое приложение', nil, nil, nil, False, 0, nil, nil, SI, PI) then   try     while True do     begin       if (WaitForSingleObject(PI.hProcess, 100) <> WAIT_TIMEOUT) or Terminated then Break;     end;   finally     CloseHandle(PI.hProcess);     CloseHandle(PI.hThread);   end; ..... end;

Для создания отдельного потока, используй BeginThread или создавай своего потомка от TThread или можешь использовать дополнительные компоненты - просто бросаешь такую компоненту на форму и задаёшь ей нужные обработчики событий. Например в библиотеке RxLib есть такая компонента, или вот здесь есть подобная (TBMDThread).

[nerZEROn]

А можно поподробнее по поводу цикла и считывания через ReadString? Я не особо хорошо в этом разбираюсь Нужно ведь сделать считывание по порядку из списка значений... но как это сделать и избавиться от бесконечного цикла?

[poli-smen]

Сообщение от nerZEROn

А можно поподробнее по поводу цикла и считывания через ReadString? Я не особо хорошо в этом разбираюсь Нужно ведь сделать считывание по порядку из списка значений... но как это сделать и избавиться от бесконечного цикла?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

procedure TForm1.Button1Click(Sender: TObject); var   ini: TMemIniFile;   sl: TStringList;   i: Integer;   Ident, Value: String; begin   ini := TMemIniFile.Create('ИмяФайла.ini');   try     sl := TStringList.Create;     try       ini.ReadSection('soft', sl);       for i := 0 to sl.Count - 1 do       begin         Ident := sl[i];         Value := ini.ReadString('soft', Ident, '???');         ShowMessageFmt('Для установки "%s" запускаем "%s"', [Ident, Value]);       end;     finally       sl.Free;     end;   finally     ini.Free;   end; end;

[nerZEROn]

Сообщение от poli-smen

Код:

На этом этапе получаю сообщения типа 'Для установки "7Zip" запускаем "???"'. Выходит, Value не считывается?

А нет, нашел свой косяк Все нормально работает! Спасибо!

[nerZEROn]

Итак, я пришел к такому обработчику кнопки "Установить":

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

procedure TForm1.btn_instClick(Sender: TObject); var    ini: TMemIniFile;    sl: TStrings;    i: Integer;    Ident, Value: String;    SI: TStartupInfo;    PI: TProcessInformation; begin    ini := TMemIniFile.Create('install.ini');    FillChar(SI, SizeOf(SI), 0);    SI.cb := SizeOf(SI);    SI.wShowWindow := SW_NORMAL;    SI.dwFlags := STARTF_USESHOWWINDOW;    try     sl := TStringList.Create;     try       ini.ReadSection('soft', sl);       for i := 0 to sl.Count - 1 do       begin         Ident := sl[i];         Value := ini.ReadString('soft', Ident, '');               if CreateProcess(PChar(Ident), PChar(' ' + Value), nil, nil, False, 0, nil, nil, SI, PI) then           try            while True do             begin              if (WaitForSingleObject(PI.hProcess, 100) <> WAIT_TIMEOUT) then Break;             end;            finally             CloseHandle(PI.hProcess);             CloseHandle(PI.hThread);         end;       end;     finally       sl.Free;     end;   finally     ini.Free;   end; end;

В целом программа работает исправно: читает ini и запускает по порядку дистрибутивы программ с параметрами.
Но снова столкнулся с проблемой. Гуглил пол дня, копался в примерах и исходниках, но так и не понял, как вывести это все в отдельный поток. Также, я не смог найти никакой документации к компоненту BMDThread. Поскольку приложение будет выполнять у меня по несколько функций сразу, жизненно необходимо, чтобы основная форма была доступна во время инсталляции сторонних программ.

[poli-smen]

Сообщение от nerZEROn

Но снова столкнулся с проблемой. Гуглил пол дня, копался в примерах и исходниках, но так и не понял, как вывести это все в отдельный поток. Также, я не смог найти никакой документации к компоненту BMDThread. Поскольку приложение будет выполнять у меня по несколько функций сразу, жизненно необходимо, чтобы основная форма была доступна во время инсталляции сторонних программ.

Что же там сложного - BMDThread идёт полностью в исходниках.
В событии OnExecute у BMDThread пиши то, что должно выполняться в отдельном потоке (thread), а для запуска потока просто вызови например по нажатию кнопки метод Start:

Код:

1 2 3 4

procedure TForm1.btn_instClick(Sender: TObject); begin   BMDThread1.Start; end;

[nerZEROn]

Сообщение от poli-smen

Что же там сложного - BMDThread идёт полностью в исходниках.
В событии OnExecute у BMDThread пиши то, что должно выполняться в отдельном потоке (thread)

А можно подробнее? Я не совсем понимаю потоки, а уж компонент этот тем более) Может, есть какой-то исходник, показывающий работу компонента или какой-то пример... Мне проще разобраться, когда вижу, как это работает.

[poli-smen]

Сообщение от nerZEROn

А можно подробнее? Я не совсем понимаю потоки, а уж компонент этот тем более) Может, есть какой-то исходник, показывающий работу компонента или какой-то пример... Мне проще разобраться, когда вижу, как это работает.

Вместе с компонентом в папке Demo идёт пример использования. Тот что для D5 прекрасно работает и в D7.

[nerZEROn]

Сообщение от poli-smen

Вместе с компонентом в папке Demo идёт пример использования. Тот что для D5 прекрасно работает и в D7.

Пытался сделать, опираясь на исходник этот - почему-то не запускает поток. Ну и ладно. Создал своими руками вот так:

Код:

1 2 3 4 5 6

TMyThread = class(TThread)     private     { Private declarations }   protected     procedure Execute; override;   end;

Запихнул в процедуру код на инсталляцию и ура! Приложение не виснет во время выполнения