02-10-2010, 04:09 AM
بسم الله الرحمن الرحيم
السلام عليكم ورحمه الله وبركاته
كيفيه إضافه زر button في ملف تنفيذي ؟
هادا مثال علي إضافه زر button في متصفح Internet Explorer
لكن هادي الطريقه مابتمشي علي جميع البرامج
السلام عليكم ورحمه الله وبركاته
كيفيه إضافه زر button في ملف تنفيذي ؟
هادا مثال علي إضافه زر button في متصفح Internet Explorer
كود :
procedure CreateExplorerButton(Path: string);
const
Tagit = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
var
Reg: TRegistry;
Path1: string;
Merge: string;
begin
Path := 'c:\your_program_path';
Reg := TRegistry.Create;
try
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
Path1 := 'Software\Microsoft\Internet Explorer\Extensions';
Merge := Path1 + Tagit;
OpenKey(Merge, True);
WriteString('ButtonText', 'ButtonText');
WriteString('MenuText', 'Tools Menu Item');
WriteString('MenuStatusBar', 'Run Script');
WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
WriteString('Default Visible', 'Yes');
WriteString('Exec', Path + '\ProgramName.exe');
WriteString('HotIcon', ',4');
WriteString('Icon', ',4');
end
finally
Reg.CloseKey;
Reg.Free;
end;
end;لكن هادي الطريقه مابتمشي علي جميع البرامج
؟![[صورة: lgana-04148e2467.jpg]](http://www.lgana.com/up/uploads/images/lgana-04148e2467.jpg)