Вызов системного меню файла в ListView

[asmodey1]

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

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

Ну, тогда нужно было тему правильно назвать ! Например -
"Регистрация своего типа файлов и пункт в контекстном меню"

[ArtGrek]

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

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

кстати такое мне тоже встречалось, поже заиду поишу, t2skler ты б тоже попробывал

[t2skler]

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

Ну, тогда нужно было тему правильно назвать ! Например -
"Как добавить свой пункт в системное меню Windows"

Не не не, мне не нужно добавлять своё пункт. Мне нужно вывести просто тот который есть. Пример который дал ArtGrek показывает его без дополнительных полей. Т.е. например WinRAR добавляет свои пункты, например: Добавить в архив... Вот эти пункты у меня в примере ArtGrek не отображаются, а отображаются только стандартные: Открыть, Копировать, Переименовать и т.д.

[t2skler]

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

Не не не, мне не нужно добавлять своё пункт. Мне нужно вывести просто тот который есть. Пример который дал ArtGrek показывает его без дополнительных полей. Т.е. например WinRAR добавляет свои пункты, например: Добавить в архив... Вот эти пункты у меня в примере ArtGrek не отображаются, а отображаются только стандартные: Открыть, Копировать, Переименовать и т.д.

[ArtGrek]

кстати, если я не ошибаюсь когда гуглиш правельнее вводить контекстное меню, а не системное
или ето одно и тоже?

[asmodey1]

Общий подход к проблеме :

Регистрация своего типа файлов и пункт в контекстном меню

После регистрации расширения система будет открывать такие файлы с помощью указанной программы - т.е. передавать имя файла как параметр
и соответственно обработать имя файла можно с помощью ParamsCount + ParamStrКод

----- Регистрация своего типа файлов -----------
uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('.txt2' , True);
Reg.WriteString('', 'TXT2file');
Reg.CloseKey;
Reg.OpenKey('TXT2fileDefaultIcon', True);
Reg.WriteString('', Application.ExeName + ',0');
Reg.CloseKey;
Reg.OpenKey('TXT2fileshellopencomma nd', True);
Reg.WriteString('', Application.ExeName + ' "%1"');
Reg.CloseKey;
Reg.Free;
end;
------------------------------------------------
---------- Пункт в контекстном меню ------------
uses Registry;

procedure AddToContext(FileExt, text : string);
// FileExt - расширение типа файлов без точки вначале!
var R : TRegistry;
s : string;
begin
r := TRegistry.Create;
r.RootKey := HKEY_LOCAL_MACHINE;
r.OpenKey('SoftwareClasses',false);
if not (r.KeyExists('.'+FileExt)) then
begin
ShowMessage('Такой тип файлов не найден.');
Exit;
end
else
r.OpenKey('.'+FileExt,true);
s := r.ReadString('');
ShowMessage(s);
r.CloseKey;
r.OpenKey('SoftwareClasses',false);
r.OpenKey(s,true);
r.OpenKey('shell',true);
r.OpenKey('Crypt', true);
r.WriteString('',text)
r.OpenKey('command',true);
r.WriteString('',Application.ExeNam e + '"%1"');
r.CloseKey;
r.Free;
end;

З.Ы. Специально сделал в виде цитаты, а не кода, ибо задолбал уже тэг "код", размазывающий все по всей высоте экрана...