[balrog]

Люди, подскажите, если кто знает как открывать например текстовые файлы через созданный мною редактор. Т. е. в винде открываем файл и он открывается через мой редактор, т.е. весь его текст загружается в мемо моей программы. Как? Наверное WinAPI... но у меня с ним плохо...
Как поставить для открытия текстоых файлов мою погу я знаю, но только она просто откроется и мемо будет пустым..., а мне нужно весь текст загрузить в него. Иначе говоря открываем текстовый файл и он отображается в мемо моего редактора...??? Как???

[Admin]

Memo1.Lines.LoadFromFile('xxx.txt');

[balrog]

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

Memo1.Lines.LoadFromFile('xxx.txt');

Это да, если файл выбрать через оупендиалог или указанием конкретного файла как в вашем примере, если программа уже загружена, а мне нужно: мой редактор не открыт, я в проводнике винды кликаю на любой текстовый файл и .... - запускается моя прога(редактор) и текст файла уже загружен в мемо...То есть моя прога вместо например блокнота. Ведь когда в проводнике запускаешь *.txt файлы открывается блокнот, а внём - содержимое файла, который мы запускали... Надеюсь теперь понятно чего я хочу добиться? ) Все равно Спасибо за ответ. Знаете как это сделать?

[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;

[Keygenmusic]

2 Admin: А дальше?

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists(ParamStr(1)) then
 Memo1.Lines.LoadFromFile(ParamStr(1));
end;

ф-ция ParamStr(х) берёт х-ый параметр командной строки. 0-й параметр это сам файл, который является прогой.