أداة Disable.ocx

السلام عليكم

لاداعي لاستعمال الاداه فيمكن لنا عمل ما تقوم به .

هذه بعض امثله لذلك :

Show/Hide DeskTop Icons

procedure TForm1.Button1Click(Sender: TObject);

begin

if(Button1.Tag=0)then

begin

ShowWindow(FindWindow(nil, 'Program Manager'), SW_HIDE);

Button1.Caption:='Show DeskTop Icons';

Button1.Tag:=1;

end

else

begin

ShowWindow(FindWindow(nil, 'Program Manager'), SW_SHOW);

Button1.Caption:='Hide DeskTop Icons';

Button1.Tag:=0;

end;

end;

Show/Hide Start Button

procedure ShowStartButton(bvisible: Boolean);

var

  h: hwnd;

  TaskWindow: hwnd;

begin

  if bvisible then

  begin

    h := FindWindowEx(GetDesktopWindow, 0, 'Button', nil);

    TaskWindow := FindWindow('Shell_TrayWnd', nil);

    ShowWindow(h, 1);

    Windows.SetParent(h, TaskWindow);

  end

  else

  begin

    h := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil);

    ShowWindow(h, 0);

    Windows.SetParent(h, 0);

  end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if(Button2.Tag=0)then

  begin

        ShowStartButton(False);

        Button2.Caption:='Show Start Button';

        Button2.Tag:=1;

  end

else

  begin

        ShowStartButton(True);

        Button2.Caption:='Hide Start Button';

        Button2.Tag:=0;

  end;

end;

Show/Hide Tray Icons

function ShowTray(bValue: Boolean) : Boolean;

var

  TrayWnd, TrayNWnd, ClockWnd: HWND;

begin

TrayWnd  := FindWindow('Shell_TrayWnd', nil);

TrayNWnd := FindWindowEx(TrayWnd, 0, 'TrayNotifyWnd', nil);

if Result then

  begin

        ShowWindow(TrayNWnd, Ord(bValue));

        PostMessage(TrayNWnd, WM_PAINT, 0, 0);

  end;

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

if(Button3.Tag=0)then

  begin

        ShowTray(false);

        Button3.Caption:='Show Tary Icons';

        Button3.Tag:=1;

  end

else

  begin

        ShowTray(True);

        Button3.Caption:='Hide Tray Icons';

        Button3.Tag:=0;

  end;

end;

Show/Hide TaskBar

procedure TForm1.Button4Click(Sender: TObject);

var

  wndTaskbar: HWND;

begin

  wndTaskbar := FindWindow('Shell_TrayWnd', nil);

  if wndTaskbar <> 0 then

  begin

    if(Button4.Tag=0)then

      begin

        ShowWindow(wndTaskbar, SW_HIDE);

        Button4.Caption:='Show TaskBar';

        Button4.Tag:=1;

      end

    else

      begin

        ShowWindow(wndTaskbar, SW_SHOW);

        Button4.Caption:='Hide TaskBar';

        Button4.Tag:=0;

      end;

  end;

end;

Enable/Disable TaskBar

procedure TForm1.Button5Click(Sender: TObject);

var

  wndTaskbar: HWND;

begin

  wndTaskbar := FindWindow('Shell_TrayWnd', nil);

  if wndTaskbar <> 0 then

  begin

    if(Button5.Tag=0)then

      begin

        EnableWindow(wndTaskbar, False);

        Button5.Caption:='Enable TaskBar';

        Button5.Tag:=1;

      end

    else

      begin

        EnableWindow(wndTaskbar, True);

        Button5.Caption:='Disable TaskBar';

        Button5.Tag:=0;

      end;

  end;

end;

ستجد العديد من الاكواد الاخرى في صفحات الانترنت , ابحث في google ستجد الكثير .

(f)

CIONO1

أداة Disable.ocx

مواضيع مشابهة