如何通过API来实现网页页面的下载?(50分)

如同我现在要下载http://www.sohu.com这个页面,如果用代码实现,不需要控件,谢谢

function GetWebPage(const Url: string):string;
var
Session,
HttpFile:HINTERNET;
szSizeBufferointer;
dwLengthSizeBufferWord;
dwReservedWord;
dwFileSizeWord;
dwBytesReadWord;
ContentsChar;
begin
Session:=InternetOpen('',0,niL,niL,0);
HttpFile:=InternetOpenUrl(Session,PChar(Url),niL,0,0,0);
dwLengthSizeBuffer:=1024;
HttpQueryInfo(HttpFile,5,szSizeBuffer,dwLengthSizeBuffer,dwReserved);
GetMem(Contents,dwFileSize);
InternetReadFile(HttpFile,Contents,dwFileSize,dwBytesRead);
InternetCloseHandle(HttpFile);
InternetCloseHandle(Session);
Result:=StrPas(Contents);
FreeMem(Contents);
end;

谢谢=￥0.00

你到以下地址去找找，可能找得到你需要的答案。
http://iinsnian.cnblogs.com/
这个地址里介绍了很多ＤＥＬＰＨＩ的技巧，不知道你的运气好不好。

谢谢各位!!