Урлянка

[KDima]

Как грамотно запустить новую копию браузера по умолчанке и послать его на яндекс?

[hCORe]

Код: Выделить всё

Private Const SW_SHOWNORMAL = 0
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'...
ShellExecute 0, "open", "http://www.yandex.ru", vbNullString, vbNullString, SW_SHOWNORMAL

[Шурик]

Код: Выделить всё

Shell "iexplore.exe http://yandex.ru"


[KDima]

Шурик

Как грамотно запустить новую копию браузера по умолчанке и послать его на яндекс?

Пример хкора вроде рулит... тока вот на дельфях такое не повторить (мне)

[hCORe]

Кстати, мой код откроет страницу в уже существующем окне (по крайней мере, для Internet Explorer.)

А вот и код на Delphi:

Код: Выделить всё

program readthisfunnymanual;
uses ShellAPI;
procedure nav(sAddr: string);
begin
    ShellExecute(0, 'open', PAnsiChar(sAddr), nil, nil, 0);
end;

begin
    nav('http://www.yandex.ru');
end.

[KDima]

А дельфёвый?

[hCORe]

В смысле? Это и есть код для Delphi. Инструкция по применению:
1) Открываешь Delphi (у меня 7-я версия). Автоматически создается проект с модулем и формой.
2) Закрываешь окна автоматически созданной формы и модуля. На вопрос IDE о сохранении файлов ответь "No".
3) Project>View Source. Удаляешь весь текст в окне редактора, вставляешь код с форума.
4) File>Save Project - сохраняешь проект.
5) Запуск: F9. Вуаля - появляется страница Яндекса!

[KDima]

мой код откроет страницу в уже существующем окне

А дельфёвый?

[hCORe]

Дошло

Как ты думаешь, Дима, API-функции при вызове из VB и из Delphi разные? Если есть уже открытое окно IE, сайт будет показан в нем. Как при использовании VB, так и Delphi. Проверено кувал... то есть методом научного тыка

[KDima]

Код: Выделить всё

uses ShellAPI;

Тык это не значит, что тут есть некая библа в которой это уже написанно?
Может в ней не API используется?


З.Ы. Ура! Вправил клаве мозги! Теперь раскладка переключается!
З.Ы. хКОР => hCORe, hCORe Работает!

[hCORe]

ShellAPI.pas {полный путь: \source\rtl\win\shellapi.pas из-под директории Delphi} - это модуль (а не библиотека!), содержащий объявления функций из системной библиотеки shell32.dll. Мини-подсказка: в Delphi IDE, подведи указатель мыши к строчке ShellAPI и, удерживая Ctrl, нажми левую кнопку. Что наблюдаешь?

Я - вот это:

Код: Выделить всё

{*******************************************************}
{                                                       }
{       Borland Delphi Run-time Library                 }
{       Win32 Shell API Interface Unit                  }
{                                                       }
{       Copyright (c) 1985-1999, Microsoft Corporation  }
{                                                       }
{       Translator: Borland Software Corporation        }
{                                                       }
{*******************************************************}

unit ShellAPI;

А функции там объявляются, соответственно, вот так:

Код: Выделить всё

{$EXTERNALSYM ShellExecute}
function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,
  Directory: PChar; ShowCmd: Integer): HINST; stdcall;

[KDima]

Сдаюсь!
Набо было просто подумать
А кто такой PChar?

[hCORe]

Код: Выделить всё

type PChar = ^char;

То есть, PChar - указатель на символ.

[KDima]

На первый?

[hCORe]

Скорее всего, да, но я не вдавался в такие подробности. Однако помню, что char по умолчанию не wide, а ansi. Вот.

[tyomitch]

А никого не смущает, что форум называется "Visual Basic"?

[hCORe]

Меня спрашивают - я отвечаю, если знаю