本文整理自网络，侵删。
需要在注册表中添加键值
在桌面右键菜单添加一个运行程序
需要在下面注册表路径中新建项，在该项右边的默认数值中填写程序的名字，再在项里面新建一个command项，右边的默认数值填入该程序路径。手动设置就这么简单。
HKEY_CLASSES_ROOT\directory\background\shell
下面列出用DELPHI实现的简单代码
新建一个添加和删除的按钮，在前面USES Registry
添加一个aaa.exe：
procedure TForm1.BtnMenuClick(Sender: TObject);
var
Reg : TRegistry;
GetSource : String;
begin
GetSource := Application.ExeName;
try
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_CLASSES_ROOT;
OpenKey('Directory\Background\shell\aaa', True);
Writestring('', '打开aaa程序');
OpenKey('Command', true);
Writestring('', GetSource);
Free;
ShowMessage( '注册表导入成功!');
end;
except
MessageDlg( '注册表导入失败!',mtError, [mbOK], 0 );
end;
end;
从注册表中删除
procedure TForm1.BtnDelClick(Sender: TObject);
var
Reg : TRegistry;
begin
try
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_CLASSES_ROOT;
DeleteKey('Directory\Background\shell\aaa'); //即使执行多次也不会对注册表造成影响
Free;
ShowMessage( '注册表删除成功!');
end;
except
MessageDlg( '注册表删除失败!',mtError, [mbOK], 0 );
end;
end;
相关阅读 >>
decodedate：从一个tdatetime变量中提取年、月、日数值
Delphi 分解时间 �cdecodedate、decodetime … decodedatetime …
更多相关阅读请进入《Delphi》频道 >>
