本文整理自网络，侵删。
uses Registry;
function RegisterFileTypeCommand(fileExtension, menuItemText, target: string) : boolean;
var
reg: TRegistry;
fileType: string;
begin
result := false;
reg := TRegistry.Create;
with reg do
try
RootKey := HKEY_CLASSES_ROOT;
if OpenKey('.' + fileExtension, True) then
begin
fileType := ReadString('') ;
if fileType = '' then
begin
fileType := fileExtension + 'file';
WriteString('', fileType) ;
end;
CloseKey;
if OpenKey(fileType + '/shell/' + menuItemText + '/command', True) then
begin
WriteString('', target + ' "%1"') ;
CloseKey;
result := true;
end;
end;
finally
Free;
end;
end;
function UnRegisterFileTypeCommand(fileExtension, menuItemText: string) : boolean;
var
reg: TRegistry;
fileType: string;
begin
result := false;
reg := TRegistry.Create;
with reg do
try
RootKey := HKEY_CLASSES_ROOT;
if OpenKey('.' + fileExtension, True) then
begin
fileType := ReadString('') ;
CloseKey;
end;
if OpenKey(fileType + '/shell', True) then
begin
DeleteKey(menuItemText) ;
CloseKey;
result := true;
end;
finally
Free;
end;
end;
相关阅读 >>
Delphi 检查字符串是不是 包含 中文和获取中文字符个数
Delphi runasadmin 运行程序并申请管理员权限
Delphi xe更改ttrayicon系统任务栏图标（无模糊）
Delphi 任务栏显示进度条 createcomobject(clsid_taskbarlist) as itaskbarlist4
Delphi setwindowshookex - 设置钩子 unhookwindowshookex - 卸掉钩子
Delphi下cpu getcpuid实现（x86和x64）
更多相关阅读请进入《Delphi》频道 >>
