Открытие файла с помощью программы

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, StdCtrls;
 
type
  TForm1 = class(TForm)
    btn1: TButton;
    mmo1: TMemo;
    procedure btn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 //My.exe -файл который будет запускаться
procedure TForm1.btn1Click(Sender: TObject);
var reg: tregistry;
 
begin
  reg:=tregistry.create; {создаём переменную класса}
  reg.rootkey:=hkey_classes_root; {определяем имя активного раздела}
  reg.openkey('txtfile\shell\MyNotepad',true); {Открываем ключ с расширением и редактируем}
  reg.writestring('','Открыть в Моем Блокноте'); {прописываем строку значения}
  reg.closekey; {закрываем активный ключ}
  reg.openkey('txtfile\shell\MyNotepad\command',true);// создаем ключ
  reg.writestring('',ExtractFilePath(Application.ExeName)+'My.exe "%1"');//записываем значение
  reg.closekey;
  reg.Free;
 
end;
 
procedure TForm1.FormShow(Sender: TObject);
var
 s, ss: string;
 
begin
 
 
s:=ansistrscan(windows.getcommandline,'"'); {перевод указателя на заданный символ в командной строке, а именно "}
SS:=ParamStr(1);
if FileExists(ss) then  Mmo1.Lines.LoadFromFile(SS);
 
end;
 
 
 
end.

s:=ansistrscan(windows.getcommandline,'"'); {перевод указателя на заданный символ в командной строке, а именно "}