Plugin do IE

Jak zrobic plugin do Internet Explorer. Taki żeby po otworzeniu strony zapiswyal jej adres do pliku tekstowego

przycisk pulgina
REGEDIT4

[HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions{Class-ID np. 669695BC-A811-4A9D-
8CDF-BA8C795F261F}]
"ButtonText"="caption"
"Default Visible"="Yes"
"HotIcon"="ścieżka do exe,0"
"Icon"="ścieżka do exe,0"
"CLSID"="{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}"
"Exec"="ścieżka do exe"

plik reg

a w programie

Function GetText(WindowHandle: hwnd):string;
var
txtLength : integer;
buffer: string;
begin
TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0);
txtlength := txtlength + 1;
setlength (buffer, txtlength);
sendmessage (WindowHandle,wm_gettext, txtlength, longint(@buffer[1]));
result := buffer;
end;

function GetURL:string;
var
ie,toolbar,combo,
comboboxex,edit,
worker,toolbarwindow:hwnd;
begin
ie := FindWindow(pchar('IEFrame'),nil);
worker := FindWindowEx(ie,0,'WorkerA',nil);
toolbar := FindWindowEx(worker,0,'rebarwindow32',nil);
comboboxex := FindWindowEx(toolbar, 0, 'comboboxex32', nil);
combo := FindWindowEx(comboboxex,0,'ComboBox',nil);
edit := FindWindowEx(combo,0,'Edit',nil);
toolbarwindow := FindWindowEx(comboboxex, 0, 'toolbarwindow32', nil);

result := GetText(edit);
end;

i wywołujesz:
np. memo1.lines.add(GetURL);
i zapsujesz do jakeigos pliku

Poczytaj w MSDN, tam jest wszystko ładnie wyjaśnione (tylko, że ja tego nie rozumiem [glowa] ). :P

Może Ty coś zrozumiesz.