VPF::Запуск bat-файлов - Форум программистов

skorpik

Дата 17.6.2008, 21:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 82
Регистрация: 10.1.2008

Репутация: нет
Всего: нет

Как мне выполнить bft-файл, который разархивирует порядка 100 файлов-архивов в один каталог, который, когда заполнится, будет передан в filelistbox? Пробовал winexec, так на более медленных машинах bat-ник не успевает разархивировать все файлы, и в filelistbox попадают далеко не все, что было в архивах... smile

THandle

Дата 18.6.2008, 02:03 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 7
Всего: 372

Может как то так?

Код



procedure TForm1.Button1Click(Sender: TObject);
var
  pi : TProcessInformation;
  si : TStartupInfo;
begin
  ZeroMemory(@si, SizeOf(si));
  si.cb := SizeOf(si);
  if CreateProcess(nil, 'C:\1.bat', nil, nil, false, 0, nil, nil, si, pi) then
    begin
      WaitForSingleObject(pi.hProcess, INFINITE);
      CloseHandle(pi.hProcess);
      CloseHandle(pi.hThread);
      FileListBox1.Directory := 'DIR';
    end;
end;

Это сообщение отредактировал(а) THandle - 18.6.2008, 02:04

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »