freepascal.ru

Код: Выделить всё

unit srtretimer_reg;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Registry;
  
  function RegisterSelf: boolean;

implementation

  function RegisterSelf: boolean;
  var
    R: TRegistry;
    a, b: string;
  begin
    Result:=False;
    R:=TRegistry.Create;
    R.LazyWrite:=false;
    R.RootKey:=HKEY_CLASSES_ROOT;
    R.OpenKey('\.rrp', true);
    R.WriteString('','RipRetimerProject');
    R.OpenKey('\RipRetimerProject', true);
    R.WriteInteger('EditFlags', 0);
    R.WriteInteger('BrowserFlags', 8);
    R.WriteString('', 'Файл сценария RipRetimer');
    R.OpenKey('\RipRetimerProject\DefaultIcon', true);
    R.WriteString('', ExtractFilePath(ParamStr(0)) + 'ripretimer.ico,0');
    R.OpenKey('\RipRetimerProject\shell', true);
    R.WriteString('','open');
    R.OpenKey('\RipRetimerProject\shell\open\command', true);
    a:='"' + ParamStr(0) + '" "%1"';
    if R.ValueExists('') then  b:=R.ReadString('') else b:='';
    if b = a
      then Result:=True
      else R.WriteString('', a);
    R.Free;
  end;
end.