+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : إظهار و إخفاء الساعة (/showthread.php?tid=1643)
إظهار و إخفاء الساعة - paix144 - 10-02-2010
السلام عليكم
هذا كود سورس لاظهار و إخفاء الساعة في windows باستعمال API
إظهار و إخفاء الساعة - kachwahed - 11-02-2010
وعليكم السلام ورحمة الله
جميل أخي 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;إظهار و إخفاء الساعة - قديم الشوق - 12-02-2010
وعليكم السلام ورحمة الله وبركاته
كود :
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 - 12-02-2010
إقتباس :ليش تكررت مرتينلأن المكونات في الويندوز أب وإبن
لتبحث عن الابن يجب أن تجد أباه أولا.
إظهار و إخفاء الساعة - قديم الشوق - 12-02-2010
مثال 100% لكن ليش الأبن والأبن نفس الأسم
إظهار و إخفاء الساعة - nabilsoft - 01-06-2010
جميل جدا لكن ينقصه بعض التعديل
مثلاً : لماذا لا يمسح مكان الساعة
شكراً على العموم و بارك الله فيك
قديم الشوق كتب :مثال 100% لكن ليش الأبن والأبن نفس الأسمتكون المكونات في الويندوز اب ابن و الإبن يحمل اسم الأب بطبيعة الحال يجب ان بكونو نفس الإسم لكن يجب ان تفرق او لاً بين الأب والإبن
إظهار و إخفاء الساعة - kachwahed - 01-06-2010
إقتباس :ليش الأبن والأبن نفس الأسمأين هو نفس الاسم!؟
كود :
ShowWindow(FindWindowEx(FindWindowEx(FindWindow('[color=Red]Shell_TrayWnd[/color]', nil), 0,'[color=Blue]TrayNotifyWnd[/color]', nil), 0, '[color=Green]TrayClockWClass[/color]', nil), SW_HIDE);