إظهار و إخفاء الساعة

[paix144]

السلام عليكم
هذا كود سورس لاظهار و إخفاء الساعة في windows باستعمال API

[kachwahed]

وعليكم السلام ورحمة الله
جميل أخي paix144
إخفاء/إظهار/قراءة/كتابة ... على أي شيء مشغل في Windows يعتمد أساسا على التقاط المقبض (Handle)
في مثالك يقوم الإجراء بإيجاد المقبض من خلال اسم الغرض ثم إخفاؤه/إظهاره:

كود :

procedure TForm1.Button1Click(Sender: TObject); begin ShowWindow(FindWindowEx(FindWindowEx([color=Red]FindWindow[/color]('Shell_TrayWnd', nil), 0,'TrayNotifyWnd', nil), 0, 'TrayClockWClass', nil), SW_HIDE); end; procedure TForm1.Button2Click(Sender: TObject); begin ShowWindow(FindWindowEx(FindWindowEx([color=Red]FindWindow[/color]('Shell_TrayWnd', nil), 0, 'TrayNotifyWnd', nil), 0, 'TrayClockWClass', nil), SW_SHOW); end;

بالتوفيق أخي.

[قديم الشوق]

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

كود :

procedure TForm1.Button1Click(Sender: TObject); begin ShowWindow([COLOR=red]FindWindowEx[/COLOR]([COLOR=red]FindWindowEx[/COLOR]([COLOR=black]FindWindow[/COLOR]('Shell_TrayWnd', nil), 0,'TrayNotifyWnd', nil), 0, 'TrayClockWClass', nil), SW_HIDE); end;

ليش تكررت مرتين

الله يجزاك خير ومشكور تم التجربه 100

[kachwahed]

ليش تكررت مرتين

لأن المكونات في الويندوز أب وإبن
لتبحث عن الابن يجب أن تجد أباه أولا.

[قديم الشوق]

مثال 100% لكن ليش الأبن والأبن نفس الأسم

[nabilsoft]

جميل جدا لكن ينقصه بعض التعديل
مثلاً : لماذا لا يمسح مكان الساعة
شكراً على العموم و بارك الله فيك

مثال 100% لكن ليش الأبن والأبن نفس الأسم

تكون المكونات في الويندوز اب ابن و الإبن يحمل اسم الأب بطبيعة الحال يجب ان بكونو نفس الإسم لكن يجب ان تفرق او لاً بين الأب والإبن

[kachwahed]

ليش الأبن والأبن نفس الأسم

أين هو نفس الاسم!؟

كود :

ShowWindow(FindWindowEx(FindWindowEx(FindWindow('[color=Red]Shell_TrayWnd[/color]', nil), 0,'[color=Blue]TrayNotifyWnd[/color]', nil), 0, '[color=Green]TrayClockWClass[/color]', nil), SW_HIDE);

إذا كان قصدك التابع FindWindowEx فابحث عن معناه في SDK Windows Help.