اكواد خاصة بسطح المكتب

كود لتحديث سطح المكتب

uses
ShlObj;

procedure TForm1.Button3Click(Sender: TObject);
begin
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

كود لاخفاواظهار الايقونات والساعة وزر ابدا وشريط المهام

procedure TForm1.Button2Click(Sender: TObject);
var
  Wnd: THandle;
  int: integer;

begin
  Randomize;
  int := Random(4);
  case int of
    0:
    begin
      Wnd := FindWindow('Progman', nil);
      Wnd := FindWindowEx(Wnd, HWND(0), 'ShellDll_DefView', nil);
      {hide icons }

    end;
    1:
    begin
      Wnd := FindWindow('Shell_TrayWnd', nil);
      Wnd := FindWindowEx(Wnd, HWND(0), 'TrayNotifyWnd', nil);
      Wnd := FindWindowEx(Wnd, HWND(0), 'TrayClockWClass', nil);
      { hide clock }

    end;
    2:
    begin
      Wnd := FindWindow('Shell_TrayWnd', nil);
      Wnd := FindWindowEx(Wnd, HWND(0), 'Button', nil);
      {hide start button}

  end;
  3:
  begin
    Wnd := FindWindow('Shell_TrayWnd', nil);
    Wnd := FindWindowEx(Wnd, HWND(0), 'TrayNotifyWnd', nil);
    { hide panel }

  end;
end;
  if flag then
  ShowWindow(Wnd, sw_hide)else
      ShowWindow(Wnd, sw_show);
  flag:=not flag;
end;

تغيير موقع وحجم زر قائمة ابدا

procedure TForm1.Button3Click(Sender: TObject);
begin
 MoveWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil),
              300, 0, 80, 22, true);

end;

فتح قائمة ابدا

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SendMessage(Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0); 
end;

عرض نافذة الrun

procedure TForm1.Button3Click(Sender: TObject);
begin

 keybd_event(VK_LWIN, MapVirtualKey(VK_LWIN, 0), 0, 0);
 keybd_event(Ord('R'), MapVirtualKey(Ord('R'), 0), 0, 0);
 keybd_event(Ord('R'), MapVirtualKey(Ord('R'), 0), KEYEVENTF_KEYUP, 0);
 keybd_event(VK_LWIN, MapVirtualKey(VK_LWIN, 0), KEYEVENTF_KEYUP, 0)

end;