VPF::Мастер извлечений - Форум программистов

lorents

Дата 24.4.2009, 16:24 (ссылка)

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

Загрузка ...

Опытный

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

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

как можно вызвать функцию в windows "Мастер извлечений" который извлекает файлы из zip-архивов?

--------------------

Image Catalyst

Palladin

Дата 24.4.2009, 20:26 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

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

не совсем понял вопрос, но может ты ищеш shellexecute?

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

lorents

Дата 24.4.2009, 20:42 (ссылка)

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

Загрузка ...

Опытный

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

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

Palladin, сейчас объясню открой zip-архив через проводник, а затем в меню файл\извлечь

--------------------

Image Catalyst

Akella

Дата 24.4.2009, 22:44 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Уже была такая тема:
http://forum.vingrad.ru/forum/topic-222975...ry/0.html#entry

Вот ещё информация
http://www.sql.ru/forum/actualthread.aspx?tid=231547

А в DRKB заглядывал?

lorents

Дата 25.4.2009, 09:52 (ссылка)

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

Загрузка ...

Опытный

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

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

Akella,

Цитата(Akella @ 24.4.2009, 22:44

)

А в DRKB заглядывал?

неа

, ща глянем

--------------------

Image Catalyst

Rrader

Дата 25.4.2009, 16:54 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Попробуй

Код


uses ShlObj, ActiveX;

...
{ Проверка на расширение не требуется }
function ShowExtractFilesDialog(const ZipFile: String): Boolean;
var
  Malloc: IMalloc;
  Desktop: IShellFolder;
  Archive: IShellFolder2;
  ID: PItemIDList;
  CM: IContextMenu;
  ICI: TCMInvokeCommandInfo;
begin
  Result := Succeeded(CoGetMalloc(1, Malloc));
  if Result then
  try
    Result := Succeeded(SHGetDesktopFolder(Desktop));
    if Result then
    try
      Result := Succeeded(Desktop.ParseDisplayName(0, nil,
        StringToOleStr(ZipFile), PULONG(nil)^, ID, PULONG(nil)^));
      if Result then
      try
        Result := Succeeded(Desktop.BindToObject(ID, nil,
          IID_IShellFolder2, Archive));
        if Result then
        try
          Result := Succeeded(Archive.CreateViewObject(0, IID_IContextMenu, CM));
          if Result then
          try
            { Небольшое допущение }
            FillChar(ICI, SizeOf(ICI), #0);
            with ICI do
            begin
              cbSize := SizeOf(ICI);
              nShow := SW_SHOWNORMAL;
            end;
            Result := Succeeded(CM.InvokeCommand(ICI));
          finally
            CM := nil;
          end;
        finally
          Archive := nil;
        end;
      finally
        Malloc.Free(ID);
      end;
    finally
      Desktop := nil;
    end;
  finally
    Malloc := nil;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    ShowExtractFilesDialog(OpenDialog1.FileName);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CoInitialize(nil);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  CoUninitialize();
end;

Это сообщение отредактировал(а) Rrader - 25.4.2009, 17:03

--------------------

Let's do this quickly!
Rest in peace, Vit!

lorents

Дата 25.4.2009, 20:03 (ссылка)

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

Загрузка ...

Опытный

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

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

Rrader, благодарю, ща попробуем

--------------------

Image Catalyst

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