Мне нужно сделать пункт в системном меню Windows и обрабатывать его - точнее чтобы по нему щёлкали и файлы с мои расширением открывались в Memo(т.е. мне надо сделать меню как у Winrar'а )и путь к тому файлу сразу же записывался в Edit?????????
Если нужно - мой ящик [email protected]

uses ..., registry;

const my_ext = 'abc';
my_ind = 'abc_file';
var reg:tregistry;

function register_ext:boolean;
begin
result:=false;
Reg:=Tregistry.create;
try
Reg.rootkey:=Windows.HKEY_CLASSES_ROOT;
Reg.OpenKey('\'+my_ext +'\',true);
Reg.writestring('',my_ind);
Reg.free;
Reg:=Tregistry.create;
Reg.rootkey:=Windows.HKEY_CLASSES_ROOT;
Reg.OpenKey('\'+my_ind+'\',true);
Reg.OpenKey('\'+my_ind+'\DefaultIcon',true);
Reg.writestring('',Application.Exename+',1');
Reg.OpenKey('\'+my_ind+'\Shell\Open\Command',true);
Reg.writestring('','"'+Application.Exename+'" "%1"');
Result:=true;
except
end;
Reg.free;
end;

procedure tform1formcreate(sender:TObject);
begin
if not register_ext then showmessage('Не могу зарегистрировать расширение!');
if fileexists(paramstr(1)) then
begin
edit1.text:=paramstr(1); //выводим путь к файлу
memo1.Lines.LoadFromFile(paramstr(1)); //открываем файл
end
end;

P.S. Это если файлы текстового формата, иначе вместо
memo1.Lines.LoadFromFile
придётся писать что-нибудь своё, что зависит от конкретной задачи.

GetSystemMenu + AppendMenu + WM_SYSCOMMAND
Добавлено @ 16:08
Ой, ошибся - подумал для системного меню окна

Как добавить свой пункт меню в проводнике?

Код

function AddMenuItem(ConnType: TconnType; MenuText, StatusBarText,  GuidOrPath: string; HelpMenu: Boolean): string; var  GUID: TGUID;  ID: string;  Reg: TRegistry; begin  CreateGuid(GUID);  ID := GuidToString(GUID);  Reg := TRegistry.Create;  with Reg do  begin    RootKey := HKEY_LOCAL_MACHINE;    OpenKey('\Software\Microsoft\Internet Explorer\Extensions\'      + ID, True);    if HelpMenu then      WriteString('MenuCostumize', 'help');    WriteString('CLSID', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');    WriteString('MenuText', MenuText);    WriteString('MenuStatusBar', StatusBarText);    case ConnType of      EXECUTABLE: WriteString('Exec', GuidOrPath);      COM_OBJECT: WriteString('ClsidExtension', GuidOrPath);      SCRIPT: WriteString('Script', GuidOrPath);    end;    CloseKey;    OpenKey('\Software\IE5Tools\Menu Items\', True);    WriteString(MenuText, ID);    CloseKey;    Free;  end;  Result := ID; end;