[Avatar-Lion]

Grabber2006, На сайте Майкрософта отсылка указана именно к Defender Antivirus, а не SmartScreen: https://www.microsoft.com/en-us/wdsi...hreatid=265744 - SmartScreen просто уведомление выводит при попытке запуска exe'шника. А Защитник хлопает файл еще на этапе скачивания.

[Grabber2006]

Это ложное срабатывание. В экзешнике 3 строчки.

[Kamerin]

Защитник? Может SmartScreen? »

Да. SmartScreen. Но ничего криминального. Один раз он появился, я сказал ему, что все в порядке, и всё, больше он не появлялся.
Защитник никак не отреагировал на экзешник, хотя "заплаток" много он попортил..... Но это все лично на моей системе. У других может и по другому.

В экзешнике 3 строчки. »

Круто! А что сложнее в освоении, Delphi 7 или AutoIt? Или это как сравнивать зелёное с горьким?

Win + ↓ (иногда - для развернутых во весь экран окон - два раза надо будет нажать ↓) »

Как я писал в первом сообщении, эта комбинация не подходит, ибо:

иногда - для развернутых во весь экран окон - два раза надо будет нажать ↓ »

Скрипт не поймёт, сколько раз когда ему кнопку нажимать.

безумству храбрых... »

Завидую белой завистью, когда вот так, парой лёгких движений, без напряга, можно экзешник под любые задачи написать.

[Grabber2006]

Среда программирования Delphi он хоть и выпускается до сих пор, но считается устаревшей. А вообще на ней можно приложения писать для Windows, AppleOS и Android. Используемые языки - Delphi (Object Pascal) и C++. Обычно на Delphi базы данных пишут.

Код:

  По событию FormShow (появления окна программы на экране) пишем следующие строчки:

  Application.Minimize; // сразу сворачиваем. При этом на передний план выходит окно программы, которая до этого была на экране и она становится активной. Т.е. фактически ничего не меняется 
                                  // при запуске нашего приложения.  
  SendMessage(GetForegroundWindow, WM_SYSCOMMAND, SC_MINIMIZE, 0); // Посылаем чужому окну сообщение. GetForegroundWindow возвращает handle активного окна, WM_SYSCOMMAND - тип 
                                                                                                                   // команды - системная команда, SC_MINIMIZE - тип системной команды (минимизировать), 0 - дополнительное поле в 
                                                                                                                   // данном случае не используется
  Close; // всё сделали, закрываем приложение

[Vadikan]

Как я писал в первом сообщении, эта комбинация не подходит, ибо: »

Я предложил вам два сочетания клавиш. Второе, значит, подходит?

Завидую белой завистью, когда вот так, парой лёгких движений, без напряга, можно экзешник под любые задачи написать. »

Такое вам чатгпт написать может. А вот запускать неизвестные файлы без раздумий - это отвага!

[Avatar-Lion]

Vadikan, Как ему может подходить второе сочетание, если Alt + Esc вообще ничего не сворачивает?

[Kamerin]

Такое вам чатгпт написать может. »

Что за шайтан машина?! Действительно что то написал....
Диалог:
Мне нужно написать программу, которая сворачивает одно активное окно.
---
Вот пример простой программы на Python, которая сворачивает активное окно с использованием библиотеки `pygetwindow` и `pyautogui`. Убедитесь, что у вас установлены эти библиотеки:
pip install pygetwindow pyautogui
А затем вы можете использовать следующий код:

Скрытый текст

import pygetwindow as gw
import pyautogui

def minimize_active_window():
# Получаем список всех окон
windows = gw.getAllWindows()

# Находим активное окно
active_window = gw.getActiveWindow()

if active_window is not None:
# Сворачиваем окно
active_window.minimize()
print(f"Свержено окно: {active_window.title}")
else:
print("Нет активного окна.")

minimize_active_window()

Эта программа находит активное окно и сворачивает его. Запустите код, и активное окно будет минимизировано.
---
Забавно!
Я так понимаю, без установки Рython, опробовать код не получится?

Скрытый текст

Мне нужно написать программу на Delphi, которая сворачивает активное окно.
---
Для того чтобы свернуть активное окно в Delphi, вы можете использовать следующий код с использованием API Windows. Вот пример простого приложения:

Скрытый текст

uses
Windows, Messages, SysUtils, Classes, Vcl.Forms, Vcl.Controls, Vcl.StdCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var
hwnd: HWND;
begin
// Получаем дескриптор активного окна
hwnd := GetForegroundWindow;
if hwnd <> 0 then
begin
// Свернуть окно
ShowWindow(hwnd, SW_MINIMIZE);
end;
end;

В этом примере:
1. Вы создаете кнопку на вашей форме (Button1).
2. Когда вы нажимаете на кнопку, программа получает дескриптор активного окна с помощью `GetForegroundWindow`.
3. Затем окно сворачивается при помощи функции `ShowWindow` с параметром `SW_MINIMIZE`.

Убедитесь, что у вас есть необходимые зависимости и используете правильный интерфейс для вашего проекта.

Это реально рабочий код?

[Grabber2006]

Python надо либо ставить на машину (в принципе он лёгкий), либо делать EXE около 15 мб.

Это реально рабочий код? »

Нет, не рабочий.

[Vadikan]

Как ему может подходить второе сочетание, если Alt + Esc вообще ничего не сворачивает? »

А с чего вы взяли, что ему надо именно сворачивать? Да, он это просил. Ну и что?

Может он не знает другого варианта убрать окно с глаз долой. Но если у вас есть хоть одно другое окно во весь экран, именно это и происходит.