دخول

**kachwahed** · 11-02-2010, 07:32 AM

وعليكم السلام ورحمة الله
جميل أخي 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;

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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة