Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > управление браузером системы по умолчанию


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

спасибо

Автор: Letov 27.7.2007, 18:35
Поищи в DRKB.

Автор: jonie 28.7.2007, 00:13
Код

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
Цитата(delphi_ @  12.7.2007,  14:41 Найти цитируемый пост)
определенную папку для сохранения

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)