VPF::управление браузером системы по умолчанию

delphi_

Дата 12.7.2007, 13:41 (ссылка)

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

Загрузка ...

Шустрый

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

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

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

спасибо

Letov

Дата 27.7.2007, 18:35 (ссылка)

(голосов:1)

Загрузка ...

Опытный

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

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

Поищи в DRKB.

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

Не бывает плохих языков программирования. Бывают плохие программисты...

jonie

Дата 28.7.2007, 00:13 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


typedef HRESULT (WINAPI  *DOFILEDOWNLOADEX)(LPCWSTR pwszURL, BOOL bSaveAs);
typedef HRESULT (WINAPI  *DOFILEDOWNLOAD)(LPCWSTR pwszURL);

//Загрузка файла с помощью диалога эксплорера
BOOL DownLoadFileInExplorer(LPCSTR lpcStrUrl)
{
   DOFILEDOWNLOADEX DoFileDownloadEx=NULL;
   HMODULE hModule=NULL;
   HRESULT hr;
   WCHAR cUrlW[INTERNET_MAX_PATH_LENGTH];
   int iRes=0;

   if (!lpcStrUrl) return 0;//Нам передан 0 указатель

   hModule=LoadLibrary("shdocvw.dll");//Подгружаем модуль
   if (hModule==NULL) return 0;//Модуль не занружен
   
   //Конвертируем в UNICODE 
   iRes=MultiByteToWideChar(CP_ACP, 0, lpcStrUrl,-1, cUrlW, ARRAYSIZE(cUrlW));
   if (!iRes) return 0;

   DoFileDownloadEx = (DOFILEDOWNLOADEX)GetProcAddress(hModule,"DoFileDownloadEx"); 
   if (DoFileDownloadEx==NULL) return 0;

   hr=DoFileDownloadEx(cUrlW,TRUE);           

   if (SUCCEEDED(hr)) return 1;//Если операция подтверждена
   
   //FreeLibrary(hModule);
   return 0;

}

Ы?

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

Что-то не поняли? -> Напейтесь до зеленых человечков... эта сверхцивилизация Вам поможет...

Yanis

Дата 28.7.2007, 15:35 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(delphi_ @ 12.7.2007, 14:41

)

определенную папку для сохранения

Цитата

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"Save Directory"="D:\\mydocs\\"

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

*щёлк*

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