函数IsValidURL
记得Uses UrlMon;
//在Delphi5目录的Source\Rtl\Win底下
把改单元URLMON包含即可。//知道该怎么包含吧?
{$EXTERNALSYM IsValidURL}
function IsValidURL(pBC: IBindCtx; szURL: LPCWSTR; dwReserved: DWORD): HResult; stdcall;
这边pdc设为nil即可。
记得Uses UrlMon;
//在Delphi5目录的Source\Rtl\Win底下
把改单元URLMON包含即可。//知道该怎么包含吧?
{$EXTERNALSYM IsValidURL}
function IsValidURL(pBC: IBindCtx; szURL: LPCWSTR; dwReserved: DWORD): HResult; stdcall;
这边pdc设为nil即可。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货