كيف احصل علي اسم النافذه النشطه

احتجت مرة هالموضوع وبحبشت وجربت الكثير بس أخيرا عن تجربة فأنا لا أعتبر نفسي خبير برمجة وجدت التالي

GetForegroundWindow

هالتابع يرد لك هاندل النافذة النشطة وأقصد بالنشطة التي هي جاهزة للاستقبال من الكيبورد

والاخوة بالمنتدى ان شاء الله ما بقصرو

أنت جرب التابع وستجده المطلوب باذن الله

اسف أنت تريد الاسم!!! خذ جرب هالكود

procedure TForm1.Button1Click(Sender: TObject);

var

p: array[0..255] of char;

begin

GetWindowText(GetForegroundWindow, p, length(p));

Caption:= p;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Button1Click(Button1);

end;

طبعا خلي الخاصية للفورم form style هي fsAlways On top لترى النتيجة

والسلام

شكرا هذا هو ما احتاجه بالضبط