проблема с окнами в windows 7

@Санек25 · Регистрация: 14.05.2012

Author24 — интернет-сервис помощи студентам

Написал я программу которая сворачивает окно мозилы если это окно становится неактивным. В ХР программа работает, а в семерке отказывается. В чем проблема??? Вроде погуглил функции остались те же.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Classes, Controls, Forms, ExtCtrls  ;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  hd:hwnd; //хэндл окна мазилы
implementation
 
{$R *.dfm}
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
Nm:Array[0..255] of Char;  // буфер для имени
 
begin
GetWindowText(FindWindow('mozillawindowclass',0 ),Nm, 255) ;
if Nm='Убийца мозилы' then form1.Show else form1.Hide;
 
form1.Timer1.Interval:=300;
hd:=  FindWindow('mozillawindowclass',0 );
if hd<>0 then form1.Timer2.Enabled:=true else form1.Timer2.Enabled:=false;
 
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
 if hd<>getforegroundwindow then  postmessage(hd,wm_Syscommand,sc_minimize,0);//CloseWindow(hd);
 form1.Timer2.Enabled:=false;
end;
 
end.

Добавлено через 14 часов 28 минут
Вопрос решился. В системе есть несколько окон с таким классом и выше предложенный код находит первое подходящее , но не относящееся напрямую к тому которое я хочу свернуть. Надо просеивать весь список и уже из того списка выбирать требуемые хэндлы окна. Тему можно закрывать...

@volvo · 22.07.2013, 10:34

Санек25, а кто тебе сказал, что ты получаешь через свой FindWindow('mozillawindowclass', 0); именно то окно, которое, в случае, если Firefox активен, вернется после вызова GetForegroundWindow? Ты получаешь одно из окон класса mozillawindowclass, их там - как тараканов, и последняя открытая вкладка, и кнопка "Закрыть вкладку" на ней... И только третьим (в моем случае) по счету идет то окно, с которым можно работать...

Добавлено через 1 минуту
Хм... Ну вот... Называется, "на кой я это все писал?"

@Санек25 · 23.07.2013, 13:34 **[ТС]**

UI, спасибо за помощь. Уже все сделал. Вот исходник если любопытно, работает на хр и на семерке.

@Санек25 · 23.07.2013, 13:38 **[ТС]**

Добавлена функция автозапуска через реестр

@droider · 23.07.2013, 13:50

Сообщение от Санек25

Добавлена функция автозапуска через реестр

Лучше записывайте ее в автозапуск в ветке HKEY_CURRENT_USER на случай отсутствия админских
привелегий

@Санек25 · 23.07.2013, 13:51 **[ТС]**

droider, Учту спасибо...

Новые блоги и статьи Все статьи Все блоги /
Исключения в Java: советы, примеры кода и многое другое Javaican 18.05.2025 Исключения — это объекты, созданные когда программа сталкивается с непредвиденной ситуацией: файл не найден, сетевое соединение разорвано, деление на ноль. . . Список можно продолжать до бесконечности. . . .	Как сделать SSO (Single Sign-On) в C# приложении stackOverflow 18.05.2025 SSO — это механизм, позволяющий пользователю пройти аутентификацию один раз и получить доступ к нескольким приложениям без повторного ввода учетных данных. Вы наверняка сталкивались с ним, когда. . .	Kubernetes с Apache Flink для обработки данных в реальном времени Mr. Docker 17.05.2025 Kubernetes — это целая философия управления распределёнными приложениями. В отличие от "примитивных" решений вроде Docker Swarm, K8s (как его ласково называют в тусовке DevOps-инженеров) предлагает. . .	Использование декораторов в Python py-thonny 17.05.2025 Если вы когда-нибудь задумывались о том, как красиво расширить функциональность кода без лишней возни и дублирования, декораторы в Python — та самая волшебная палочка, которую вы искали. По сути, это. . .	Реализация многопоточных сетевых серверов на Python py-thonny 16.05.2025 Когда сталкиваешься с необходимостью писать высоконагруженные сетевые сервисы, выбор технологии имеет критическое значение. Python, со своей элегантностью и высоким уровнем абстракции, может. . .
C# и IoT: разработка Edge приложений с .NET и Azure IoT UnmanagedCoder 16.05.2025 Мир меняется прямо на наших глазах, и интернет вещей (IoT) — один из главных катализаторов этих перемен. Если всего десять лет назад концепция "умных" устройств вызывала скептические улыбки, то. . .	Гибридные квантово-классические вычисления: Примеры оптимизации EggHead 16.05.2025 Гибридные квантово-классические вычисления — это настоящий прорыв в подходах к решению сложнейших вычислительных задач. Представьте себе союз двух разных миров: классические компьютеры, с их. . .	Использование вебсокетов в приложениях Java с Netty Javaican 16.05.2025 HTTP, краеугольный камень интернета, изначально был спроектирован для передачи гипертекста с минимальной интерактивностью. Его главный недостаток в контексте современных приложений — это. . .	Реализация операторов Kubernetes Mr. Docker 16.05.2025 Концепция операторов Kubernetes зародилась в недрах компании CoreOS (позже купленной Red Hat), когда команда инженеров искала способ автоматизировать управление распределёнными базами данных в. . .	Отражение в C# и динамическое управление типами stackOverflow 16.05.2025 Reflection API в . NET — это набор классов и интерфейсов в пространстве имён System. Reflection, который позволяет исследовать и манипулировать типами, методами, свойствами и другими элементами. . .

@volvo Супер-модератор 33143 / 21437 / 8221 Регистрация: 22.10.2011 Сообщений: 36,764 Записей в блоге: 9
	22.07.2013, 10:34
	Санек25, а кто тебе сказал, что ты получаешь через свой FindWindow('mozillawindowclass', 0); именно то окно, которое, в случае, если Firefox активен, вернется после вызова GetForegroundWindow? Ты получаешь одно из окон класса mozillawindowclass, их там - как тараканов, и последняя открытая вкладка, и кнопка "Закрыть вкладку" на ней... И только третьим (в моем случае) по счету идет то окно, с которым можно работать... Добавлено через 1 минуту Хм... Ну вот... Называется, "на кой я это все писал?" 0

@Санек25 422 / 352 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	23.07.2013, 13:38 [ТС]
	Добавлена функция автозапуска через реестр 0

@Санек25 422 / 352 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	23.07.2013, 13:51 [ТС]
	droider, Учту спасибо... 0

Опции темы