VPF::Открыть в новом окне - Форум программистов

Pavelbej

Дата 17.9.2006, 20:37 (ссылка)

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

Загрузка ...

Опытный

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

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

На форме есть Label. По клику запускается браузер.

Код


ShellExecute(Handle, 'open', PChar('www.MyPage.com'),nil,nil, SW_SHOWNORMAL);

Можно ли както открыть нужный адрес в новом окне браузера?

Fedia

Дата 17.9.2006, 23:44 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

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

Попробуй так:

Код


ShellExecute(GetDesktopWindow(), 'Open', PChar('www.МyPage.com'), nil, nil,
    SW_SHOWNORMAL);

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

Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…

Pavelbej

Дата 18.9.2006, 14:09 (ссылка)

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

Загрузка ...

Опытный

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

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

Fedia, открывается в том же окне, не в новом.

Snowy

Дата 18.9.2006, 14:32 (ссылка)

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

Загрузка ...

Эксперт

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

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

Как открывать - зависит только от браузера.
Но попытаться можно - нужно запускать не урл, а браузер, а урл передавать как параметр коммандной строки.
Может поможет... С IE должно помочь.
Разница - запуск нового экземпляра или передача через DDE.
C запуском нового экземпляра вероятность открытия в новой странице выше.

Akella

Дата 18.9.2006, 15:21 (ссылка)

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

Загрузка ...

Творец

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

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

Цитата(Snowy @ 18.9.2006, 14:32

)

Как открывать - зависит только от браузера.

вот например квип, постоянно открывает ссылку в новом окне, а Outlook Express старается использовать уже открытое

Pavelbej

Дата 18.9.2006, 16:38 (ссылка)

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

Загрузка ...

Опытный

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

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

Всем спасибо, вопрос решен.

Код


var ss, ts : string;
begin
with TRegistry.Create do
     try
       rootkey := HKEY_CLASSES_ROOT;
       OpenKey('HTTP\shell\open\command', False);
       try
         ss := ReadString('');
       except
         ss := '';
       end;
       CloseKey;
     finally
       Free;
     end;
       if ss='' then exit;
       ts := Copy(ss, Pos('"', ss) + 1, Length(ss));
       ts := Copy(ss, 1, Pos('"', ss) - 1);
winexec(pchar(ts+'www.mypage.ru'),0);

Snowy

Дата 18.9.2006, 17:04 (ссылка)

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

Загрузка ...

Эксперт

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

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

Pavelbej, угу. Только не понятно зачем кавычки режешь. Это совсем лишнее.
И читать из реестра нужно в режиме ReadOnly, иначе получишь AV при работе без админских прав.

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