مطلوب كود لاختبار ما ادا كان برنامج الماسنجر يعمل فأنه يغلقة غير دلك يستمر في العمل

اخي الكريم

الكود التالي يرسل رسالة الى أي تطبيق ليغلق نفسه !

في الحقيقة جربته مع اكثر من برنامج وعمل بشكل جيد الا الماسنجر :mad:

هذه بداية الطريق لحل مشكلتك ، وارجو اني افدتك :

هذا الكود يغلق برنامج المفكرة 'Notepad' الكود :

var
MyH : THandle;
begin
MyH :=FindWindow('Notepad', nil);
Postmessage(MyH, WM_DESTROY, 0, 0);
end;

فكرة الكود هي معرفة الاسم الداخلي للتطبيق وثم ارسال رسالة تدمير له

واما بالنسبة لمعرفة الاسم الداخلي لاي تطبيق فارجو مراجعة الموضوع التالي :

http://www.arabteam2000.com/vb/showthread....?threadid=27943

تقبل تحياتي

مشكور أبو هاني والله يبارك فيك

طيب كيف ممكن علي الاقل ان اجعله مني مايز يعني نجعل برنامج الماسنجر عندما يعمل برنامجي فأن برنامج الماسنجر ينزل الي الاسفل يعني في التاسك بار يعني مني مايز وارجو ارفاق مثال ببقية الوضائف ان امكن وبارك الله بيكم

اخي الكريم ان كنت قد عدت للموضوع الذي اشرت به عليك في ردي السابق لابد وانك قد انزلت المثال الصغير الذي ارفقته في الموضوع المذكور وهو MySpy

وهو بريمج صغير يقوم باعطائك الاسم الداخلي لاي برنامج تضع المشيرة عليه

واذا وضعت المشيرة على الماسنجر النسخة السادسة فانك سوف تحصل على هذا الاسم : MSNMSBLClass

اذا اردت ان تصغر النموذج فيمكنك ذلك عن طريق دالة API وهي CloseWindow

لاتستغرب من الاسم فان الدالة السابقة لا تغلق البرنامج وانما تصغره انظر ما كتب في الهلب :

The CloseWindow function minimizes (but does not destroy) the specified window. 

BOOL CloseWindow(

    HWND hWnd 	// handle to window to minimize
   );	


Parameters

hWnd

Identifies the window to be minimized. 



Return Values

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError. 

Remarks

The window is minimized by reducing it to the size of an icon and moving the window to the icon area of the screen. Windows displays the window's icon instead of the window and draws the window's title below the icon. 
To destroy a window, an application must use the DestroyWindow function.

على العموم لا اريد ان اطيل عليك ولكن هذا المثال سوف يقوم بتصغير الماسنجر

var
MyH : THandle;
begin
MyH :=FindWindow('Notepad', nil);
CloseWindow(MyH);
end;

تقبل تحياتي

بارك الله فيك عزيزي وكثر من امثالك

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

اخي الكريم

انت ذكرت الماسنجر ، ولم تحدد أي ماسنجر تقصد والدارج هو ماسنجر الميكروسوفت ..

على العموم هذا رابط التحميل للبرانامج الذي ذكرته لك

http://www.arabteam2000.com/vb/attachment....p?postid=138551

شكرا للجميع