TXT редактор

[aesoem]

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

[Domovoy]

У меня такое впечатление что с реестром ты не плохо паработал а вот инфу с файла то небось загрузить то и забыл

[Air]

Просто твоя программма не знает о том, что нужно принимать данные.


Этот код использет метод Drag and Drop (или как там его...)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ShellApi;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
   procedure WMDROPFILES(var Message: TWMDROPFILES); message WM_DROPFILES;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Function DropFile(Mes: TWMDropFiles):String;
var
buffer:array[0..255] of char;
begin
Result:='';
DragQueryFile(Mes.Drop,0,nil,0);
DragQueryFile(Mes.Drop,0,@buffer,sizeof(buffer));
Result:=buffer;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
{Разрешаем форме принимать данные}
DragAcceptFiles(Form1.Handle, True);
end;

procedure TForm1.WMDROPFILES(var Message: TWMDROPFILES);
begin
memo1.Lines.LoadFromFile(DropFile(Message));
end;

end.

Текстовый файл переносишь на окно проги и в Memo он загружается.

[Air]

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

У меня такое впечатление что с реестром ты не плохо паработал а вот инфу с файла то небось загрузить то и забыл

А как Вы загрузите данные в программу, если она не готова к загрузке?

[Domovoy]

Чот не понял вопросика? Как это не готова?

[Air]

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

Чот не понял вопросика? Как это не готова?

Вот этот код, например даёт способность форме принимать данные:

DragAcceptFiles(Form1.Handle, True);

- Но как загрузить данные из файла при запуске проги?

[JTG]

Н-даа.... Вопрос-то не про перетаскивание файлов

Procedure TForm1.FormCreate(Sender: TObject);  
begin  
 If (ParamCount > 0) and (FileExists(ParamStr(1))) then
 Memo1.Lines.LoadFromFile(ParamStr(1));
end;

В реестре, соответственно,
HKEY_CLASSES_ROOT\txtfile\shell\ope n\command
путь_к_программе "%1"

[Domovoy]

Н-даа.... Вопрос-то не про перетаскивание файлов

Во во так и я про тоже......

[Air]

Перетаскивание файлов, тоже может пригодиться.

Во, хороший ответ. +1

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

Н-даа.... Вопрос-то не про перетаскивание файлов

Procedure TForm1.FormCreate(Sender: TObject);  
begin  
 If (ParamCount > 0) and (FileExists(ParamStr(1))) then
 Memo1.Lines.LoadFromFile(ParamStr(1));
end;

В реестре, соответственно,
HKEY_CLASSES_ROOT\txtfile\shell\ope n\command
путь_к_программе "%1"

[Air]

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

Во во так и я про тоже......

А-аха, а что ж Вы ни чего не предложили в ответ..?