有谁知道Jbuilder8中的Jdatastore的序列号 (200分)

humanc2d4 · 2002-12-02

关键是加图标，比如我在右键上加一个菜单为‘我的菜单’，怎样在‘我的菜单’ 前加一个图标。最好有源程序！[8D]

free_knight · 2002-12-02

只要修改一下注册表就行了， 你可以下载一个注册表的帮助就行了 http://download.pchome.net/php/dl.php?sid=11838

影 子 · 2002-12-02

free_knight · 2002-12-02

下载一个《注册表实用手册》

humanc2d4 · 2002-12-02

我写的程序如下： Contextmenuhandle.pas，将Form保存为 OpWindow.pas。 Contextmenu.dpr的程序清单如下： library contextmenu;     uses   ComServ,   contextmenuhandle in 'contextmenuhandle.pas',   opwindow in 'opwindow.pas' {Form2}; exports    DllGetClassObject,    DllCanUnloadNow,    DllRegisterServer,    DllUnregisterServer; {$R *.TLB} {$R *.RES} begin end.     Contextmenuhandle的程序清单如下： unit ContextMenuHandle; interface    uses Windows,ActiveX,ComObj,ShlObj,Classes; type    TContextMenu = class(TComObject,IShellExtInit,IContextMenu)    private       FFileName: array[0..MAX_PATH] of Char;    protected       function IShellExtInit.Initialize = SEIInitialize; // Avoid compiler warning       function SEIInitialize(pidlFolder: PItemIDList; lpdobj: IDataObject;                hKeyProgID: HKEY): HResult; stdcall;       function QueryContextMenu(Menu: HMENU; indexMenu, idCmdFirst, idCmdLast,                uFlags: UINT): HResult; stdcall;       function InvokeCommand(var lpici: TCMInvokeCommandInfo): HResult; stdcall;       function GetCommandString(idCmd, uType: UINT; pwReserved: PUINT;                pszName: LPSTR; cchMax: UINT): HResult; stdcall; end; const    Class_ContextMenu: TGUID = '{19741013-C829-11D1-8233-0020AF3E97A0}'; {全局唯一标识符(GUID)是一个16字节（128为）的值，它唯一地标识一个接口(interface)} var    FileList:TStringList; implementation uses ComServ, SysUtils, ShellApi, Registry,UnitForm; function TContextMenu.SEIInitialize(pidlFolder: PItemIDList; lpdobj: IDataObject;    hKeyProgID: HKEY): HResult; var    StgMedium: TStgMedium;    FormatEtc: TFormatEtc;    FileNumber,i:Integer; begin    file://如/果lpdobj等于Nil，则本调用失败    if (lpdobj = nil) then begin       Result := E_INVALIDARG;       Exit;    end;    file://首/先初始化并清空FileList以添加文件    FileList:=TStringList.Create;    FileList.Clear;    file://初/始化剪贴版格式文件    with FormatEtc do begin       cfFormat := CF_HDROP;       ptd := nil;       dwAspect := DVASPECT_CONTENT;       lindex := -1;       tymed := TYMED_HGLOBAL;    end;    Result := lpdobj.GetData(FormatEtc, StgMedium);    if Failed(Result) then Exit;    file://首/先查询用户选中的文件的个数    FileNumber := DragQueryFile(StgMedium.hGlobal,$FFFFFFFF,nil,0);    file://循/环读取，将所有用户选中的文件保存到FileList中    for i:=0 to FileNumber-1 do begin       DragQueryFile(StgMedium.hGlobal, i, FFileName, SizeOf(FFileName));       FileList.Add(FFileName);       Result := NOERROR;    end;    ReleaseStgMedium(StgMedium); end; function TContextMenu.QueryContextMenu(Menu: HMENU; indexMenu, idCmdFirst,    idCmdLast, uFlags: UINT): HResult; begin   Result := 0;   if ((uFlags and $0000000F) = CMF_NORMAL) or      ((uFlags and CMF_EXPLORE) <> 0) then begin     // 往Context Menu中加入一个菜单项 ,菜单项的标题为察看位图文件     InsertMenu(Menu, indexMenu, MF_STRING or MF_BYPOSITION, idCmdFirst,         PChar('文件操作'));     // 返回增加菜单项的个数     Result := 1;   end; end; function TContextMenu.InvokeCommand(var lpici: TCMInvokeCommandInfo): HResult; var   frmOP:TForm1; begin   // 首先确定该过程是被系统而不是被一个程序所调用   if (HiWord(Integer(lpici.lpVerb)) <> 0) then   begin      Result := E_FAIL;      Exit;   end;   // 确定传递的参数的有效性   if (LoWord(lpici.lpVerb) <> 0) then begin      Result := E_INVALIDARG;      Exit;   end;    file://建/立文件操作窗口   frmOP:=TForm1.Create(nil);   file://将/所有的文件列表添加到文件操作窗口的列表中   frmOP.ListBox1.Items := FileList;   Result := NOERROR; end; function TContextMenu.GetCommandString(idCmd, uType: UINT; pwReserved: PUINT;          pszName: LPSTR; cchMax: UINT): HRESULT; begin    if (idCmd = 0) then begin    if (uType = GCS_HELPTEXT) then       {返回该菜单项的帮助信息，此帮助信息将在用户把鼠标       移动到该菜单项时出现在状态条上。}       StrCopy(pszName, PChar('点击该菜单项将执行文件操作'));       Result := NOERROR;    end    else       Result := E_INVALIDARG; end; type    TContextMenuFactory = class(TComObjectFactory)    public    procedure UpdateRegistry(Register: Boolean); override; end; procedure TContextMenuFactory.UpdateRegistry(Register: Boolean); var    ClassID: string; begin    if Register then begin       inherited UpdateRegistry(Register);       ClassID := GUIDToString(Class_ContextMenu);       file://当/注册扩展库文件时，添加库到注册表中       CreateRegKey('*/shellex', '', '');       CreateRegKey('*/shellex/ContextMenuHandlers', '', '');       CreateRegKey('*/shellex/ContextMenuHandlers/FileOpreation', '', ClassID);     file://如/果操作系统为Windows NT的话       if (Win32Platform = VER_PLATFORM_WIN32_NT) then       with TRegistry.Create do       try          RootKey := HKEY_LOCAL_MACHINE;          OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Shell Extensions', True);          OpenKey('Approved', True);          WriteString(ClassID, 'Context Menu Shell Extension');       finally          Free;       end;    end    else begin       DeleteRegKey('*/shellex/ContextMenuHandlers/FileOpreation');       inherited UpdateRegistry(Register);    end; end;   initialization  TContextMenuFactory.Create(ComServer, TContextMenu, Class_ContextMenu,    '', 'Context Menu Shell Extension', ciMultiInstance,tmApartment); end.     在OpWindow窗口中加入一个TListBox控件和两个TButton控件，OpWindows.pas的程序清单如下： unit opwindow; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ExtCtrls, StdCtrls,shlobj,shellapi,ActiveX; type   TForm1 = class(TForm)     ListBox1: TListBox;     Button1: TButton;     Button2: TButton;     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     FileList:TStringList;     { Public declarations }   end; var    Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin   FileList:=TStringList.Create;   Button1.Caption :='复制文件';   Button2.Caption :='移动文件';   Self.Show; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   FileList.Free; end; procedure TForm1.Button1Click(Sender: TObject); var   sPath:string;   fsTemp:SHFILEOPSTRUCT;   i:integer; begin   sPath:=InputBox('文件操作','输入复制路径','c:/windows');   if sPath<>''then begin     fsTemp.Wnd := Self.Handle;     file://设/置文件操作类型     fsTemp.wFunc :=FO_COPY;     file://允/许执行撤消操作     fsTemp.fFlags :=FOF_ALLOWUNDO;     for i:=0 to ListBox1.Items.Count-1 do begin       file://源/文件全路径名       fsTemp.pFrom := PChar(ListBox1.Items.Strings);       file://要/复制到的路径       fsTemp.pTo := PChar(sPath);       fsTemp.lpszProgressTitle:='拷贝文件';       if SHFileOperation(fsTemp)<>0 then         ShowMessage('文件复制失败');     end;   end; end; procedure TForm1.Button2Click(Sender: TObject); var   sPath:string;   fsTemp:SHFILEOPSTRUCT;   i:integer; begin   sPath:=InputBox('文件操作','输入移动路径','c:/windows');   if sPath<>''then begin     fsTemp.Wnd := Self.Handle;     fsTemp.wFunc :=FO_MOVE;     fsTemp.fFlags :=FOF_ALLOWUNDO;     for i:=0 to ListBox1.Items.Count-1 do begin       fsTemp.pFrom := PChar(ListBox1.Items.Strings);       fsTemp.pTo := PChar(sPath);       fsTemp.lpszProgressTitle:='移动文件';       if SHFileOperation(fsTemp)<>0 then         ShowMessage('文件复制失败');     end;   end; end; end. 我在windows右键菜单中加'文件操作'关键是怎样加在文件操作前加图标，象winrar或winzip一样！

大梦 · 2002-12-04

如果你的机器上装有WINRAR,查看注册表中 HKEY_CLASSES_ROOT/* HKEY_CLASSES_ROOT/.RAR HKEY_CLASSES_ROOT/WINRAR/ 下的设置。 然后实用REGISTRY类实现协注册表。

smallsun007 · 2002-12-04

zhgnet · 2002-12-04

用popupmenu和imagelist实现 为imagelist添加多个图标， 将popupmenu的images属性设为imagelist 并为每个子菜单设置imageindex属性 这样就可以了

humanc2d4 · 2002-12-04

我做的是conentmenu也就是windows上下文菜单。 比如在windows桌面上有一个名为readme.txt文件，我在readme.txt文件上单击鼠标右键， 在windows鼠标右键的基础上加上了我的菜单项，单击我的菜单后会执行我的一段程序（ 比如：把readme.txt文件直接发送电子邮件）。其实就是我们常用的winzip或winrar工具。 我现在基本上快完成了，就是不知道怎样在我的菜单项上加入图片。

~风之彼端~ · 2002-12-04

我也想知道

死水 · 2002-12-04

太难了！[

]

zhgnet · 2002-12-04

呵呵，想的太简单了 关注

chinesetree · 2002-12-05

呵呵，关注~~ up

jsxjd · 2002-12-05

ModifyMenu(menuhandle,  ...  ,MF_BITMAP,....                               /////////

humanc2d4 · 2002-12-05

请jsxjd高手写详细一点，我将200分全部献上。我的邮件是humanyixiaobing@163.com

ligia · 2002-12-07

加菜单比较简单，但是加图标就不容易， 好像比较好的办法就是编一Dll,注册Com,Delphi Demos里有介绍。 WinZip,WinRar,金山毒霸等都是用的这种方法。

humanc2d4 · 2002-12-07

可我用的就是delphi+com,也就是delphi中demo中的例子。但例子中没有介绍加图标[?]

humanc2d4 · 2002-12-11

有人能给我解答吗？[

]

humanc2d4 · 2002-12-16

真的没人会吗？[

]

hubdog · 2002-12-16

我写的ShellExpress组件包可以帮助你添加图标到右键菜单上 http://hubdog.myrice.com

有谁知道Jbuilder8中的Jdatastore的序列号 (200分)

humanc2d4

Unregistered / Unconfirmed

free_knight

Unregistered / Unconfirmed

影 子

Unregistered / Unconfirmed

free_knight

Unregistered / Unconfirmed

humanc2d4

Unregistered / Unconfirmed

大梦

Unregistered / Unconfirmed

smallsun007

Unregistered / Unconfirmed

zhgnet

Unregistered / Unconfirmed

humanc2d4

Unregistered / Unconfirmed

~风之彼端~

Unregistered / Unconfirmed

死水

Unregistered / Unconfirmed

zhgnet

Unregistered / Unconfirmed

chinesetree

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

humanc2d4

Unregistered / Unconfirmed

ligia

Unregistered / Unconfirmed

humanc2d4

Unregistered / Unconfirmed

humanc2d4

Unregistered / Unconfirmed

humanc2d4

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

Similar threads

影子