Запуск браузера

[Нубасик]

Здравствуйте, я в программировании недавно, дали задание: При нажатии кнопки осуществляется подключение к сети интернет через vpn, затем запускается браузер и в него автоматически вводится адресная строка, после чего, в браузере всплывает окно с предложением загрузки файла и также автомтически нажимается кнопка сохранить. Затем, через 5 секунд после начала закачки браузер закрывается и отключается соединение vpn.
В сети нарыл часть кода для открытия браузера:

для начала выбрать во вкладке internet
>WebBrowser(SchDocVW)

procedure TForm3.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
   var Flags: OleVariant;
  begin
 Flags:=1;
 WebBrowser1.Navigate('http:\\www.sql.ru',Flags);
end;

Flags:=1 -указывает что окно браузера откроится и начнёт качать!

Подскажите, пожалуйста, как прописать остальной кол? Или хотя бы от чего "плясать" дальше?

[Stilet]

остальной кол?

Тебе файл нужно скачать из интернета?
Так используй IdHTTP. Он имхо вполне пригоден для качалки файловой.

[Нубасик]

Не, мне не файл сам важен, а процесс: подключение интернет - запуск браузера с адресом - нажатие кнопки "сохранить" - закрытие браузера через 5 секунд - отключение интернета.

[Stilet]

А теперь четко объясни зачем такая морока?
Подсунуть кому-то бяку хочешь?

[Gambler]

кнопку нажать в диалоге или на странице?

[glGizma]

Сообщение от Stilet

А теперь четко объясни зачем такая морока?
Подсунуть кому-то бяку хочешь?

ты читал вообще, что он из начально написал? Ему задание дали, незнаешь не пиши...

[dmitriegorovih]

Ну тогда почитайте для большего ознокамления

Запуск программ из Delphi


Оформил: DeeCo
В этой статье вы научитесь применять функцию Windows API ShellExecute. Ее применяют в тех случаях, когда мы, например, хотим открыть файл в соответствии с его расширением, не зная, какая программа ассоциирована с таким файлами. Итак, начнем с простого:

- Запустить блокнот (notepad)
uses ShellApi;
...ShellExecute(Handle, 'open',
'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);

- Открыть текстовый файл c:\text.txt в блокноте
ShellExecute(Handle, 'open',
'c:\windows\notepad.exe', 'c:\text.txt', < BR > nil,
SW_SHOWNORMAL);

- Показать содержимое каталога c:\archive
ShellExecute(Handle, 'open', 'c:\archive', nil, nil,
SW_SHOWNORMAL);

- Открыть файл в соответствии с расширением
ShellExecute(Handle,
'open', 'c:\MyDocuments\Letter.doc', nil, nil, SW_SHOWNORMAL);

- Открыть html документ в браузере по умолчанию
ShellExecute(Handle,
'open', 'http://src.fitkursk.ru', nil, nil, SW_SHOWNORMAL);



- Послать сообщение по электронной почте


var
em_subject, em_body, em_mail: string;
begin
em_subject := 'This is the subject line ';
em_body := ' Message body text goes here';
em_mail := 'mailto:alex@fitkursk.ru?subject='
+ em_subject + '&amp;body=' + em_body;
ShellExecute(Handle, 'open', PChar(em_mail), nil, nil, SW_SHOWNORMAL);
end;



- Дожидаемся окончания запущенной программы


// фрагмент кода запускает калькулятор и
// выдает сообщение, когда он закрываетсяuses
ShellApi;
...var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
ExecuteFile, ParamString, StartInString: string;
begin
ExecuteFile := 'c:\Windows\Calc.exe';
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
with SEInfo do
beginfMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(ExecuteFile);
{ParamString can contain theapplication parameters.}
// lpParameters := PChar(ParamString);
{StartInString specifies thename of the working
directory.If ommited, the current
directory is used.}
// lpDirectory := PChar(StartInString);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@SEInfo) then
begin
repeatApplication.ProcessMessages;
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode <> STILL_ACTIVE) or
Application.Terminated;
ShowMessage('Calculator terminated');
end
else
ShowMessage('Error starting Calc!');
end;

[Stilet]

ты читал вообще

Читал не волнуйся. Я тоже могу такое написать с просьбой помочь в написании шеллкода.
Все это задание совершенно бесперспективное.

[Arigato]

Видимо, в задании речь шла не об использовании компонента TWebBrowser, а о запуске реального браузера и управления им.

[glGizma]

dmitriegorovih,

C:\Windows - можно заменить на:

//Получение папки Windows
function GetWinDir(): String;
var
  buffer: String;
  len: UINT;
begin
  SetLength(buffer, MAX_PATH + 1);
  len := GetWindowsDirectory(PAnsiChar(buffer), MAX_PATH);
  SetLength(buffer, len);
  GetWinDir := buffer;
end;