Приложение с className=TAppBuilder

← →
stepan_mk © (2003-12-04 12:55) [0]

Привет всем! Задача следующая. Нужно написать прогу на Делфи так, чтоб Classname у неё бил TAppBuilder. Стандартно claname = TApplication.
Используя функцию GetClassName(wn,p,30);
http://www.sql.ru/forum/actualtopics.aspx?bid=20
Здесь етот вопрос уже обсуждается но пока ...

← →
Amoeba © (2003-12-04 13:01) [1]

Встречный вопрос: а зачем это нужно?

← →
stepan_mk © (2003-12-04 13:04) [2]

Что б не крякать компоненти которие работают только из под IDE
там используется функция findWindow и параметром передаётся имя класа TAppBuilder

← →
Amoeba © (2003-12-04 13:15) [3]

А если попробовать перед созданием главной формы (в файле проекта) создать невидимую форму класса TAppBuilder?

← →
Юрий Зотов © (2003-12-04 13:44) [4]

program Project1;

uses
...

type
TAppBuilder = class(TApplication);

begin
Application.Free;
Application := TAppBuilder.Create(nil);
Application.Initialize;
Application.CreateForm(...);
...
Application.Run;
end;

← →
Юрий Зотов © (2003-12-04 13:49) [5]

> stepan_mk

Ваш исходный вопрос и то, что Вы сказали в [2] - вовсе не одно и то же. Так Вам что нужно - просто создать любое окно с классом TAppBuilder, или это обязательно должно быть окно ПРИЛОЖЕНИЯ?

P.S.
Для FindWindow подойдет любое окно, но с чего Вы решили, что там защита именно такая? Существует куча других способов.

← →
REA © (2003-12-04 13:54) [6]

Купить не пробовали?

← →
stepan_mk © (2003-12-04 14:06) [7]

to Юрий Зотов
Я так именно писал потому что нашел в инете статью что кто-то так успешно крякал SDAC потом нашё у себя в dcp файле слово FindWindowA она караз и есть аналог FindWindow в Делфи.
А о таком:
type
TAppBuilder = class(TApplication);
думал но ещё не пробовал. Пробовал переназвать TApplication в модуле Forms но безуспешно. Шас попробую твой вариант.
>REA © (04.12.03 13:54) [6]
>Купить не пробовали?
А что помогает?

← →
stepan_mk © (2003-12-04 14:14) [8]

Вариант предложений в 4 Неподходит программа сразу же после бегин культурно завершает свою роботу.
Может есть какой-то вариант после создания апликешена поменять ему classname?

> stepan_mk © (04.12.03 14:14) [8]

Если то, что Вы сказали, соответствует истине, то вопрос решается гораздо проще - назовите главную форму AppBuilder, да и все дела.

Я с самого начала так пробовал. Но оно в класснейм пишет название типа, какого типа есть переменная Application.

implementation

type
TAppBuilder = class(TForm1);

procedure TForm1.FormCreate(Sender: TObject);
begin
TAppBuilder.CreateNew(Self);
Caption := IntToStr(FindWindow("TAppBuilder", nil))
end;

Приложение с className=TAppBuilder Найти похожие ветки