Delphi Can

Orjinalini görmek için tıklayınız: FindWindow ile Handle Öğrenme
Şu anda (Arşiv) modunu görüntülemektesiniz. Orjinal Sürümü Görüntüle internal link
Merhaba.

Firefox penceresini istediğim konuma getirmek için Delphi 7 ile bir Windows 10'da çalışacak bir program yazdım. FindWindow ile pencerenin Handle'ini bulup, pencerenin koordinatlarını öğreniyorum. Ama program düzgün çalışmıyor. Düzgün çalışması için önce kendi programımı çalıştırmam, sonra Firefox'u açmam gerekiyor. Aksi halde koordinatları alamıyorum. Kodlar aşağıda, nerede hata yapıyorum?
procedure TForm1.btnBulClick(Sender: TObject);
var
 MyHandle: THandle;
 pozisyon: TRect;
begin
 if rdg1.ItemIndex=0 then //Class'a göre veya pencere başlığına göre arama seçeneği
 begin
   MyHandle:=FindWindow(PChar(cmbHandle.text),nil);
 end
 else
   MyHandle:=FindWindow(nil,PChar(cmbHandle.text));
 if myhandle<=0 then
 begin
   showmessage('Pencere bulanamadi');
   exit;
 end;
 GetWindowRect(MyHandle, pozisyon);
 edtSol.Text:=inttostr(pozisyon.Left);
 edtUst.Text:=inttostr(pozisyon.Top);
 edtSag.Text:=inttostr(pozisyon.Right);
 edtAlt.Text:=inttostr(pozisyon.Bottom);
end;