[=Student=]

Доброго времени суток, форумчане.
Появился вопрос про массовую печать всех html файлов в данной папке.
Полазил по инету. Вот что получилось:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl, OleCtrls, SHDocVw, ShellAPI, Buttons;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    WebBrowser1: TWebBrowser;
    procedure Button1Click(Sender: TObject);



    procedure WebBrowser1NavigateComplete2(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);

 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   i: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var sr:TSearchRec;
    Result:word;
        begin
    i:=0;

        ChDir(Edit1.Text);
        Result := FindFirst (Edit2.Text,faAnyFile,sr);
        Memo1.Clear;
        While result=0 do
    Begin
Result:=FindNext (sr);
Memo1.Lines.Add(sr.name) ;
WebBrowser1.Navigate(Edit1.Text+'\'+sr.Name);
While WebBrowser1.Busy do ;
i:=i+1;

    End;

ShowMessage('Ïîèñê çàêîí÷åí íàéäåíî '+IntToStr(i)+' ýëåìåíòîâ');

end;

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
Var
 vaIn, vaOut : OleVariant;
begin
WebBrowser1.ControlInterface.ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);

end;

end.

Но печатает всего 3-4 файла. Подскажите в чем ошибка.

[=Student=]

совсем никто не знает?

[PhoeniX]

Не успевает он печатать. Запускай иначе, не через TWebBrowser. Жмяк.