Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Вниз

ShellExecute 


Елена   (2002-01-07 14:00) [0]

Открываю из своей программы Интернет-страничку функцией ShellExecute. Но если обозреватель уже открыт, то начинается загрузка именно в уже созданном окне. Как открыть страницу в новом окне?
Заранее благодарна.



Delphimun   (2002-01-07 14:17) [1]

Сначало запусти пустой iexplorer, а потом загружай страничку



3d[Power]   (2002-01-07 14:18) [2]

Кстати если при этой операции удерживать shift то откроется новое окно. А так помоему есть какието ключи к iexplore.exe чтобы в новом окне открывать



Z   (2002-01-07 18:31) [3]

Попробуй такую функцию:
(единственный минус - будет открыт IE, а не Default-броузер)

procedure LoadURL (URL: string);
var
Command, filename: pchar;
params, dir: string;
begin
command:="open" + #0;
Params:=URL+#0;
filename:="iexplore.exe" + #0;
dir:="C:\Program Files\Internet Explorer"+#0;
ShellExecute(form1.ClientHandle, command, filename, @params[1], @Dir[1], 1);
end;



Елена   (2002-01-08 09:17) [4]

Delphimun,
запускаю второй (пустой) Эксплорер, но страница все равно грузится в первый :o(

3d[Power],
Ваш совет работает, но он очень неудобен для пользователя.

Z,
Ваша функция вызывает нарушение доступа :(((

Мальчики, ну что же Вы советуете?



avt   (2002-01-08 15:39) [5]

Z был прав - у меня это работает!
...
var
Command, filename, params,dir: pchar;
begin
command:="open" + #0;
filename:="iexplore.exe" + #0;
dir:="C:\Program Files\Internet Explorer"+#0;
Params:="C:\WINDOWS\Рабочий стол\Заказ.htm"+#0;
ShellExecute(form1.ClientHandle, command, filename, params, Dir, SW_SHOW);
Params:="C:\WINDOWS\Рабочий стол\возможности.htm"+#0;
ShellExecute(form1.ClientHandle, command, filename, params, Dir, SW_SHOW);
{или так:
WinExec("C:\Program Files\Internet Explorer\iexplore.exe C:\WINDOWS\Рабочий стол\Заказ.htm",SW_SHOW);
WinExec("C:\Program Files\Internet Explorer\iexplore.exe C:\WINDOWS\Рабочий стол\возможности.htm",SW_SHOW);
}
end;



SuperMama   (2002-01-08 15:44) [6]

WinExec("C:\Program Files\Internet Explorer\iexplore.exe http://www.maol.ru",SW_SHOW);

Такая строка работает наУРА !



Елена   (2002-01-08 15:53) [7]

SuperMama,
пасибки.



Vovchik   (2002-01-08 17:00) [8]

>SuperMama
Это не есть хорошо ровно по одной причине: а вдруг найдётся некто, юзающий НетШкаф, например, а не експлорер? К тому же в вашем примере указан путь жёстко, тоже некрасиво.



SuperMama   (2002-01-08 17:57) [9]

>>Vovchik ©
Тогда в таких случаях делаеться так :

WinExec("start http://www.mail.ru",SW_SHOW);

! ! ! ! !



Vovchik   (2002-01-08 18:48) [10]

Это чего такое: WinExec("start http://www.mail.ru",SW_SHOW)???????????????????????
Оно не работает и не понятно, почему вообще должно работать???
Можно и ВинЕкзеком, но надо сначала подсмотреть в реестре, какая прога ассоциирована с расширением htm или html.



SuperMama   (2002-01-09 10:36) [11]

>>Vovchik ©

Ну ты просил !

>>> а вдруг найдётся некто, юзающий НетШкаф, например, а не експлорер?

Вот поэтому и WinExec("start http://www.mail.ru",SW_SHOW);

>>>но надо сначала подсмотреть в реестре, какая прога ассоциирована с расширением htm или html.

Так вот если по дефолту в вынях ничё нестоит (а значит ехплорер)
то тогда без "старт", жестко, а ежели чё другое то буить то что сасациированно !
ПОНЯЛ ?



Vovchik   (2002-01-09 14:11) [12]

Не совсем. Если start - это прога start.exe, то, например, у меня её нету, поскольку первым делом после установки виндов у удаляю всё дерьмо, которое устанавливается вместе с виндой. Поэтому этот способ тоже ...



SuperMama   (2002-01-09 16:01) [13]

>>> Vovchik ©
То тогда в запущенном Делфи тыцаешь кнопочку Ф1
и ищеш в указателе ShellExecute ....
И ЧИТАЕШЬ !




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.74 MB
Время: 0.071 c
3-90209           Aquarius              2001-12-24 14:52  2002.01.28  
Почему выборка в MSSQL 2000 возвращает Еоf? >>>


3-90192           g                     2001-12-14 16:00  2002.01.28  
RxDBGrid


4-90427           WithoutHead           2001-11-27 19:09  2002.01.28  
Help!


3-90184           KIR                   2001-12-21 09:56  2002.01.28  
Как установить у пользователя BDE...


3-90212           VovaKomarov           2001-12-24 11:35  2002.01.28  
BLOB