怎样控制系统菜单/(100分)

例如象右击文件可以看到add to zip ;download by netarts

procedure TForm1.FormCreate(Sender: TObject);
var
; filepath:string;
begin
; filepath:=application.ExeName;
; Setregstring(HKEY_CLASSES_ROOT,'*/shell/filecut' ,'','文件分割机');
; Setregstring(HKEY_CLASSES_ROOT,'*/shell/filecut/command' ,'',filepath);
; form2:=Tform2.Create (nil);
; form3:=Tform3.Create (nil);
; form3.ClientHeight:=0;
; form2.Parent :=panel1;
; //form2.Align :=alLeft;
; form2.top:=0;
; form2.Left :=0;
; form2.Height:=panel1.Height-form3.Height;
; form2.Show;

; form3.Parent :=panel1;
; //form2.Align :=alLeft;
;
; //form3.Height:=self.ClientHeight-form2.Height;
; form3.top:=form2.Height;
; form3.Left :=0;
; //form2.ClientHeight:=0;
; form3.Show ;
end;
function Setregstring(rootkey: hkey; section ,key,value:string):boolean;
var
; MyReg: TRegistry;
begin
; result:=false;
; MyReg := TRegistry.Create;
; if MyReg <> nil then
; begin
; ; MyReg.RootKey := RootKey;
; ; if myreg.OpenKey(Section,true) then
; ; ; begin
; ; ; ; ;myreg.WriteString (key,value);
; ; ; ; ;result:=true;
; ; ; end;
; end;
; myreg.CloseKey ;
; myreg.Free ;
end;

[red]同意楼上！[/red][]

多人接受答案了。