1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Applications\MyWriter.exe]

[HKEY_CLASSES_ROOT\Applications\MyWriter.exe\shell]

[HKEY_CLASSES_ROOT\Applications\MyWriter.exe\shell\open]

[HKEY_CLASSES_ROOT\Applications\MyWriter.exe\shell\open\command]
@="\"D:\\@_DELPHI\\@RADXE7\\_TESTS-14\\MEMO-1\\Win32\\Release\\MyWriter.exe\" \"%1\""					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.FormCreate(Sender: TObject);
var FN : String;
begin
memo1.Clear;
memo1.Modified:=false;
if ParamCount>0 then
BEGIN 
FN:= ParamStr(1);
if FileExists(FN) then memo1.Lines.LoadFromFile(FN);
caption:='Editor - Datei: ' + ExtractFileName(FN);
END;
end;