Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2498503 Sun, 07 Feb 2010 20:04:40 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2498503 Цитата kero_xmemor @ 07.02.10, 18:19

С учетом того, что WM_CLOSE может быть послано через PostMessage, совет насчет InSendMessage/InSendMessageEx - не ахти.

А в сочетании с Application.OnMessage - ахти ? ;)]]> leo Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2498406 Sun, 07 Feb 2010 18:19:40 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2498406 Цитата

С учетом того, что WM_CLOSE может быть послано через PostMessage, совет насчет InSendMessage/InSendMessageEx - не ахти.]]> kero_xmemor Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494908 Wed, 03 Feb 2010 15:10:02 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494908 Цитата Lumen @ 03.02.10, 12:14

Тогда надо перехватывать WM_QUERYENDSESSION

И как определить кем оно послано - системой или той самой "другой прогой" ?]]> leo Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494703 Wed, 03 Feb 2010 12:14:28 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494703 Тогда надо перехватывать WM_QUERYENDSESSION]]> Lumen Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494690 Wed, 03 Feb 2010 12:09:11 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494690 Цитата leo @ 03.02.10, 11:35

Можно просто изменить название класса окна до его регистрации\создания

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

Цитата Lumen @ 03.02.10, 11:55

Кроме WM_CLOSE и подобных ещё придется сделать что-то с TerminateProcess

Это тоже будет.

Цитата leo @ 03.02.10, 11:35

А сообщения от системы? ПРи завершени работы к примеру.

ВАжное замечание: из-за недостатка материала просьба не ограничиваться только Delphi, если это можно сделать на другом языке.]]> Alexander N Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494671 Wed, 03 Feb 2010 11:55:33 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494671 ЗЫ: Кроме WM_CLOSE и подобных ещё придется сделать что-то с TerminateProcess]]> Lumen Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494645 Wed, 03 Feb 2010 11:35:52 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494645 Цитата Alexander N @ 02.02.10, 16:19

Допустим класс моей формы называется TForm1. Хочу сменить это название на абсолютно любое прямо при выполнении программы. Как это сделать?

Можно просто изменить название класса окна до его регистрации\создания. Для этого достаточно переопределить метод TForm1.CreateParams

type

TForm1 = class(TForm)

...

protected

procedure CreateParams(var Params: TCreateParams); override;

end;

procedure TForm1.CreateParams(var Params: TCreateParams);

begin

inherited CreateParams(Params);

Params.WinClassName:='Abracadabra';

end;

Добавлено 03.02.10, 11:45

Цитата Alexander N @ 02.02.10, 17:04

ДЛя защиты от закрытия с помощью другой проги

Если имеется ввиду закрытие через посылку сообщений WM_CLOSE или WM_SYSCOMMAND, то также можно переопределить метод TForm1.WndProc или заменить WindowProc, в котором игнорировать указанные сообщеня, если они посланы не из твоего главного потока: InSendMessage = true]]> leo Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494630 Wed, 03 Feb 2010 11:27:21 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494630 Цитата Lumen @ 03.02.10, 10:59

Имена классов окон хранятся в таблице атомов в ядре.
Кое-что полезное можно почерпнуть из этой статьи: Инжект: лезем через окно
Ещё плагин Phantom как-то изменяет класс окна отладчика OllyDebug, можно его поковырять, посмотреть реализацию

И какой только гадости в ядро не понапихали :)
Век живи - век учись.
Спасибо :)]]> Riply Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494591 Wed, 03 Feb 2010 10:59:12 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494591 Кое-что полезное можно почерпнуть из этой статьи: Инжект: лезем через окно
Ещё плагин Phantom как-то изменяет класс окна отладчика OllyDebug, можно его поковырять, посмотреть реализацию]]> Lumen Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494424 Wed, 03 Feb 2010 09:02:40 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494424 Цитата kero_xmemor @ 03.02.10, 06:43

Alexander N

Цитата

как ее найти?

С такими запросами - что вы тут делаете? Вам - в ядро :)

[offtop]как в какое? в ядерное конечно :lol: [/offtop]]]> Gonarh Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494285 Wed, 03 Feb 2010 07:01:40 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494285 Цитата Alexander N @ 02.02.10, 17:39

А название класса хранится в памяти как строка? Если да, то как ее найти?

Цитата kero_xmemor @ 03.02.10, 06:43

Alexander N

Цитата
как ее найти?

С такими запросами - что вы тут делаете? Вам - в ядро

Эмн... Стесняюсь спросить... А в какое ядро ? :blush:
:)]]> Riply Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494268 Wed, 03 Feb 2010 06:43:38 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494268 Alexander N

Цитата

как ее найти?

С такими запросами - что вы тут делаете? Вам - в ядро :)]]> kero_xmemor Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494136 Tue, 02 Feb 2010 21:34:24 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2494136 Цитата Alexander N @ 02.02.10, 17:04

ДЛя защиты от закрытия с помощью другой проги.

Я бы смотрела не в сторону затруднения нахождения (если окно есть - найдут все равно),
а в сторону собственного "незакрывания" на стандартные команды.
(Если закрывать будут силовыми методиками, то против лома... :) )]]> Riply Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2493838 Tue, 02 Feb 2010 17:39:25 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2493838 Alexander N Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2493806 Tue, 02 Feb 2010 17:09:57 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2493806 Marriage Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2493796 Tue, 02 Feb 2010 17:04:18 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2493796 Alexander N Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2493730 Tue, 02 Feb 2010 16:26:31 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2493730 Marriage Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2493722 Tue, 02 Feb 2010 16:19:08 +0000 Изменить имя класса окна во время выполнении программы https://forum.sources.ru/index.php?showtopic=293901&view=findpost&p=2493722 Alexander N Delphi: Система, Windows API