Mega Code Archive
Internet explorera buton eklemek
<![CDATA[
function IEButonukoy(ProgramDizini: string;Programadi: string;Simge: string;Simge1: string;Caption: string):boolean;
const
KeyDegeri = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
var
Reg: TRegistry;
Dizin: string;
Acilacak: string;
begin
Reg := TRegistry.Create;
try
with Reg do
begin
RootKey := $80000002; //HKEY_LOCAL_MACHINE
Dizin := 'Software\Microsoft\Internet Explorer\Extensions';
Acilacak := Dizin + KeyDegeri;
OpenKey(Acilacak, True);
WriteString('ButtonText', Caption);
WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
WriteString('Default Visible', 'Yes');
WriteString('Exec', ProgramDizini + Programadi);
WriteString('HotIcon', simge1);
WriteString('Icon', simge);
end
finally
Reg.CloseKey;
Reg.Free;
result:=true;
end;
end;
function IEButonuSil:boolean;
const
KeyDegeri = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
var
Reg: TRegistry;
Acilacak,dizin: string;
begin
Reg := TRegistry.Create;
try
with Reg do
begin
RootKey := $80000002; //HKEY_LOCAL_MACHINE
Dizin := 'Software\Microsoft\Internet Explorer\Extensions';
Acilacak := Dizin + KeyDegeri;
DeleteKey(Dizin + KeyDegeri);
end
finally
Reg.CloseKey;
Reg.Free;
result:=true;
end;
end;
//kullanımı
//ekleme olayı
IEButonukoy('c:\windows\desktop\','denyolaunch.exe','c:\windows\desktop\denyo.ico','c:\windows\desktop\denyo.ico','Attack With Denyo');
//silme
IEButonuSil;
]]>