关于汉化菜单的问题

现在遇到下面的问题
   一:现在我要开两个程序,一个是汉化的程序,一个是目标程序.这两个怎么合在一起啊,就是源程序起动是就完成汉化.
   二:只有打开过的菜单,才可以汉化.二级菜单没有打开过就不能汉化
procedure TNameMain.Button1Click(Sender: TObject);
var
  Caption: array[0..255] of char;
start1,start2,start3,start4,start5:integer;
begin
//通过标题获得窗口句柄
wndhandle:=findwindow(nil,mystr);
//通过标题获得菜单句柄
mainmenu:=getmenu(wndhandle);
//取得顶行菜单数
mainnum:=getmenuitemcount(mainmenu);
//汉化菜单
for start1:=0 to mainnum do
begin
mm5:='';
//取得菜单项的标题
childmenu:=getsubmenu(mainmenu,start1); //子菜单句柄
Childnum:=getmenuitemcount(childmenu);  //子菜单数量
for start2:=0 to childnum do
begin
getmenustring(childmenu,start2,@Caption,254,MF_BYPOSITION);
mm6:=string(Caption);
mm5:='asg';
start5:=getmenuitemid(childmenu,start2);
modifymenu(childmenu,start2,MF_BYPOSITION,start5,pchar(mm5));
end;
mm5:='';
getmenustring(mainmenu,start1,@Caption,254,MF_BYPOSITION);
mm6:=string(Caption);
mm5:='123456';
start3:=getmenuitemid(mainmenu,start1);
modifymenu(mainmenu,start1,MF_BYPOSITION,start3,pchar(mm5));
end;
代码如上