» Все публикации пользователя reader hlp » Страница 7

 

Windows Server 2012. Включение ПЕРСОНАЛИЗАЦИИ рабочего стола.

Автор: reader hlp от 8-01-2019, 16:18, посмотрело: 145

Включение ПЕРСОНАЛИЗАЦИИ рабочего стола.


Включение ПЕРСОНАЛИЗАЦИИ рабочего стола.


Категория: Windows

 

Диск загружен на 100 процентов. Windows 10

Автор: reader hlp от 20-12-2018, 12:06, посмотрело: 91

1. Windows Search. Поисковая система Windows и индексирование файлов
Приверить она ли виновата
cmd - с правами администратора
команда - NET STOP «Windows Search»
Смотрим в диспетчере если ситуация изменилась то отключаем службу Windows Search.
services.msc
Ищем Windows Search
Останавливаем
Затем ставим Отключена.

2. SuperFetch.
services.msc
Ищем Windows Search
Останавливаем
Затем ставим Отключена.

Категория: Windows

 

Выключение и перезагрузка Windows из командной строки. Shutdown

Автор: reader hlp от 19-12-2018, 13:47, посмотрело: 69

Действие
Команда
Выключениеshutdown /s
Перезагрузка
shutdown /r
Завершение сеанса пользователя
shutdown /l
Перезагрузка компьютера с сообщением
shutdown /r /c “Этот сервер будет перезагружен через 60 секунд.”
Отложенное выключение
shutdown /s /t 600 /c "Сервер будет выключен через 10 минут"
Выключение по сети
shutdown /r /t 120 /m \\192.168.0.100
Отмена выключения или перезагрузки
shutdown /a
Перезагрузить компьютер немедленно
shutdown /r /t 0

Это только часть примеров. Читай параметры команд которые приведеныниже ...

Категория: Windows

 

Отключить автоматические обновления Windows 10

Автор: reader hlp от 16-12-2018, 19:01, посмотрело: 60

Отключение обновлений с помощью редактора локальной групповой политики работает только для Windows 10 Pro и Enterprise, но при этом является самым надежным способом для выполнения указанной задачи.

1 способ. gpedit.msc
Перейдите к разделу Конфигурация компьютера - Административные шаблоны - Компоненты Windows - Центр обновления Windows.

Открываем - Настройка автоматического обновления.
Укажите "Отключено".

2 способ. regedit
То же действие можно сделать и с помощью редактора реестра (в Домашней работать не будет), для этого в разделе
HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU
создайте параметр DWORD с именем NoAutoUpdate и значением 1.

Категория: Windows

 

Отключить Защитник Windows 10

Автор: reader hlp от 16-12-2018, 19:01, посмотрело: 60

Способы отключения Защитника Windows в Windows 10 версии 1703, 1709, 1803 и 1809

Как отключить Защитник Windows с помощью редактора групповой политики

Как отключить Защитник Windows с помощью системного реестра

Возврат Защитника Windows в рабочее состояние

Категория: Windows

 

Расположение и размер TaskBar. Количество и разрешение мониторов

Автор: reader hlp от 15-12-2018, 13:37, посмотрело: 55

uses
  ... ShellApi ...

var
  ....
  Monitors : word;
  Monit_X, Monit_Y : array [1..2] of word;

  DataBar: TAppBarData;
  TaskBar_H : Integer;
  TaskBar_W : Integer;
  TaskBar_L : Integer;
  TaskBar_T : Integer;
  pos_bar : Char;
  ...

procedure Tfm_main.FormCreate(Sender: TObject);
begin
...
// Определяемся с мониторами
Monitors := Screen.MonitorCount;
for i := 1 to Monitors do
  begin
  Monit_X[i] := Screen.Monitors[i - 1].Width;
  Monit_Y[i] := Screen.Monitors[i - 1].Height;
  end;
// определяемся с TaskBar
DataBar.hWnd := FindWindow('Shell_TrayWnd', nil);
DataBar.cbSize := SizeOf(TAppBarData);
if DataBar.hWnd <> 0 then
  if SHAppBarMessage(ABM_GETTASKBARPOS, DataBar) = 1 then
    begin
    TaskBar_H := DataBar.rc.Bottom - DataBar.rc.Top;
    TaskBar_W := DataBar.rc.Right - DataBar.rc.Left;
    TaskBar_L := DataBar.rc.Left;
    TaskBar_T := DataBar.rc.Top;
    end;
  if (TaskBar_H = Monit_Y[1])and(TaskBar_L < 10) then Pos_bar := 'L';
  if (TaskBar_H = Monit_Y[1])and(TaskBar_L > 10) then Pos_bar := 'R';
  if (TaskBar_W = Monit_X[1])and(TaskBar_T < 10) then Pos_bar := 'T';
  if (TaskBar_W = Monit_X[1])and(TaskBar_T > 10) then Pos_bar := 'B';
...
end;

Категория: Pascal Delphi

 

Системные кнопки формы. Перехват

Автор: reader hlp от 15-12-2018, 12:47, посмотрело: 57

Type TMain = class(TForm)
....
  public
    { Public declarations }
    procedure WMSize(var Message: TWMSize); message WM_SIZE;

.....

procedure Tform1.WMSize(var Message: TWMSize);
begin
inherited;
if WindowState = wsMaximized then
  begin
  ....
  end;
if WindowState = wsMinimized then
  begin
  ....
  end;
if WindowState = wsNormal then
  begin
  ....
  end;

end;

Категория: Pascal Delphi

 

Определить форма активна или нет (получила или потеряла фокус)

Автор: reader hlp от 15-12-2018, 10:21, посмотрело: 69

type
//...
private
{ Private declarations }
procedure WMNCACTIVATE(var M: TWMNCACTIVATE); message WM_NCACTIVATE;
end;

implementation

//...

procedure TForm1.WMNCACTIVATE(var M: TWMNCACTIVATE);
begin
inherited;
if M.Active then caption:='Form active'
                    else caption:='Form not active' ;
end;

Категория: Pascal Delphi

 

Вставить таблицу Excel в документ Word с возможность полного редактирования

Автор: reader hlp от 13-12-2018, 12:31, посмотрело: 127

Маркер должен стоять на той строке куда необходимо вставить таблицу Excel.
После этого в меню Word идем на закладку Вставка (Insert) и нажимаем кнопку Таблица (Table).
Выбираем строку Таблица Excel (Excel Spreadsheet).
Все.
Если кликнуть в документе за пределами вставленной таблицы, то таблица будет не активна и можно редактировать основной документ Word.
Если необходимо редактировать таблицу Excel, то нужно сделать двойной клик по таблице.

Категория: Office

 

Включение компьютера по сети

Автор: reader hlp от 13-12-2018, 10:42, посмотрело: 53

В ОС Linux посылаем «Magic Packet» на MAC-адрес сетевой платы консольной командой:

# ether-wake -b 00:02:15:dd:70:7f

Категория: Linux