Jak zmusić pliki, aby otwierały się w istniejącej kopii programu

Co tydzień na forum pojawia się mniej więcej takie pytanie. Odpowiedź jest prosta i wymaga pogrzebania w helpie. Oto ona:

1. Piszesz procedurę rejestrująca rozszerzenie:

procedure Zarejestruj(Rozszerzenie, Sciezka: string);
var
  Reg: TRegistry;
  root: string;
begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_CLASSES_ROOT;
  Reg.OpenKey('.' + Rozszerzenie, True);
  Reg.WriteString('', Rozszerzenie + '_file');
  root:='' + Rozszerzenie + '_file\shell\open';
  Reg.OpenKey(root + '\command', true);
  Reg.WriteString('', sciezka);
  Reg.OpenKey(root + '\ddeexec', True);
  Reg.WriteString('', '[open(%1)]');
  Reg.OpenKey(root + '\ddeexec\Application', True);
  Reg.WriteString('', 'MojProgram');
  Reg.OpenKey(root + '\ddeexec\Topic', True);
  Reg.WriteString('', 'MojProgram'); 
  Reg.Free
end; 

1. Wstaw na formę komponent TDDEServerConv i nazwij go MojProgram (tak samo jak string, który wrzucałeś powyżej do rejestru).

2. Wrzuc TDDEServerItem i ustaw ServerConv na MojProgram.

3. Teraz zdarzenie MojProgram.OnExecuteMacro:

begin
  s:=Msg[0];
  if Pos('open', s) > 0 then begin
    s:=Copy(s, 7, Length(s) - 9);
    //teraz otwórz plik s
  end
end;