Duvida Classe do IE

[cesargbi16]

Pessoal, criei a seguinte função para retorna o titulo da janela ativa:

function Janela : string;
var
Id: THANDLE;
Nome: array[0..125] of char;
begin
Id:= GetForegroundWindow;
GetWindowText(Id, (Nome), 125);
Janela:= Nome;
end;

Depois peguei da net uma código para retorna a classe do IE:

var
hIE: THandle;
begin
hIE:=FindWindow('IEFrame', nil);
hIE:=FindWindowEx(hIE,0,'Frame Tab',nil);
hIE:=FindWindowEx(hIE,0,'TabWindowClass',nil);
hIE:=FindWindowEx(hIE,0,'Shell DocObject View',nil);
hIE:=FindWindowEx(hIE,0,'Internet Explorer_Server',nil);

Logo depois coloquei em um timer o seguinte código:

procedure TForm1.Timer1Timer(Sender: TObject);
var
hIE: THandle;
begin
hIE:=FindWindow('IEFrame', nil);
hIE:=FindWindowEx(hIE,0,'Frame Tab',nil);
hIE:=FindWindowEx(hIE,0,'TabWindowClass',nil);
hIE:=FindWindowEx(hIE,0,'Shell DocObject View',nil);
hIE:=FindWindowEx(hIE,0,'Internet Explorer_Server',nil);
If (hIE <> 0) and (Janela = 'Farol da Cidade - Windows Internet Explorer') then
begin
Form2:= TForm2.Create(Self);
Form2.Top:= 258;
Form2.Left:= 932;
Form2.Show;
Form2.BringToFront;
Timer1.Enabled:= False;
Windows.SetParent(Form2.Handle, hIE);
end;
end;

O código funciona perfeitamente, só tem um problema, quando ele encontra a janela, ele cria o form só nao cria onde especifiquei que é TOP: 258, mas o LEFT fica certo.

Errei em alguma coisa, ae? Alguem pode me ajudar?

[w0rmc0der]

xeiro de banker isso UAHeuaheuah

[cesargbi16]

xeiro de banker isso UAHeuaheuah

Vc acha se eu fosse coda um kl banker eu iria usar isso dae?
Vou usar isso em um site aqui!

[w0rmc0der]

Hm... Não qro confusão, mas...

De 30 source de banker, as 30 usa esse mesmo código pra injecta a tela no site dos banco. Inclusive peguei o pack de sources aqui, da uma procurada que vc acha ..

[cesargbi16]

Hm... Não qro confusão, mas...

De 30 source de banker, as 30 usa esse mesmo código pra injecta a tela no site dos banco. Inclusive peguei o pack de sources aqui, da uma procurada que vc acha ..

Vlw cara
vou da uma pesquisada e ve se encontro.

Muito Obrigado.