Fórum Pegando texto dessa função #340461

Galera achei essa função num tópico aqui mais num conseguir fazer algo pra pegar o texto que está no Edit

olhá só

Var
Explorer, Worker, Bar, ComboEx, Combo, Edit : HWND;
begin
Edit := 0;
Explorer := FindWindow(´CabinetWClass´, nil);
If Explorer <> 0 Then Begin
Worker := FindWindowEx(Explorer, 0, ´WorkerA´, nil);
If Worker <> 0 Then Begin
Bar := FindWindowEx(Worker, 0, ´ReBarWindow32´, nil);
If Bar <> 0 Then Begin
ComboEx := FindWindowEx(Bar, 0, ´ComboBoxEx32´, nil);
If ComboEx <> 0 Then Begin
Combo := FindWindowEx(ComboEx, 0, ´ComboBox´, nil);
If Combo <> 0 Then Begin
Edit := FindWindowEx(Combo, 0, ´Edit´, nil);
End;
End;
End;
End;

como vcs viram ela pega o andle do edit do IE

gostaria de fazer assim

if edit = ´www.sexo.com.br´ then
begin
showmessage(´Proibido´);
End;

entenderam essa função pega o handle do edit.

gostaria de saber como faço para pegar o que o usuario digitou pra poder verificar e caso seja uma url proibida faça o q eu quiser.

desde já agradeço