unit
Unit1;
interface
uses
Winapi
.
Windows, Winapi
.
Messages, System
.
SysUtils, System
.
Variants, System
.
Classes, Vcl
.
Graphics,
Vcl
.
Controls, Vcl
.
Forms, Vcl
.
Dialogs, Vcl
.
StdCtrls;
type
TForm1 =
class
(TForm)
Memo1: TMemo;
ListBox1: TListBox;
procedure
ListBox1DblClick(Sender: TObject);
private
public
end
;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses
uThreadLoader;
procedure
TForm1
.
ListBox1DblClick(Sender: TObject);
var
ThreadLdr: TLoader; HtmlCode:
string
;
begin
ThreadLdr:=Tloader
.
Create(
True
);
ThreadLdr
.
Priority:=tpNormal;
ThreadLdr
.
FreeOnTerminate:=
True
;
ThreadLdr
.
Resume;
ThreadLdr
.
Url:=ListBox1
.
Items[ListBox1
.
ItemIndex];
HtmlCode:=ThreadLdr
.
Html;
Memo1
.
Lines
.
Add(HtmlCode);
end
;
end
.