My icon in Toolbar Internet Explorer

[delphi77]

درود بر همه شما جویندگان دانش
از توجه شما نسبت به این موضوع سپاس گزارم

چناچه علاقه باشیم که بر روی نوار ابزار (همان جایی که دکمه های Back و Forward وجود دارند) برنامه Internet Explorer دکمه های سفارشی ایجاد کنیم به طوریکه کلیک بر آن دکمه موجب اجرا شدن برنامه دلخواه ما گردد از روشی باید استفاده نمود؟
این سوال حتما پر طرفدار و جنجالی خواهد بود!!!!
اینجانب روش دستی آن را در زیر آورده ام:
۱) در قسمت ...Run از منوی Start عبارت gpedit.msc را وارد کنید
۲) در پنجره Group poicy بر روی User Configuration کلیک کنید تا باز شود
۳) Windows Settings را باز کنید
۴) Internet Explorer Maintenance را باز کنید
۵) حال در سمت راست پنجره Group Policy بر روی عبارت Browser Tolbar Customizations دابل کلیک کنید
۶) در پایین پنجره ظاهر شده بر روی دکمه ...Add کلیک کنید
۷) در فیلد اول نام دکمه در دومی آدرس فایل اجرایی مورد نظر در سومی آدرس آیکونی رنگی و در چهارمی آدرس آیکونی سیاه و سفید را قرار دهید
۸) پنجره Group Policy را ببندید و با اجرای Internet Explorer نتیجه کار را ملاحظه کنید
------------------------------------------------------------------------------------------------
من تاج نمی خواهم من تخت نمی خواهم
در خدمتت افتادن بر روی زمین خواهم

[_alish_]

این سوال حتما پر طرفدار و جنجالی خواهد بود!!!!



procedure CreateIEButton(Path: string);
const
ClsID = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
var
Reg: TRegistry;
Path1: string;
MrgPC: string;
begin
//Path := 'c:\aaa\';
Reg := TRegistry.Create;
try
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
Path1 := 'Software\Microsoft\Internet Explorer\Extensions';
MrgPC := Path1 + ClsID;
OpenKey(MrgPC, True);
WriteString('ButtonText', 'ButtonToolbar Test'); //í˜ hint
WriteString('MenuText', 'Tools Menu Item Test'); //˜Ôä ãäæí Tools
WriteString('MenuStatusBar', 'Run Script'); // Script ˜å ãÇ ÏÑ ÇíäÌÇ ÇÓÊÝÇÏå äãí ˜äíã
WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}'); //ClassId
WriteString('Default Visible', 'Yes'); // äãÇíÔ ÏÇÏå ÔæÏ
WriteString('Exec', Path ); // ãÓíÑ ÈÑäÇãå
WriteString('HotIcon', ',4'); // Hot Icon
WriteString('Icon', ',4'); // Desable Icon
end
finally
Reg.CloseKey;
Reg.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateIEButton('c:\aaa\project1.exe');
end;


فارسی اون بهم خورده :sorry: :گیج:
نمی شود کاری کرد که از دلفی Past می کنی اینطوری نشه

[delphi77]

آفرین !! دست شما درد نکنه