DocumentComplete при помощи ExexWB(OLECMDID_SAVE, OLECMDEXECOPT_DONTPROMPTUSER)

[Roamer]

не дайте умереть! ведь спать не смогу если не узнаю.

есть компонент TWebBrowser.
Navigate происходит по адресам из списка, по очереди.
при попытке сохранения содержимого после DocumentComplete при помощи ExecWB(OLECMDID_SAVE, OLECMDEXECOPT_DONTPROMPTUSER)
компонент похоже что вообще никуда ничего не созраняет.

если же поставить иначе - например SAVEAS и PROMPTUSER
появляется стандартный диалог.

мне он не нужен. надо чтобы программка автоматом сохраняла страницу и рисунки на ней в указанное место.

Что можно посоветовать бестолковому вроде меня?

[Alex21]

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

Что можно посоветовать бестолковому вроде меня?

Привести ваш код.

[Roamer]

unit Copier_;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, ComCtrls, ToolWin;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
ToolBar1: TToolBar;
Button1: TButton;
procedure FormShow(Sender: TObject);
procedure WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Navigate;
procedure Button1Click(Sender: TObject);
private
i:integer;
str:Tstringlist;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Navigate;
begin
webbrowser1.Navigate(str[i]);
end;
procedure TForm1.FormShow(Sender: TObject);
begin
i:=0;
str:=Tstringlist.Create;
str.loadfromfile('urls.txt');
end;
procedure TForm1.WebBrowser1DocumentComplete( Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var Pt: TPoint;
begin
WebBrowser1.ExecWB(4,0);

I:=I+1;
navigate;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
str.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
navigate;
end;
end.

[Alar]

Roamer, подскажи где в коде указание на папку для сохранения?