+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (https://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: FindWindow ile Handle Öğrenme (/showthread.php?tid=6167)
FindWindow ile Handle Öğrenme - denem3 - 12-07-2021
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;