mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Background context menu (with "New" submenu)

Browse source
This commit is contained in:
Alexander Koblov 2010-09-11 14:59:18 +00:00
commit a10427ca1d
1 changed files with 26 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

25
src/platform/win/ushellcontextmenu.pas
View file

@ -92,13 +92,38 @@ begin
CoTaskMemFree(List);
end;
Folder:= nil;
DesktopFolder:= nil;
end;
end;
function GetBackgroundContextMenu(Handle : THandle; Files : TFiles): IContextMenu;
var
DesktopFolder, Folder: IShellFolder;
wsFileName: WideString;
PathPIDL: PItemIDList = nil;
pchEaten: ULONG;
dwAttributes: ULONG;
begin
Result:= nil;
if Files.Count > 0 then
begin
wsFileName:= UTF8Decode(Files[0].FullPath);
OleCheckUTF8(SHGetDesktopFolder(DesktopFolder));
try
OleCheckUTF8(DesktopFolder.ParseDisplayName(Handle, nil, PWideChar(wsFileName), pchEaten, PathPIDL, dwAttributes));
try
OleCheckUTF8(DesktopFolder.BindToObject(PathPIDL, nil, IID_IShellFolder, Folder));
finally
CoTaskMemFree(PathPIDL);
end;
OleCheckUTF8(Folder.CreateViewObject(Handle, IID_IContextMenu, Result));
finally
Folder:= nil;
DesktopFolder:= nil;
end;
end;
end;
function GetShellContextMenu(Handle: THandle; Files: TFiles; Background: Boolean): IContextMenu; inline;