如何通过修改注册表，用右键菜单让程序调用文件

[cuiang]

像WINZIP、WINRAR一样，点击文件夹、文件（包括特定文件各有不同效果）
就是在文件夹中点右键，会出现压缩文件夹（包括盘符的根目录）
在普通文件中点击右键，会出现压缩文件
在特定文件中点击右键，会出现解压文件等等

[angelface]

这个不是简单修改注册表的问题， 这个应该是com的问题， 你找delphi com深入编程， 那里有详解！

[cuiang]

不能通过注册表改吗?
我成功通过修改注册表把程序加到所有文件夹和文件中了
只不过不能单独对文件夹或文件操作罢了

[cuiang]

up

[oystergj]

HKEY_CLASSES_ROOT\*\shell\
下可以关联应用程序

[cuiang]

再UP

[cuiang]

怎么没人答啊?

[cuiang]

继续UP

[gemouzhi]

就是改注册表 具体的你再搜搜,要是.exe执行的话,你需要res………………忘了,呵呵不好意思,你再搜搜

[huanyi]

up

[jaspcloud]

以鼠标右键添加"用记事本打开"为例

先在USES下加上 Registry

添加个 Button1

procedure TForm1.Button1Click(Sender: TObject);
var
Reg : TRegistry;
Notepad : String;
begin
Notepad:='notepad.exe "%1"';
try
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_CLASSES_ROOT;
OpenKey('*\shell\Notepad', True);
Writestring('', '用记事本打开');
OpenKey('Command', true);
Writestring('', Notepad);
Free;
ShowMessage( '注册表导入成功!');
end;
except
MessageDlg( '注册表导入失败!',mtError, [mbOK], 0 );
end;
end;

[cuiang]

谢谢楼上的,但我搜不到啊,这个问题我问了很久啦~~~不过还是没人答我,苦啊....