VPF::Как програмно вызвать Files Search Dialog

Ak47black

Дата 30.9.2007, 14:51 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

Здравствуйте.
Подскажите пожалуйста.
Может ктонибудь знает как программно вызвать стандартный поиск windows, и при этом при вызове можно было указать программно путь поиска? smile

ZBugz

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

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

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

Какие ActiveX, shlobj, ShellApi непомню smile

Код


function ShowFindDialog(Path: String): Boolean;
var
  Malloc: IMalloc;
  pidl: PItemIdList;
  Info: TShellExecuteInfo;
begin
  Result:= False;
  ZeroMemory(@Info, SizeOf(TShellExecuteInfo));
  if Path = '' then
  begin
    if SUCCEEDED(SHGetMalloc(Malloc)) then
    try
      if SUCCEEDED(SHGetSpecialFolderLocation(0, CSIDL_DRIVES, pidl)) then
      try
        with Info do begin
          cbSize:= SizeOf(TShellExecuteInfo);
          fMask:= SEE_MASK_INVOKEIDLIST;
          lpVerb:= 'find';
          lpIDList:= pidl;
        end;
        Result:= ShellExecuteEx(@Info);
      finally
        Malloc.Free(pidl);
      end;
    finally
      Malloc:= nil;
    end;
  end else begin
    with Info do begin
      cbSize:= SizeOf(TShellExecuteInfo);
      lpVerb:= 'find';
      lpFile:= PChar(Path);
    end;
    Result:= ShellExecuteEx(@Info);
  end;
end;

Использование:

Код


ShowFindDialog(Путь);

Ak47black

Дата 30.9.2007, 19:57 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

ZBugz, Спасибо большое.
Код работает на ура. smile

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