procedure TResExplrForm.FormCreate(Sender: TObject);
var
ABaseNodeID: Integer;
begin
if ParamCount < 1 then
begin
ShowMessage('请从主控台启动该程序!');
Application.Terminate;
end;
if ParamStr(2) = 'R' then DisEnableMenu;
ABaseNodeID := -1;
try
ABaseNodeID := StrToInt(ParamStr(1));
except
ShowMessage('根节点ID不是合法整数值,程序将被终止!');
Application.Terminate;
end;
with FResHandle do
begin
try
AddFirstNode(tvMain, ABaseNodeID);
RefreshChildClsNode(tvMain, tvMain.Items[0]);
DrawLVData(tvMain.Items[0], lvMain);
except
ShowMessage('传入根节点ID非法,程序将被终止!');
Application.Terminate;
end;
end;
end;