Браузер

[CHERT]

Завтра сдавать курсовик, а пока еще не готово:

- многостраничность

- вызов "свойств обозревателя" - ГОТОВО

- какой-нибудь показатель загрузки страниц - ГОТОВО

- диспетчер паролей - изменено, ГОТОВО

- сохранение страницы в .doc

Помогите, пожалуйста!

[pu4koff]

по поводу сохранения в doc файл: CreateOleObject('Word.Application') , открываешь html и сохраняешь как doc

[CHERT]

как узнать, куда юзер сохраняет файл???

[pu4koff]

а как ты позволяешь ему его сохранять?

[CHERT]

// ñîõðàíåíèå ñòðàíèöû
procedure TForm1.N2Click(Sender: TObject);
begin
try
WebBrowser1.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER);
except
end;
end;

[pu4koff]

ну ищи в нете тогда как это перехватить

[CHERT]

Вот какой вопрос возник...

uses
ShellAPI, Registry;

procedure OpenURL(Url: string);
var
ts: string;
begin
with TRegistry.Create do
try
rootkey := HKEY_CLASSES_ROOT;
OpenKey('\htmlfile\shell\open\comma nd', False);
try
ts := ReadString('');
except
ts := '';
end;
CloseKey;
finally
Free;
end;
if ts = '' then Exit;
// remove quotes and commandline parameters
ts := Copy(ts, Pos('"', ts) + 1, Length(ts));
ts := Copy(ts, 1, Pos('"', ts) - 1);
ShellExecute(0, 'open', PChar(ts), PChar(url), nil, SW_SHOW);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenURL('http://www.SwissDelphiCenter.ch');
end;

Если этот кусок и открывает что-то в новом окне, то как мне на него переключиться?
Или многостраничность можно сделать иначе? Как перекрыть открывание в новом окне посредством ИЕ и переставить на свой браузер?