Как открыть Internet Explorer

← →
blackandWhite (2005-08-23 18:16) [0]

Доброго времени суток!
Я делаю одну прогу.Мне нужно что бы по нажатию на кнопку открывались 4 страници Internet Explorer вот примерно с таким текстом:"http://support.uraltc.ru/password"+edit1+"login"+edit2+"... Открываться должен только Internet Explorer не зависимо от того какой броузер стоит по умолчаниюю.

← →
Desdechado © (2005-08-23 18:36) [1]

1. классно так открытым текстом пароли передавать!
2. iexplore запусти

← →
blackandWhite (2005-08-23 18:41) [2]

Ну пожалуйста поделитесь кодом

← →
Desdechado © (2005-08-23 19:19) [3]

пример для CreateProcess
http://delphimaster.net/view/1-1124797770/

← →
TUser © (2005-08-23 19:51) [4]

ShellExecute - поставь там "open" и свой адрес.

← →
blackandWhite (2005-08-23 20:25) [5]

>ShellExecute
можно немного поподробнее и как открыть имеено через Internet Explorer.У меня cтоит Opera, а мне нужно чтобы открывалось именно через Internet Explorer

← →
Юрий Зотов © (2005-08-23 20:31) [6]

procedure RunIE(const URL: string);
var
SI: TStartupInfo;
PI: TProcessInformation;
begin
ZeroMemory(@SI, SizeOf(SI));
SI.cb := SizeOf(SI);
if CreateProcess(nil, PChar("IExplore.exe " + URL), nil, nil, False, 0, nil, nil, SI, PI) then
begin
CloseHandle(PI.hThread);
CloseHandle(PI.hProcess)
end;
end;

← →
blackandWhite (2005-08-23 20:50) [7]

Скажите пожалуйста почему выдается ошибка
ShellExecute(Handle, "open", "iexplore.exe", "http://support.uraltc.ru/cgi-bin/account3.cgi?login="+Edit1.text+"&password="+Edit2.text+"&loginCard="+Edit3.text+"&pas swordCard="+Edit4.text", nil, SW_SHOW);
Ошибка:
[Error] Unit1.pas(32): Unterminated string
[Error] Unit1.pas(33): Incompatible types: "String" and "PAnsiChar"

← →
Zeqfreed © (2005-08-23 20:54) [8]

blackandWhite (23.08.05 20:50) [7]

> [Error] Unit1.pas(32): Unterminated string

Незавершенная строка (забыл одинарную кавычку в конце)

> [Error] Unit1.pas(33): Incompatible types: "String"
> and "PAnsiChar"

Требуется приведение типов

p.s. Читать книжки по паскалю иногда полезно и очень увлекательно.

← →
blackandWhite (2005-08-23 20:58) [9]

>Требуется приведение типов
А как их привести?
Напишите пожалуйста работающий код.

> blackandWhite (23.08.05 20:58) [9]
> Напишите пожалуйста работающий код.

uses
SHFolder, ShlObj;

procedure RunIE(const URL: string);
const
IE = "\Internet Explorer\IExplore.exe ";
var
SI: TStartupInfo;
PI: TProcessInformation;
B: array[0..MAX_PATH] of char;
begin
ZeroMemory(@SI, SizeOf(SI));
SI.cb := SizeOf(SI);
if SHGetSpecialFolderPath(0, @B, CSIDL_PROGRAM_FILES, False) and
CreateProcess(nil, PChar(String(B) + IE + URL), nil, nil, False, 0, nil, nil, SI, PI) then
begin
CloseHandle(PI.hThread);
CloseHandle(PI.hProcess)
end
end;

← →
blackandWhite (2005-08-23 21:23) [11]

А можно как нибудь через ShellExecute написать

Можно. Если разберете, как в приведенном коде формируется командная строка - то поймете, как можно запустить IE и через ShellExecute. Это совсем несложно.

blackandWhite (23.08.05 21:23) [11]

var p : PChar; s : String; begin p := s; //Ошибка - несовместимые типы p := PChar(s); //Все в порядке, тип String приведен к типу PChar end;

Как открыть Internet Explorer Найти похожие ветки