10-02-2010, 11:31 PM
11-02-2010, 07:32 AM
وعليكم السلام ورحمة الله
جميل أخي paix144
إخفاء/إظهار/قراءة/كتابة ... على أي شيء مشغل في Windows يعتمد أساسا على التقاط المقبض (Handle)
في مثالك يقوم الإجراء بإيجاد المقبض من خلال اسم الغرض ثم إخفاؤه/إظهاره:
بالتوفيق أخي.
جميل أخي 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, 11:29 AM
وعليكم السلام ورحمة الله وبركاته
ليش تكررت مرتين
الله يجزاك خير ومشكور تم التجربه 100
كود :
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
12-02-2010, 12:38 PM
إقتباس :ليش تكررت مرتينلأن المكونات في الويندوز أب وإبن
لتبحث عن الابن يجب أن تجد أباه أولا.
12-02-2010, 04:20 PM
مثال 100% لكن ليش الأبن والأبن نفس الأسم
01-06-2010, 08:36 PM
جميل جدا لكن ينقصه بعض التعديل
مثلاً : لماذا لا يمسح مكان الساعة
شكراً على العموم و بارك الله فيك
مثلاً : لماذا لا يمسح مكان الساعة
شكراً على العموم و بارك الله فيك
قديم الشوق كتب :مثال 100% لكن ليش الأبن والأبن نفس الأسمتكون المكونات في الويندوز اب ابن و الإبن يحمل اسم الأب بطبيعة الحال يجب ان بكونو نفس الإسم لكن يجب ان تفرق او لاً بين الأب والإبن
01-06-2010, 08:51 PM
إقتباس :ليش الأبن والأبن نفس الأسمأين هو نفس الاسم!؟
كود :
ShowWindow(FindWindowEx(FindWindowEx(FindWindow('[color=Red]Shell_TrayWnd[/color]', nil), 0,'[color=Blue]TrayNotifyWnd[/color]', nil), 0, '[color=Green]TrayClockWClass[/color]', nil), SW_HIDE);