摘要：
function TForm1.CheckUrl(url: string):Boolean;var hSession, hfile, hRequest: HINTERNET; dwindex, dwcodelen: dword; dwcode: array[1..20] of Char; res: PChar;begin Result := false; if Pos('http://',Lowe... 阅读全文
posted @ 2007-01-10 09:20
nick.yan
阅读(1422)
评论(0)
推荐(0)