Скачать: CL | DM;

Как открыть 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]

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

---

← →
Юрий Зотов ©   (2005-08-23 21:13) [10]

> 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 написать

---

← →
Юрий Зотов ©   (2005-08-23 21:47) [12]

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

---

← →
Zeqfreed ©   (2005-08-23 21:51) [13]

blackandWhite   (23.08.05 21:23) [11]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.023 c