16,748
社区成员




var
Form1: TForm1;
hloopHandle:Thandle; //线程 句柄
ThreadID:DWORD ; //线程 id
procedure TForm1.FormCreate(Sender: TObject);
var
Handle:THandle;
begin
Handle:=LoadLibrary('doudi.dll');
GetHtml:=GetProcAddress(Handle,'GetSourceHtml');
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (Edit1.Text='') OR (Edit2.Text='') OR (Edit3.Text='') then
begin
MessageBox(self.Handle,'文本框不能为空!','错误',MB_OK);
end
else
begin
hloopHandle:=CreateThread(nil,0,@TForm1.useGetHtml,nil,0,ThreadID);
end;
end;