RSS订阅 | 匿名投稿
您的位置:网站首页 > 系统 > 正文

Delphi 把文件锁定到任务栏

作者:admin 来源: 日期:2014/1/24 22:50:41 人气: 标签:

uses ComObj;
   
procedure CrnPinAppToWin7Taskbar(strPath, strApp: string);
var
  vShell, vFolder, vFolderItem, vItemVerbs: Variant;
  vPath, vApp: Variant;
  i: Integer;
  str, strPinName: String;
begin
  vShell := CreateOleObject('Shell.Application');
  vPath := strPath;
  vFolder := vShell.NameSpace(vPath);
  vApp := strApp;
  vFolderItem := vFolder.ParseName(vApp);
  vItemVerbs := vFolderItem.Verbs;
   
  // 以下的PinName只适用于中文版的系统
  // 英文版的系统要用'Pin to Tas&kbar'
  // strPinName :='Pin to Tas&kbar';
  strPinName :='锁定到任务栏(&K)';
   
  for i :=1to vItemVerbs.Count do
  begin
    str := vItemVerbs.Item(i).Name;
   
    if SameText(str, strPinName) then
    begin
      //63637275 6E 2E 63 6F 6D
      vItemVerbs.Item(i).DoIt;
    end;
  end;
end;
   
procedure TForm1.Button1Click(Sender: TObject);
begin
  CrnPinAppToWin7Taskbar('C:\windows', 'regedit.exe');
end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: