心动吧DELPHI网络书

  下载的时候最好不要用迅雷,要不然很容易断线.

  提供多个控件下载:

function FindProcessId(ExeFileName: string):THandle;//查找线程

var

  ContinueLoop:BOOL;

  FSnapshotHandle:THandle;

  FProcessEntry32:TProcessEntry32;

begin

  result:=0;

  FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);

  FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);

  ContinueLoop:=Process32First

....