سلام
هذا الكود لاخفا و اضهار التاسك بار
hTaskBarWindow : Hwnd
procedure TForm1.Button1Click(Sender: TObject);
begin
hTaskBarWindow := FindWindow('Shell_TrayWnd',nil);//Get TaskBar Handle
ShowWindow(hTaskBarWindow, SW_HIDE); // Hide TaskBar
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
hTaskBarWindow := FindWindow('Shell_TrayWnd',nil);
ShowWindow(hTaskBarWindow, SW_SHOW);
end;
end.
وشكرا
بسم الله الرحمن الرحيم
اخي العزيز مشكور وماقصرت
بس يوجد امر اسهل من الي ذكرت
وهو
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
وتقبل تحياتي اخوك SUM
سلام
مشكور اخ سم لكني جربت الكود ولم يعطيني نتيجة ,
ممكن لاني استخدم وندوز 2000 .
ومشكور
بسم الله الرحمن الرحيم
الأمر السابق يعمل مع الويندوز 2000 واذا كان ماعمل معك
خذا الأمر الآخر
var Owner : HWnd;
begin
Owner:=GetWindow(Handle,GW_OWNER);
ShowWindow(Owner,SW_HIDE);
وتقبل تحياتي اخوك SUM
سلام
مشكور الاخ سم
لكن الامر الى اعطيتني يقوم باخفاء البرنامج من التاسك بار
لكن البرنانج الي انا كتبته يخفي التاسك بار بالكامل .
والله الف شكر ليك على مجهودك الطيب
بسم الله الرحمن الرحيم
اخي العزيز مادي
ماعليش كنت فاهم قصدك غلط
اعذرني على خطأي
وتقبل تحياتي اخوك SUM
شكرا اخي سم
الحقيقو انك افتني بالطريقة , لاني كنت استخدم كمبوننت جاهز يقوم باخفا البرنامج من التاسك بار , وانت اعطيتني طريقة افضل
واحسن . مشكور على اهتمامك .
هذا الموضوع مغلق.
