初学线程的问题请各位都来指点一下。

[cdsun]

MyStream:=TMemoryStream.Create;
try

IdHTTP1.Get('http://geis.onlinedown.net/down/98wb.exe',MyStream);

except//INDY控件一般要使用这种try..except结构.
Application.MessageBox('网络出错未能下载完成！', '系统提示', MB_OK + MB_ICONERROR);
MyStream.Free;
Exit;
end;
filepath:=ExtractFilePath(ParamStr(0));
MyStream.SaveToFile(filepath+'\DownLoadFiles\98wb.exe');
MyStream.Free;
Application.MessageBox('下载完成！','系统提示',0);



这里是我一个下载的代码，请问怎么能把这些代码放在一个线程里面去执行。

希望各位不吝赐教

[cdsun]

希望能给一个小例子

在线等待

希望大家都来帮帮忙阿

[qxhou]

关注此贴,我也在找这个答案

[todouwang]

BeginThread()

[cdsun]

有没有人啊？

关注这个问题的朋友帮忙顶阿

[cdsun]

BeginThread()
是什么意思？
我没看懂能不能说的具体点

[cdsun]

这里就没有人说话吗？
还是现在用delphi的人非常少了

[noelse520]

我是冰水混合物

[卡卡西]

unit Unit_FrmMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms;

type
TMyThread = class(TThread)
private
procedure DW;
protected
procedure Execute; override;
end;

TFrmMain = class(TForm)
MainMenu1: TMainMenu;
...
var
FrmMain: TFrmMain;

implementation
...
...

{ TInitThread }

procedure TMyThread.DW;
begin
MyStream:=TMemoryStream.Create;
try

IdHTTP1.Get('http://geis.onlinedown.net/down/98wb.exe',MyStream);

except//INDY控件一般要使用这种try..except结构.
Application.MessageBox('网络出错未能下载完成！', '系统提示', MB_OK + MB_ICONERROR);
MyStream.Free;
Exit;
end;
filepath:=ExtractFilePath(ParamStr(0));
MyStream.SaveToFile(filepath+'\DownLoadFiles\98wb.exe');
MyStream.Free;
Application.MessageBox('下载完成！','系统提示',0);
end;


procedure TInitThread.Execute;
begin
FreeOnTermiNate:=True;
Synchronize(DW);
end;

...
end.