استخدام GetKeyboardLayoutName مع البرامج الاخرى

[TF6M]

و عليكم السلام و رحمة الله و بركاته

أخي الكريم , المسألة في ThreadId :

مثال توضيحي :

PHP كود :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label1.Caption:= Format('%X',[  //  القيمة بالهيكس
                  GetKeyboardLayout( //ThreadId لجلب لغة النظام حسب الـ apiدالة
                  GetWindowThreadProcessId(//لجلب ThreadId من البروسس الذي نحدده
                  GetForegroundWindow ,nil) //البروسس هوالواجهة المفعلة
                  ) And $FFFF]);//للحفاظ على أول 32 بيت
end; 


بالتوفيق ,,