Integracija s SHELL

← →
AdMiRaL (2003-06-22 20:55) [0]

Kak dobavit v kotekstonje menu Provodnika svoij punkt?

← →
Spawn © (2003-06-23 06:56) [1]

Попробуй так

var
PFile:IPersistFile;
WFileName:WideString;
Reg:TRegIniFile;

begin
PFile:=CreateComObject(CLSID_ShellLink) as IPersistFile;
try
Reg:=TRegIniFile.Create("Software\MicroSoft\Windows\CurrentVersion\Explorer");
WFileName:=Reg.ReadString("Shell Folders","Start Menu", "")+"\"+FileName+".ink";
finally
Reg.Free;
end;
PFile.Save(PWChar(WFileName),False);
end;

Блин что то я не так вопрос сначала понял)) в контекстное меню можно добаваить пункт таким способом:

AppendMenu(GetSystemMenu(Handle,False),MF_POPUP, MenuHandle, MenuCaption);

Integracija s SHELL Найти похожие ветки