[Admin]

На основании этого примера можно сделать чтобы текстовые файлы открывались твоей программой, просто надо немного подправить реестр...

Код:

// Зарегистрировать новый тип файлов

uses
  Registry;
 
public
  { Public declarations }
  procedure RegisterFileType(ext: string; FileName: string);

// Описываем её так: 

procedure TForm1.RegisterFileType(ext: string; FileName: string);
var
  reg: TRegistry;
begin
  reg:=TRegistry.Create;
  with reg do
  begin
    RootKey:=HKEY_CLASSES_ROOT;
    OpenKey('.'+ext,True);
    WriteString('',ext+'file');
    CloseKey;
    CreateKey(ext+'file');
    OpenKey(ext+'file\DefaultIcon',True);
    WriteString('',FileName+',0');
    CloseKey;
    OpenKey(ext+'file\shell\open\command',True);
    WriteString('',FileName+' "%1"');
    CloseKey;
    Free;
  end;
end;

// Ну а по нажатию какого-нибудь батона регистрируем! 

procedure TForm1.Button1Click(Sender: TObject);
begin
  RegisterFileType('DelphiWorld', Application.ExeName);
end;