这可能是一个简单的问题，但我什至不确定要搜索的术语，所以我不得不问。如果我的程序被固定到开始菜单，我希望我的程序在悬停时有一个菜单。我附上了一张屏幕截图，其中 windows powershell 说明了此功能，并提供了一个任务列表。
其他程序有时会使用它来列出最近打开的文件等。我确信这是足够标准的，某处有关于它的教程，有人会介意向我指出它，或者解释如何做到这一点吗？我希望使用什么语言不要太在意，但我精通Delphi、C++和C#。
最佳答案
您必须使用 ICustomDestinationList.AddUserTasks方法，它是 Taskbar Extensions 的一部分在 Windows 7 中引入。
试试这个示例控制台应用程序，运行代码并将应用程序的快捷方式移动到开始菜单。 (这只是一个示例片段，所以请记住为所有返回 HResult 值的方法的结果添加检查)
program ProjectTasks;
{$APPTYPE CONSOLE}
{$R *.res}
uses
SysUtils,
ActiveX,
windows,
ComObj,
ShlObj,
PropSys,
ObjectArray;
const
PKEY_TITLE : TPropertyKey = ( fmtID : '{F29F85E0-4FF9-1068-AB91-08002B27B3D9}'; pID : 2);
procedure CreateTaskList;
var
LCustomDestinationList : ICustomDestinationList;
pcMaxSlots : Cardinal;
ppv : IObjectArray;
poa : IObjectCollection;
LTask : IShellLink;
LPropertyStore : IPropertyStore;
LTitle : TPropVariant;
LTaskBarList : ITaskBarList;
LTaskBarList3 : ITaskBarList3;
hr : HRESULT;
begin
LTaskBarList := CreateComObject(CLSID_TaskBarList) as ITaskBarList;
hr := LTaskBarList.QueryInterface(IID_ITaskBarList3, LTaskBarList3);
if hr <> S_OK then exit;
LCustomDestinationList := CreateComObject(CLSID_DestinationList) as ICustomDestinationList;
LCustomDestinationList.BeginList(pcMaxSlots, IID_IObjectArray, ppv);
poa := CreateComObject(CLSID_EnumerableObjectCollection) as IObjectCollection;
LTask := CreateComObject(CLSID_ShellLink) as IShellLink;
LTask.SetPath(pChar(ParamStr(0))); //set the path to the exe
LTask.SetDescription('This is a description sample');
LTask.SetArguments(PChar('Bar'));
LTask.SetIconLocation(PChar('Shell32.dll'),1);
LPropertyStore := LTask as IPropertyStore;
LTitle.vt := VT_LPWSTR;
LTitle.pwszVal := PChar('This is the Task 1');
LPropertyStore.SetValue(PKEY_Title,LTitle);
LPropertyStore.Commit;
poa.AddObject(LTask);
LTask := CreateComObject(CLSID_ShellLink) as IShellLink;
LTask.SetPath(PChar(ParamStr(0))); //set the path to the exe
LTask.SetDescription('This is a description sample');
LTask.SetArguments(PChar('Foo'));
LTask.SetIconLocation(pChar('Shell32.dll'),1);
LPropertyStore := LTask as IPropertyStore;
LTitle.vt := VT_LPWSTR;
LTitle.pwszVal := pChar('This is the Task 2');
LPropertyStore.SetValue(PKEY_Title,LTitle);
LPropertyStore.Commit;
poa.AddObject(LTask);
LCustomDestinationList.AddUserTasks(poa as IObjectArray);
LCustomDestinationList.CommitList;
end;
begin
try
CoInitialize(nil);
try
CreateTaskList;
finally
CoUninitialize;
end;
except
on E:EOleException do
Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode]));
on E:Exception do
Writeln(E.Classname, ':', E.Message);
end;
Writeln('Press Enter to exit');
Readln;
end.
关于c# - 如何在我的程序的开始菜单中创建一个菜单？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/12849341/
我正在学习如何使用Nokogiri，根据这段代码我遇到了一些问题:require'rubygems'require'mechanize'post_agent=WWW::Mechanize.newpost_page=post_agent.get('http://www.vbulletin.org/forum/showthread.php?t=230708')puts"\nabsolutepathwithtbodygivesnil"putspost_page.parser.xpath('/html/body/div/div/div/div/div/table/tbody/tr/td/div
总的来说，我对ruby还比较陌生，我正在为我正在创建的对象编写一些rspec测试用例。许多测试用例都非常基础，我只是想确保正确填充和返回值。我想知道是否有办法使用循环结构来执行此操作。不必为我要测试的每个方法都设置一个assertEquals。例如:describeitem,"TestingtheItem"doit"willhaveanullvaluetostart"doitem=Item.new#HereIcoulddotheitem.name.shouldbe_nil#thenIcoulddoitem.category.shouldbe_nilendend但我想要一些方法来使用
出于纯粹的兴趣，我很好奇如何按顺序创建PI，而不是在过程结果之后生成数字，而是让数字在过程本身生成时显示。如果是这种情况，那么数字可以自行产生，我可以对以前看到的数字实现垃圾收集，从而创建一个无限系列。结果只是在Pi系列之后每秒生成一个数字。这是我通过互联网筛选的结果:这是流行的计算机友好算法，类机器算法:defarccot(x,unity)xpow=unity/xn=1sign=1sum=0loopdoterm=xpow/nbreakifterm==0sum+=sign*(xpow/n)xpow/=x*xn+=2sign=-signendsumenddefcalc_pi(digits
我需要在客户计算机上运行Ruby应用程序。通常需要几天才能完成(复制大备份文件)。问题是如果启用sleep，它会中断应用程序。否则，计算机将持续运行数周，直到我下次访问为止。有什么方法可以防止执行期间休眠并让Windows在执行后休眠吗？欢迎任何疯狂的想法;-) 最佳答案 Here建议使用SetThreadExecutionStateWinAPI函数，使应用程序能够通知系统它正在使用中，从而防止系统在应用程序运行时进入休眠状态或关闭显示。像这样的东西:require'Win32API'ES_AWAYMODE_REQUIRED=0x0
关闭。这个问题是opinion-based.它目前不接受答案。想要改进这个问题？更新问题，以便editingthispost可以用事实和引用来回答它.关闭4年前。Improvethisquestion我想在固定时间创建一系列低音和高音调的哔哔声。例如:在150毫秒时发出高音调的蜂鸣声在151毫秒时发出低音调的蜂鸣声200毫秒时发出低音调的蜂鸣声250毫秒的高音调蜂鸣声有没有办法在Ruby或Python中做到这一点？我真的不在乎输出编码是什么(.wav、.mp3、.ogg等等)，但我确实想创建一个输出文件。
给定这段代码defcreate@upgrades=User.update_all(["role=?","upgraded"],:id=>params[:upgrade])redirect_toadmin_upgrades_path,:notice=>"Successfullyupgradeduser."end我如何在该操作中实际验证它们是否已保存或未重定向到适当的页面和消息？ 最佳答案 在Rails3中，update_all不返回任何有意义的信息，除了已更新的记录数(这可能取决于您的DBMS是否返回该信息)。http://ar.ru
我在我的项目目录中完成了compasscreate.和compassinitrails。几个问题:我已将我的.sass文件放在public/stylesheets中。这是放置它们的正确位置吗？当我运行compasswatch时，它不会自动编译这些.sass文件。我必须手动指定文件:compasswatchpublic/stylesheets/myfile.sass等。如何让它自动运行？文件ie.css、print.css和screen.css已放在stylesheets/compiled。如何在编译后不让它们重新出现的情况下删除它们？我自己编译的.sass文件编译成compiled/t
我正在寻找执行以下操作的正确语法(在Perl、Shell或Ruby中):#variabletoaccessthedatalinesappendedasafileEND_OF_SCRIPT_MARKERrawdatastartshereanditcontinues. 最佳答案 Perl用__DATA__做这个:#!/usr/bin/perlusestrict;usewarnings;while(){print;}__DATA__Texttoprintgoeshere 关于ruby-如何将脚
如何在buildr项目中使用Ruby？我在很多不同的项目中使用过Ruby、JRuby、Java和Clojure。我目前正在使用我的标准Ruby开发一个模拟应用程序，我想尝试使用Clojure后端(我确实喜欢功能代码)以及JRubygui和测试套件。我还可以看到在未来的不同项目中使用Scala作为后端。我想我要为我的项目尝试一下buildr(http://buildr.apache.org/)，但我注意到buildr似乎没有设置为在项目中使用JRuby代码本身!这看起来有点傻，因为该工具旨在统一通用的JVM语言并且是在ruby中构建的。除了将输出的jar包含在一个独特的、仅限ruby
我正在使用的第三方API的文档状态:"[O]urAPIonlyacceptspaddedBase64encodedstrings."什么是“填充的Base64编码字符串”以及如何在Ruby中生成它们。下面的代码是我第一次尝试创建转换为Base64的JSON格式数据。xa=Base64.encode64(a.to_json) 最佳答案 他们说的padding其实就是Base64本身的一部分。它是末尾的“=”和“==”。Base64将3个字节的数据包编码为4个编码字符。所以如果你的输入数据有长度n和n%3=1=>"=="末尾用于填充n%