Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как открыть Internet Explorer [D7, WinXP]

blackandWhite © (2005-08-23 18:16:00)
Доброго времени суток!
Я делаю одну прогу.Мне нужно что бы по нажатию на кнопку открывались 4 страници Internet Explorer вот примерно с таким текстом:' http://support.uraltc.ru/password'+edit1+'login'+edit2+'... Открываться должен только Internet Explorer не зависимо от того какой броузер стоит по умолчаниюю.

Zeqfreed (2005-08-23 21:51:00) [1]
blackandWhite (23.08.05 21:23) [11]

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

Юрий Зотов (2005-08-23 21:47:00) [2]
Можно. Если разберете, как в приведенном коде формируется командная строка - то поймете, как можно запустить IE и через ShellExecute. Это совсем несложно.

blackandWhite (2005-08-23 21:23:00) [3]
А можно как нибудь через ShellExecute написать

Юрий Зотов (2005-08-23 21:13:00) [4]
> 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 20:58:00) [5]
>Требуется приведение типов
А как их привести?
Напишите пожалуйста работающий код.

Zeqfreed (2005-08-23 20:54:00) [6]
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:50:00) [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'

Юрий Зотов (2005-08-23 20:31:00) [8]
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:25:00) [9]
>ShellExecute
можно немного поподробнее и как открыть имеено через Internet Explorer.У меня cтоит Opera, а мне нужно чтобы открывалось именно через Internet Explorer

TUser (2005-08-23 19:51:00) [10]
ShellExecute - поставь там 'open' и свой адрес.

Desdechado (2005-08-23 19:19:00) [11]
пример для CreateProcess
http://delphimaster.ru/cgi-bin/forum.pl?id=1124797770&n=0

blackandWhite (2005-08-23 18:41:00) [12]
Ну пожалуйста поделитесь кодом

Desdechado (2005-08-23 18:36:00) [13]
1. классно так открытым текстом пароли передавать!
2. iexplore запусти

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »