atxshellextension.pas

支持版本:Delphi 5-2009, C++Builder 5-2009 ATViewer特性： Text, Binary, Hex, Unicode：所有文件

unit ATxShellExtension;

interface

function ApplyShellExtension(AEnable: boolean): boolean;
function IsShellExtensionEnabled: boolean;


implementation

uses
  Windows, ATxSProc, ATxParamStr, ATxRegistry;

const
  RegKey0 = '*\shell\Universal Viewer';
  RegKey1 = RegKey0 + '\command';


function ShellValue: WideString;
begin
  Result:= SFormatW('"%s" "%1"', [SParamExe]);
end;

function ApplyShellExtension(AEnable: boolean): boolean;
begin
  if AEnable then
    begin
    Result:= SetRegKeyStr(HKEY_CLASSES_ROOT, RegKey1, '', ShellValue);
    end
  else
    begin
    Result:=
      (RegDeleteKey(HKEY_CLASSES_ROOT, RegKey1) = ERROR_SUCCESS) and
      (RegDeleteKey(HKEY_CLASSES_ROOT, RegKey0) = ERROR_SUCCESS);
    end;
end;

function IsShellExtensionEnabled: boolean;
begin
  Result:= SCompareIW(
    GetRegKeyStr(HKEY_CLASSES_ROOT, RegKey1, '', ''),
    ShellValue
    ) = 0;
end;


end.