|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Массовая печать html
Доброго времени суток, форумчане.
Появился вопрос про массовую печать всех 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. |
#2
|
|||
|
|||
совсем никто не знает?
|