我刚刚开始学习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;
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
我在出库窗口写了个方法：ADOQueryBill 的bNum 字段的OnValidate方法 实现的是出库数量不能大于入库的数量，否则就重新输入数量，以下是我的代码：
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
