Текстовые компоненты

[romanzi]

Есть ли компонент в Дельфи который поддерживает txt???

Memo и Richedit не поддержуют.

Я в том смысле если, через свойство сделать программу основной, что бы текстовые документы открывались двумя кликами на неё.

[asmodey1]

Сообщение от romanzi

Memo и Richedit не поддержуют.
Я в том смысле если, через свойство сделать программу основной, что бы текстовые документы открывались двумя кликами на неё.

???
В смысле, чтобы заменить программу, в которой автоматически открываются текстовые файлы, на свою ?

[_SERGEYX_]

Вот, валяется кусок кода, в работе не проверял

Пример регистрирует расширение файла(.myext) - файлы этого типа будут открываться
приложением MyApp.Exe.Также регнстрируется одно действие(action)по умолчанию
для файлов этого типа и два дополнительных пункта контекстного меню, связанного с
этим типом файлов.Возможно, потребуется перезайти в систему чтобы изменения
вступили в силу.

uses
  Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  R: TRegIniFile;
begin
  R := TRegIniFile.Create('');
  with R do
  begin
    RootKey := HKEY_CLASSES_ROOT;
    WriteString('.myext', '', 'MyExt');
    WriteString('MyExt', '', 'Some description of MyExt files');
    WriteString('MyExt\DefaultIcon', '', 'C:\MyApp.Exe,0');
    WriteString('MyExt\Shell', '', 'This_Is_Our_Default_Action');
    WriteString('MyExt\Shell\First_Action',
      '', 'This is our first action');
    WriteString('MyExt\Shell\First_Action\command', '',
      'C:\MyApp.Exe /LotsOfParamaters %1');
    WriteString('MyExt\Shell\This_Is_Our_Default_Action', '',
      'This is our default action');
    WriteString('MyExt\Shell\This_Is_Our_Default_Action\command',
      '', 'C:\MyApp.Exe %1');
    WriteString('MyExt\Shell\Second_Action',
      '', 'This is our second action');
    WriteString('MyExt\Shell\Second_Action\command',
      '', 'C:\MyApp.Exe /TonsOfParameters %1');
    Free;
  end;
end;

//****************Или вот так проще

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;