제발 도움좀 주세요...
..
정말 급해서 그러는데..지금까지 계속 질문을 남겼지만
답변이 하나도 없어서 그러는데요..
..
제발 부탁좀 드리겠습니다...

var
  G: TGUID;
  UID: string;
  Reg: TRegistry;
begin
  CoCreateGuid(G);
  UID := GuidToString(G);
  Reg := TRegistry.Create;
  with Reg do begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('\Software\Microsoft\Internet Explorer\Extensions\' + UID, True);
    if HelpMenu then WriteString('MenuCostumize', 'help');
    WriteString('CLSID', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
    WriteString('MenuText', MenuText);
    WriteString('MenuStatusBar', StatusBarText);
    case ConnType of
      COM_OBJECT: WriteString('ClsidExtension', GuidOrPath);
      SCRIPT: WriteString('Script', GuidOrPath);
      EXECUTABLE: WriteString('Exec', GuidOrPath);
    end;
    CloseKey;
    OpenKey('\Software\IE5Tools\Menu Items\', True);
    WriteString(MenuText, UID);
    CloseKey;
    Free;
  end;
  Result := UID;
end;