我刚刚开始学习delphi
按照教学习时照着做了个 动态创建菜单例子
可是运行的时候出现 unable to create process：拒绝访问。
这是怎么回事？？
我运行别的程序都没问题
只有这个是这样
而且瑞星还把他当做了病毒
大家帮下
代码如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
file1: TMenuItem;
procedure FormCreate(Sender:TObject);
private
procedure MothClick(Sender:TObject);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
PullDownOutput:TMenuItem;
Item:TMenuItem;
i:integer;
SelfPosition:integer;
begin
PullDownOutput:=TMenuItem.Create(self);
PullDownOutput.Caption:='月份';
SelfPosition:=MainMenu1.Items.IndexOf(file1);
MainMenu1.Items.Insert(SelfPosition+1,PullDownOutput);
for i:=1 to 12 do
begin
Item:=TMenuItem.Create(self);
Item.Caption:=IntToStr(i)+'月份';
Item.GroupIndex:=1;
Item.RadioItem:=true;
Item.onClick:=MothClick;
PullDownOutput.Insert(PullDownOutput.Count,Item);
end;
