MSDN Library - Visual Studio 6.0
Visual Studio .NET Combined Help Collection
MSDN Library for Visual Studio 2005 CHS
我选择第一个,其实就是MSDN98,但是程序中的代码如下:
function TCnMsdnWizard.IsSelectOldMsdn(SelectedText: string): Boolean;
var
MsdnInfo: TCnMsdnInfo;
i: Integer;
begin
Result := False;
for i := 0 to FMsdnList.Count - 1 do
begin
MsdnInfo := TCnMsdnInfo(FMsdnList.Items);
if MsdnInfo.FCaption = SelectedText then
begin
// if AnsiContainsText(SelectedText, 'Visual Studio 6.0') and
// AnsiContainsText(SelectedText, SMsdnLibrary) then // Msdn 98
// begin
// Result := True;
// Break;
// end; 屏蔽的代码为自己加的,以解决这个问题。
if AnsiContainsText(SelectedText, '2000') and
AnsiContainsText(SelectedText, SMsdnLibrary) then // Msdn 2000
begin
Result := True;
Break;
end;
end;
end;
end;很显然,返回的是False,于是调用RunMsdnDotNet,就错了。
procedure TDExploreAppObj.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer; // <-------这句话发生了异常
ConnectEvents(punk);
Fintf:= punk as Help;
end;
end;