Unit1.pas
上传用户:newxcj
上传日期:2020-02-13
资源大小:12k
文件大小:2k
源码类别:

PlugIns编程

开发平台:

Delphi

  1. unit Unit1;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs,registry, StdCtrls, XPMan;
  6. type
  7.   TForm1 = class(TForm)
  8.     Button1: TButton;
  9.     Open: TOpenDialog;
  10.     Edit1: TEdit;
  11.     Edit2: TEdit;
  12.     Edit3: TEdit;
  13.     Edit4: TEdit;
  14.     Button2: TButton;
  15.     Label1: TLabel;
  16.     Label2: TLabel;
  17.     Label3: TLabel;
  18.     Label4: TLabel;
  19.     XPManifest1: TXPManifest;
  20.     procedure Button1Click(Sender: TObject);
  21.     procedure Button2Click(Sender: TObject);
  22.     procedure FormCreate(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28. var
  29.   Form1: TForm1;
  30. implementation
  31. {$R *.dfm}
  32. procedure Addbtn2IE(programpath,btntext,hicon,icon:string);
  33. const
  34. tagit='{10954c80-4F0F-11d3-B17C-00C0DFE39736}';
  35. var
  36. reg:tregistry;
  37. path1:string;
  38. merg:string;
  39. begin
  40. reg:=tregistry.Create;
  41. try
  42. with reg do
  43. begin
  44. rootkey:=HKEY_LOCAL_MACHINE;
  45. path1:='SoftwareMicrosoftInternet ExplorerExtensions';
  46. merg:=path1+tagit;
  47. openkey(merg,true);
  48. writestring('buttontext',btntext);
  49. writestring('MenuText','Tools Menu Item');
  50. writestring('MenuStatusBar','Run Script');
  51. writestring('Clsid','{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
  52. writestring('Default Visible','Yes');
  53. writestring('Exec',programpath);
  54. writestring('HotIcon',icon);
  55. writestring('Icon',hicon);
  56. end
  57. finally
  58. reg.CloseKey;
  59. reg.Free;
  60. end;
  61. end;
  62. procedure TForm1.Button1Click(Sender: TObject);
  63. begin
  64. if open.Execute then edit1.Text:=open.FileName;
  65. end;
  66. procedure TForm1.Button2Click(Sender: TObject);
  67. begin
  68.   if edit1.Text<>''  then  addbtn2IE(edit1.Text,edit2.Text,edit3.Text,edit4.Text)
  69.   else
  70.   showmessage('You must chose a file');
  71. end;
  72. procedure TForm1.FormCreate(Sender: TObject);
  73. begin
  74. edit1.Clear;
  75. edit2.Clear;
  76. edit3.Clear;
  77. edit4.Clear;
  78. end;
  79. end.